如何将表格由一列变为两列？

[is9527]

for i=1 to AllPage
NewsContent="<table width=100% border=0 cellspacing=0 cellpadding=0><tr><td>"
for j=1 to ClassRS("PageNum")
if NewsRs.eof then exit for
NewsContent=NewsContent&"·<a href="&NewsRs("FilePath")&NewsRs("FileName")&" target=_blank>"&NewsRs("title")&"</a>  <font color=#999999>"&year(NewsRs("addtime"))&"-"&month(NewsRs("addtime"))&"-"&day(NewsRs("addtime"))&"</font><br>"
NewsRs.movenext
next
NewsContent=NewsContent&"</td></tr></table>"
上面的代码能生成一个表格，是一列的，现在我想让它生成两列，行数当然根据循环次数来决定，该如何修改，我想第二列的内容就是<font color=#999999>"&year(NewsRs("addtime"))&"-"&month(NewsRs("addtime"))&"-"&day(NewsRs("addtime"))&"</font>，请教了！

[is9527]

for i=1 to AllPage
NewsContent="<table width=100% border=0 cellspacing=0 cellpadding=0><tr><td>"
for j=1 to ClassRS("PageNum")
if NewsRs.eof then exit for
NewsContent=NewsContent&"·<a href="&NewsRs("FilePath")&NewsRs("FileName")&" target=_blank>"&NewsRs("title")&"</a></td><td>  <font color=#999999>"&year(NewsRs("addtime"))&"-"&month(NewsRs("addtime"))&"-"&day(NewsRs("addtime"))&"</font><br/>"
NewsRs.movenext
next
NewsContent=NewsContent&"</td></tr></table>"
这样行吗？

[xinyu1225]

给你个例子，你参考着修改就可以了

<%
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From table By Datetime Desc"
rs.CursorType=adOpenStatic
rs.PageSize=12 '页面显示记录数
Rs.Open Sql,Conn,1,1
Response.Write "<table width='550' border='0' align='center' cellpadding='0' cellspacing='0'>"
rs.AbsolutePage=CInt(Page) '定位页面
rowCount=0
num=0
If Rs.Bof And Rs.Eof Then
response.write "<tr><td align='center' height='30'><font color='#FF0000'>暂无任何内容！</font></td></tr>"
Else
Do While Not Rs.eof And rowCount<rs.PageSize
If (num Mod 3=0) Then 'mod 1=0限一行一个产品信息
response.Write "<tr>"
End If
Response.Write "<td width='183'>"
Response.Write "<table width='175' border='0' align='center' cellpadding='0' cellspacing='0' class='index_table'>"
Response.Write "<tr>"
Response.Write "<td height='120'><div align='center'>"
Response.Write "<a href='Product_View.asp?ID="&Rs("ID")&"' target='_blank' Title='"&Rs("Name")&"'><img src='UploadFiles/"&Rs("Image_Small")&"' alt='"&Rs("Name")&"' width='150' height='88' border='0'></a>"
Response.Write "</div></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td height='24'><div align='center'>"
Response.Write "<a href='Product_View.asp?ID="&Rs("ID")&"' target='_blank' Title='"&Rs("Name")&"'>"
If Len(Rs("Name"))>10 Then
Response.Write Left(Rs("Name"),10)
Else
Response.Write Rs("Name")
End If
Response.Write "</a>"
Response.Write "</td>"
Response.Write "<tr>"
Response.Write "</table>"
Response.Write "</td>"
Rs.MoveNext
rowCount=rowCount+1
num=num+1
Loop
End If
Response.write "</table>"
%>

[is9527]

已解决，谢谢楼上朋友指点。