cat.asp

时代商城购物系统功能

	<TABLE WIDTH="100%" ALIGN="center" BORDER="0" CELLSPACING="0" CELLPADDING="0">
	<tr> 
   <td height="25" align="center" class=table-xia colspan="3"><b><font color=#ff6600><% = strcat %>商品分类</font></b></td>
              </tr>
           <% 
	  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>