cat_.asp

来自「上海购物网设计的购物系统是基于WEB开发的大型购物系统。 它以构建电子商务网」· ASP 代码 · 共 40 行

<table width="200" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="<% = bgclr1 %>">
  <tr> 
    <td bgcolor="#FFFFFF"><TABLE WIDTH="100%" ALIGN="center" BORDER="0" CELLSPACING="1" CELLPADDING="0">
        <% 
	  set rs = server.CreateObject("adodb.recordset")
	  rs.open "select categoryid,sortsid,sorts from sorts where sorts.categoryid="&catid&" order by sortsorder",conn,1,1
	  if rs.eof and rs.bof then %>
        <div align="center">暂无此商品小类</div>
        <%else
	 do while not rs.eof %>
        <TR>
          <TD HEIGHT="20" width="46%" align="right"> <a href=class.asp?aid=<% = rs("categoryid") %>&nid=<% = rs("sortsid") %>>
            <% = rs("sorts") %>
            </a></td>
          <td width="8%" align="center">·</td>
          <%
	  rs.movenext  %>
          <% if rs.eof then 
	  exit do
	  else %>
          <td width="46%"><a href=class.asp?aid=<% = rs("categoryid") %>&nid=<% = rs("sortsid") %>>
            <% = rs("sorts") %>
            </a></TD>
        </TR>
        <%	  rs.movenext 
	 end if

	  loop
	  end if
	  rs.close
	  set rs = nothing %>
      </TABLE></td>
  </tr>
</table>
<table width="200" border="0" align="center" cellspacing="0">
  <tr>
    <td width="165">&nbsp;</td>
  </tr>
</table>