UC知道asp换行的问题
来源：百度知道 编辑：UC知道 时间：2024/06/04 12:21:46
<%
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个标题.
请把代码写出来,谢谢了.
急用!!!!!!
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个标题.
请把代码写出来,谢谢了.
急用!!!!!!
每行显示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 <