width=90 align="right">商品分类 align="right">更多分类 <% set rs = server.CreateObject("adodb.recordset") rs.open "select categoryid,category from category where first=0 order by categoryorder",conn,1,1 if rs.eof and rs.bof then response.Write "" else do while not rs.eof %> <% Dim rs1 set rs1 = server.CreateObject("adodb.recordset") rs1.open "select categoryid,sortsid,sorts from sorts where sorts.categoryid="&rs("categoryid")&" order by sortsorder",conn,1,1 do while not rs1.eof %> <% rs1.movenext %> <% if rs1.eof then %> <% exit do else %><% rs1.movenext end if loop rs1.close set rs1 = nothing %> <% rs.movenext loop rs.close set rs = nothing end if %> 还没有商品分类 > <% = rs("category") %> &nid=<% = rs1("sortsid") %>><% = rs1("sorts") %> · &nid=<% = rs1("sortsid") %>><% = rs1("sorts") %>