Question

asp如何显示方式为:一行两列

<table width="80%" border="0" align="center" cellpadding="0" cellspacing="4">
<tr>
<%
set RsPro=Server.CreateObject("Adodb.Recordset")
SqlPro="select * From ProductClass order by RootID,OrderID"
RsPro.Open SqlPro,conn,1,3
if RsPro.Eof or RsPro.Bof then
response.Write("暂时无类别！")
else
Do while Not RsPro.Eof
%>
<td height="30"><div align="left">
<img src="images/bg6.jpg" width="13" height="12"> <a href="pro1.asp?ClassID=<%=RsPro("ClassID")%>" class="white_d"><%=RsPro("ClassName")%></a></div></td></tr>
<%
RsPro.MoveNext
Loop
End if
RsPro.Close
set RsPro=Nothing
%>
</table>

这段中,是产品种类的显示,但目前是一行一列, 请问如何让它显示为:一行两列这样的方法呢!

Answer 1

试试下面的代码
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="4">
<tr>
<%
set RsPro=Server.CreateObject("Adodb.Recordset")
SqlPro="select * From ProductClass order by RootID,OrderID"
RsPro.Open SqlPro,conn,1,3
if RsPro.Eof or RsPro.Bof then
response.Write("暂时无类别！")
else
i=1
Do while Not RsPro.Eof
%>
<td height="30"><div align="left">
<img src="images/bg6.jpg" width="13" height="12"> <a href="pro1.asp?ClassID=<%=RsPro("ClassID")%>" class="white_d"><%=RsPro("ClassName")%></a></div></td>
<%
if i mod 2=0 then response.Write("</tr><tr>")
RsPro.MoveNext
i=i+1
Loop
End if
RsPro.Close
set RsPro=Nothing
%>
</tr>
</table>