把这个弄成5列10行应该怎么弄?

来源:百度知道 编辑:UC知道 时间:2024/05/19 11:43:39
代码如下
谢谢
代码:
<%
Rs.PageSize = 25
If Request("PageNo") = "" Then PageNo=1 Else PageNo = CInt(Request("PageNo"))
If PageNo < 1 Then Response.Redirect "?PageNo=1" & Qs
If PageNo > Rs.PageCount And Rs.PageCount > 0 Then Response.Redirect "?PageNo=" & Rs.PageCount & Qs
If Rs.Eof and Rs.Bof Then PageNo = 0 Else Rs.AbsOlutePage = PageNo

For x = 0 to Rs.PageSize
If Rs.Eof Then Exit For
%>

<table border=0 cellpadding=3 cellspacing=0>
<tr>
<td width=125 align=center>
<table class=ImageTable>
<tr><td>
<a href=disp/<% = Rs("Topic.ID")%>.ht

<%
Rs.PageSize = 25
If Request("PageNo") = "" Then PageNo=1 Else PageNo = CInt(Request("PageNo"))
If PageNo < 1 Then Response.Redirect "?PageNo=1" & Qs
If PageNo > Rs.PageCount And Rs.PageCount > 0 Then Response.Redirect "?PageNo=" & Rs.PageCount & Qs
If Rs.Eof and Rs.Bof Then PageNo = 0 Else Rs.AbsOlutePage = PageNo
%>
<table border=0 cellpadding=3 cellspacing=0>
<%
For x = 0 to Rs.PageSize
If Rs.Eof Then Exit For

if x mod 5=0 then
%>
<tr>
<%
<td width=125 align=center>
<table class=ImageTable>
<tr><td>
<a href=disp/<% = Rs("Topic.ID")%>.html target=_blank>
<img src=<%=Replace(Split(rs("Body"),""" alt=""")(0),"<img src=""","")%> border="0" width=116