我想在一个表格的 多行显示记录，下面的代码怎么改一下才可以呢？谢谢指点。

[delphidwl]

<%
set rs=server.CreateObject("ADODB.recordset")
sql="select * from cnarticle"
rs.open sql,conn,1,1
rs.pagesize=10

%>

<table width="687" height="63" border="1">
<tr>
<%
if rs.eof and rs.bof then
response.write("暂时还没有文章")
else
DO Until rs.EOF
%>

<td width="300" height="57"><%=rs("cn_title") %></td>
<td width="300"><%=rs("cn_author") %></td>
<td width="300"><%=rs("cn_time") %></td>
<%
rs.movenext
loop
end if
%>
</tr>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

[xiaofeng666]

中间一部分代码这样写：

<%
if rs.eof and rs.bof then
response.write("<tr><td colspan=3>暂时还没有文章</td></tr>")
else
while not rs.eof
%>
<tr>
<td width="300" height="57"><%=rs("cn_title") %></td>
<td width="300"><%=rs("cn_author") %></td>
<td width="300"><%=rs("cn_time") %></td>
</tr>
<%
rs.movenext
wend
end if
%>

[xiangbo1123]

<%else do while not rs.eof
...
...
rs.movenext
loop%>

[paleyyang]

<%
set rs=server.CreateObject("ADODB.recordset")
sql="select * from cnarticle"
rs.open sql,conn,1,1
rs.pagesize=10

%>

<table width="687" height="63" border="1">
<tr>
<%
if rs.eof and rs.bof then
response.write("暂时还没有文章")
else
i=0
DO Until rs.EOF
%>

<td width="300" height="57"><%=rs("cn_title") %></td>
<td width="300"><%=rs("cn_author") %></td>
<td width="300"><%=rs("cn_time") %></td>
<%
i=i+1
rs.movenext
if i mod 3=0 then Response.Write("<tr>")''一行显示三列
loop
end if
%>
</tr>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>