■■■高分征解：asp产品目录分类问题

[moffatt]

用asp搞了个产品发布程序，后台能自动增加产品分类，但是产品分类是横向排列的，为了美观，结合网站结构，打算将产品分类由横向排列改为“纵向排列”，引用的asp代码如下，请问该如何修改才能实现“纵向排列”呢？

<%
sql2="select * from [classname]"
set rs2=conn.execute(sql2)
if not rs2.bof then
Do While Not rs2.eof
if rs2("classname")=classname then
Response.Write("<font color=red>" & rs2("classname") & "</font> <img src=images/space.gif width=7 height=18 align=absmiddle> ")
else
Response.Write("<a href=product.asp?classname=" & rs2("classname") & ">" & rs2("classname") & " ")
Response.Write("</a> <img src=images/space.gif width=7 height=18 align=absmiddle> ")
end if
i=i+1
rs2.MoveNext
Loop
end if
rs2.close
%>

[bluemoon0001]

方法1：试试。
sql2="select * from [classname]"
set rs2=conn.execute(sql2)
if not rs2.bof then
Do While Not rs2.eof
if rs2("classname")=classname then
Response.Write("<font color=red>" & rs2("classname") & "</font> <img src=images/space.gif width=7 height=18 align=absmiddle><br> ")
else
Response.Write("<a href=product.asp?classname=" & rs2("classname") & ">" & rs2("classname") & " ")
Response.Write("</a> <img src=images/space.gif width=7 height=18 align=absmiddle> <br>")
end if
i=i+1
rs2.MoveNext
Loop
end if
rs2.close
%>

[micher_yan]

输出table的行标记<tr>
<table>
<%
sql2="select * from [classname]"
set rs2=conn.execute(sql2)
if not rs2.bof then
Do While Not rs2.eof
if rs2("classname")=classname then
Response.Write("<tr><td><font color=red>" & rs2("classname") & "</font> <img src=images/space.gif width=7 height=18 align=absmiddle> </td>")
else
Response.Write("<td><a href=product.asp?classname=" & rs2("classname") & ">" & rs2("classname") & " </td>")
Response.Write("<td></a> <img src=images/space.gif width=7 height=18 align=absmiddle> </td></tr>")
end if
i=i+1
rs2.MoveNext
Loop
end if
rs2.close
%>
</table>

[bluemoon0001]

方法2：一定可以，自己再做一下改动
sql2="select * from [classname]"
set rs2=conn.execute(sql2)
if not rs2.bof then
response.write "<table>"
Do While Not rs2.eof
response.write "<tr><td>"
if rs2("classname")=classname then
Response.Write("<font color=red>" & rs2("classname") & "</font> <img src=images/space.gif width=7 height=18 align=absmiddle>")
else
Response.Write("<a href=product.asp?classname=" & rs2("classname") & ">" & rs2("classname") & " ")
Response.Write("</a> <img src=images/space.gif width=7 height=18 align=absmiddle>")
end if
i=i+1
rs2.MoveNext
response.write "</td></tr>"
Loop
response.write "</table>"
end if
rs2.close
%>

[newskyline]

在需要换行的地方加 & "<br>"就可以了，不过不推荐这个方法。
如果你希望看起来更规范和易于排版，最好用Table来控制，每行"<tr></tr>"循环。

[cdsun]

用Table来控制，每行"<tr></tr>"循环。