<% '找出显示的大类 set RsMinList = server.CreateObject("adodb.recordset") SqlMinList = " SELECT A.MaxID, A.MinID, A.MinName, A.MinRank FROM ProductMin20 AS A Where A.MaxID = "&MaxID&" ORDER BY A.MinRank " RsMinList.open SqlMinList, objConn, 1, 1 if RsMinList.eof or RsMinList.bof then response.Write("参数错误maxid=")&maxid response.End() else do while not RsMinList.eof Minid = Rsminlist("MinID") set RsList = server.CreateObject("adodb.recordset") SqlList = "SELECT * FROM ProductList20 where MinID = "& minid &" ORDER BY ProRank, ProUpdateTime DESC " 'response.Write("
slqlist")&sqllist RsList.open SqlList, objConn, 1, 1 if MinID = 0 then colorset3 = "msyh15_green2" else if ProID = RsList("ProID") then colorset3 = "msyh15_green2" else 'response.Write(ProID) ' response.Write("ProID=")&RsList("ProID") colorset = "msyh15_hs" end if end if if not(RsList.bof and RsList.eof) then %>

<%=RsMinList("minname")%>: <% dim colorset i = 1 do while i < 100 and not RsList.eof if ProID = 0 then if i = 1 then colorset = "msyh15_green2" else colorset = "msyh15_hs" end if ProID = RsList("ProID") else if ProID = RsList("ProID") then colorset = "msyh15_green2" else 'response.Write(ProID) ' response.Write("ProID=")&RsList("ProID") colorset = "msyh15_hs" end if end if %> &minid=<%=minid%>"><%=RsList("ProName")%> 、  <% i= i + 1 RsList.movenext loop %>

<% else %>

<%=RsMinList("minname")%>: 数据更新中...

<% end if RsList.close set RsList = nothing RsMinList.movenext loop end if '大类结束 RsMinList.close Set RsMinList = Nothing %>