pronav.asp

购物程序电子商务

	 <table align="center" cellpadding="0" cellspacing="1" width="172">
  <%
	  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>还没有商品分类</td></tr>"
	  else
	  do while not rs.eof %>
        <tr> 
          
    <TD height="26" align="center" bgcolor="#EBEBEB"><a href=cat.asp?catid=<% = rs("categoryid") %>><b><font color="#000000"> 
      <% = rs("category") %>
      </font></b></a></td>
        </tr>
        <tr> 
          
    <TD valign="top"> 
      <% 
	  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 %>
      ·<a href=class.asp?aid=<% = rs1("categoryid") %>&nid=<% = rs1("sortsid") %>> 
      <% = rs1("sorts") %>
      </a> 
      <%
	  rs1.movenext  %>
      <% if rs1.eof then 
	  exit do
	  else %>
      ·<a href=class.asp?aid=<% = rs1("categoryid") %>&nid=<% = rs1("sortsid") %>> 
      <% = rs1("sorts") %>
      </a> 
      <%	  rs1.movenext 
	 end if

	   if rs1.eof then 
	   exit do
	 else %>
      ·<a href=class.asp?aid=<% = rs1("categoryid") %>&nid=<% = rs1("sortsid") %>> 
      <% = rs1("sorts") %>
      </a>·<br>
      <%	  rs1.movenext 
	 end if
	  loop
	  rs1.close
	  set rs1 = nothing %>
    </td>
  </tr>
        <%
	  rs.movenext
	  loop
	  rs.close
	  set rs = nothing
	  end if
	  %>
      </table>