set rs=server.CreateObject("adodb.recordset") rs.open "select * from bsort order by anclassidorder",conn,1,1 if rs.recordcount=0 then response.write " 目前没有商品分类" else while not rs.eof %>
set rs_s=server.CreateObject("adodb.recordset") rs_s.open "select * from ssort where anclassid=" & rs("anclassid") & " order by nclassidorder",conn,1,1 if rs_s.recordcount=0 then else while not rs_s.eof %>
wend end if %>
set rs_s=server.CreateObject("adodb.recordset") rs_s.open "select * from ssort where anclassid=" & rs("anclassid") & " order by nclassidorder",conn,1,1 while not rs_s.eof%>
set rs_x=server.CreateObject("adodb.recordset") rs_x.open "select * from xsort where nclassid=" & rs_s("nclassid") & " ",conn,1,1 while not rs_x.eof%> rs_x.movenext wend %>
rs_s.movenext wend %>
rs.movenext wend end if rs_x.close set rs_x=nothing rs_s.close set rs_s=nothing