Question

asp换行的问题

<%
dim exec,cn
exec="select * from Article"
set rs=server.createobject("adodb.recordset")
rs.open exec,cn,1,1
%>
<%
if rs.EOF and rs.BOF then
response.write("暂时还没有文章")
else
for i=1 to 1300
if Not rs.Eof Then
%>
<a href="Article_Show.asp?ArticleID=<%=rs("ArticleID")%>"><%=rs("title")%></a>
<%
rs.MoveNext
end if
next
end if
%>
在这段代码中如何改,可以使每行显示10个标题.
请把代码写出来,谢谢了.
急用!!!!!!

Answer 1

每行显示10个标题？？？？
你现在的结果肯定是一大堆文字机载一起，没有换行，只有空格。也不能对齐。。。而且一次性显示1300个标题。够强的。

如果想每行显示10个，然后换行，再显示10个。再换行就这样。
<%
dim exec,cn,i,j
j=10
exec="select * from Article"
set rs=server.createobject("adodb.recordset")
rs.open exec,cn,1,1
%>
<%
if rs.EOF and rs.BOF then
response.write("暂时还没有文章")
else
%>

<table width="90" border="0" cellspacing="0" cellpadding="0">
<%for i=1 to 130
if Not rs.Eof Then %>
<tr>
<%for j=1 to 10%>
<td> 
<% if not rs.eof then %>
<a href="Article_Show.asp?ArticleID=<%=rs("ArticleID")%>"><%=rs("title")%></a>
<% rs.movenext
end if%></td>
<% next%>
</tr>

<%
rs.MoveNext
end if
next
%></table><%
end if
%>