pronav.asp

上海购物网设计的购物系统是基于WEB开发的大型购物系统。 它以构建电子商务网站为目标

<table width="175" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="162" height="1"> 
      <div align="center"><b></b></div></td>
  </tr>
  <tr align="center" valign="top"> 
    <td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" background="../images/skin/default/index_middle_topbg3.gif" bgcolor="#FFFFFF">
        <%
	  set rs = server.CreateObject("adodb.recordset")
	  rs.open "select categoryid,category from category order by categoryorder",conn,1,1
	  if rs.eof and rs.bof then
	  response.Write "<tr><td align=center>还没有商品分类</td></tr>"
	  else
	  do while not rs.eof %>
        <tr> 
          <td height="24" colspan="3" align="center"><a href=cat.asp?catid=<% = rs("categoryid") %>><b>【 
            <% = rs("category") %>
            】</b></a></td>
        </tr>
        <% 
	  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 %>
        <tr> 
          <TD valign="top" width="80" align="right"> <a href=class.asp?aid=<% = rs1("categoryid") %>&nid=<% = rs1("sortsid") %>> 
            <% = rs1("sorts") %>
            </a></td>
          <TD valign="top" width="15" align="center"><font color="<%= bgclr1 %>">·</font></td>
          <%
	  rs1.movenext  %>
          <% if rs1.eof then %>
          <TD valign="top" width="80"></td>
          <%
	  exit do
	  else %>
          <TD valign="top" width="80"><a href=class.asp?aid=<% = rs1("categoryid") %>&nid=<% = rs1("sortsid") %>> 
            <% = rs1("sorts") %>
            </a></td>
        </tr>
        <%	  rs1.movenext 
	 end if
	  loop
	  rs1.close
	  set rs1 = nothing %>
        <%
	  rs.movenext
	  loop
	  rs.close
	  set rs = nothing
	  end if
	  %>
      </table></td>
  </tr>
</table>