UC知道求像www.my12345.com首页商品分类代码
来源：百度知道 编辑：UC知道 时间：2024/06/28 04:19:26
目前我已修改了商品小类的排列顺序,可以实现控制每行显示的商品小类个数,但是需要将商品大类按每行两列的形式排列,请高手帮忙谢谢
<table width="99%" border=0 align="center" cellpadding=0 cellspacing=0>
<tbody>
<%
set rs=server.createobject("adodb.recordset")
sqltext="select categoryid,category from category where hide=0 and ParentID = 0 order by categoryorder"
rs.open sqltext,conn,1,1
if rs.eof and rs.bof then
rs.close
response.Write "<tr><td align=center>还没有商品分类</td></tr>"
else
do while not rs.eof %>
<tr>
<td valign=center height=11 colspan="2" align="center">
<a href=TimesCat.asp?catid=<% = rs("categoryid") %>><b><font color="#ff6600">
<% = rs("category") %>
</font></b></a>
</td>
</tr>
<tr>
<td colspan="
<table width="99%" border=0 align="center" cellpadding=0 cellspacing=0>
<tbody>
<%
set rs=server.createobject("adodb.recordset")
sqltext="select categoryid,category from category where hide=0 and ParentID = 0 order by categoryorder"
rs.open sqltext,conn,1,1
if rs.eof and rs.bof then
rs.close
response.Write "<tr><td align=center>还没有商品分类</td></tr>"
else
do while not rs.eof %>
<tr>
<td valign=center height=11 colspan="2" align="center">
<a href=TimesCat.asp?catid=<% = rs("categoryid") %>><b><font color="#ff6600">
<% = rs("category") %>
</font></b></a>
</td>
</tr>
<tr>
<td colspan="
<table width="98%" border="0" align=center cellpadding="5" cellspacing="2">
<tr>
<%
set rs=server.createobject("adodb.recordset")
sqltext="select categoryid,category from category where hide=0 and ParentID = 0 order by categoryorder"
rs.open sqltext,conn,1,1
n=0
nn=rs.recordcount
do while not rs.eof
n=n+1
%>
<td height=32 width=381 valign=top><a href=TimesCat.asp?catid=<% = rs("categoryid") %>><b><font color="#ff6600">
<% = rs("category") %>
</font></b></a><br>
<%
set rs1 = server.CreateObject("adodb.recordset")
sqltext="select categoryid,category from category where hide=0 and ParentID="&rs("categoryid")&" order by categoryorder"
rs1.open sqltext,conn,1,1
do while not rs1.eo