pronav.asp

时代购物系统 4.0功能升级说明 <1>完善了3.0的VIP

	<table align="center" cellpadding="0" cellspacing="1" width="96%" bgcolor="<% = bgclr1 %>"><tr><td>       <tr> 
          <TD align="center">商品分类</td>
        </tr></td></tr>
		<tr><td bgcolor="#FFFFFF">
	 <table align="center" cellpadding="0" cellspacing="1" width="100%">
        <%
	  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="25" 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>