UC知道这段代码,子类别怎么修改成一行只显一个?
来源：百度知道 编辑：UC知道 时间：2024/05/31 19:04:41
这段代码,子类别怎么修改成一行只显一个?请高手帮助!在线等
<%
Dim rs1
set rs1 = server.CreateObject("adodb.recordset")
rs1.open "select categoryid,category from category where hide=0 and ParentID="&rs("categoryid")&" order by categoryorder",conn,1,1
do while not rs1.eof %><a href=listproduct.asp?catid=<% = rs1("categoryid") %>> <% = rs1("category") %></a>|<% rs1.movenext
loop
rs1.close
set rs1 = nothing %></td>
</tr>
</table>
<%
rs.movenext
loop
rs.close
end if
%>
<%
Dim rs1
set rs1 = server.CreateObject("adodb.recordset")
rs1.open "select categoryid,category from category where hide=0 and ParentID="&rs("categoryid")&" order by categoryorder",conn,1,1
do while not rs1.eof %><a href=listproduct.asp?catid=<% = rs1("categoryid") %>> <% = rs1("category") %></a>|<% rs1.movenext
loop
rs1.close
set rs1 = nothing %></td>
</tr>
</table>
<%
rs.movenext
loop
rs.close
end if
%>
<%
Dim rs1
set rs1 = server.CreateObject("adodb.recordset")
rs1.open "select categoryid,category from category where hide=0 and ParentID="&rs("categoryid")&" order by categoryorder",conn,1,1
do while not rs1.eof %><a href=listproduct.asp?catid=<% = rs1("categoryid") %>> <% = rs1("category") %></a><BR> <% rs1.movenext
loop
rs1.close
set rs1 = nothing %></td>
</tr>
</table>
<%
rs.movenext
loop
rs.close
end if
%>
加入换行符。