pronav.asp

来自「一个电子商务网站完整代码,在.net平台下开发」· ASP 代码 · 共 32 行

 <table align="center" cellpadding="0" cellspacing="1" width="760" bgcolor="<% = bgclr1 %>">
	  <tr><td height="19" bgcolor="6699cc">&nbsp;&nbsp;<b><font color="#FFFFFF">[ 商 品 导 航 ]</font></b></td></tr>
	  <tr><td>
	 <table align="center" cellpadding="1" cellspacing="1" 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="60" valign="middle" nowrap bgcolor="#6699cc" align="center">
	  <% response.Write "<a href=cat.asp?catid="&rs("categoryid")&"><b><font color=#FFFFFF>"&rs("category")&"</font></b></a>" %>
	  </td><td>
	  <%
	  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>