pronav.asp

时代商城购物系统功能

<TABLE align="center" cellSpacing=0 cellPadding=0 width=100% border=0>
  <TBODY>
    <TR> 
      <TD vAlign=top>

        <TABLE height=20 cellSpacing=0 cellPadding=0 width=100% border=0>
          <TBODY>
            <TR> 
			  <td bgColor=#00b6f7 width=90 align="right">商品分类</td>
			  <td bgColor=#00b6f7 align="right"><a href="procat.asp">更多分类</a></td>
            </TR>
			<tr><td colspan="3" background=images/bg_04.gif border=0></td></tr>
          </TBODY>
			 </TABLE>
		
        <table cellspacing=0 cellpadding=0 width="100%" border=0>
          <tbody>
            <%
	  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 "<tr><td align=center>还没有商品分类</td></tr>"
	  else
	  do while not rs.eof %>
            <tr> 
              <td valign=center height=20 colspan="3" align="center"> 
                <a href=cat.asp?catid=<% = rs("categoryid") %>><b><font color="#ff6600"><img height=11 src="images/images0112.gif" width=15 align=absMiddle border=0> 
                <% = rs("category") %>
                <img height=11 src="images/images0112.gif" width=15 align=absMiddle border=0></font></b></a></td>
            </tr>
			<tr><td colspan="3" background=images/bg_04.gif border=0></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 align="center" valign="top"><font color="<%= bgclr1 %>">·</font></td>
              <%
	  rs1.movenext  %>
              <% if rs1.eof then %>
              <%
	  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
	  %>
          </tbody>
        </table> </TD>
    </TR>
  </TBODY>
</TABLE>