pronav.asp

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

 <table align="center" cellpadding="0" cellspacing="0" width="75%">
  <tr>
    <td height="30" bgcolor="#FFFFFF"><div align="center"><font color="#000000"><b>[ 
        商 品 导 航 ]</b></font></div></td>
  </tr>
	  <tr><td>
	 <table align="center" cellpadding="1" cellspacing="2" width="100%" bgcolor="#FFFFFF">
        <%dim rs1
	  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 "还没有商品分类"
	  else
	  do while not rs.eof %>
        <tr>
          <TD width="89" valign="middle" nowrap bgcolor="#FFFFFF"> 
            <% response.Write "<a href=cat.asp?catid="&rs("categoryid")&"><b><font color=#000000>"&rs("category")&"</font></b></a>" %>
          </td>
          <td width="871" height="24"> 
            <%
	  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
	  response.Write "<a href=class.asp?aid="&rs1("categoryid")&"&nid="&rs1("sortsid")&">"&rs1("sorts")&"</a>·"
	  rs1.movenext
	  loop
	  rs1.close
	  set rs1 = nothing %>
          </TD>
        </tr>
	  <%
	  rs.movenext
	  loop
	  rs.close
	  set rs = nothing
	  end if
	  %>
	  </table></td></tr></table>