Question

ASP输出表格 分页求助

<%
dim i,j,m
dim iRsCount,iRows
dim perLines
perLines=3 '每行需显示的列数
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from star order by starid desc",conn,1,1
rs.pagesize=12
cpage=request("p_page")
if len(cpage)<=0 or not isnumeric(cpage) then
cpage=1
else
cpage=cint(cpage)
end if
if cpage<=0 then
cpage=1
end if
if cpage>rs.pagecount then
cpage=rs.pagecount
end if
if rs.eof=false then
rs.absolutepage=cpage
end if
if not rs.eof then
response.write "<TABLE cellSpacing=""0"" cellPadding=""0"" width=""647"" border=""0"" style=""BORDER-RIGHT: rgb(199,199,199) 1px solid; BORDER-TOP: rgb(199,199,199) 1px solid; BORDER-LEFT: rgb(199,199,199) 1px solid; BORDER-BOTTOM: rgb(199,199,199) 1px solid"">"&vbcrlf
iRsCount=rs.pagesize '取得实际的记录数
iRows=int(iRsCount/perLines) '计算可得到的行数
if iRows<1 then
iRows=1
else
if iRsCount mod perLines=0 then
iRows=int(iRsCount/perLines)
else
iRows=int(iRsCount/perLines)+1
end if
end if
i=1
while not rs.eof
for i=1 to iRows
response.write "<TBODY><TR>"&vbcrlf
for j=1 to perLines
If Not rs.eof then
response.write "<TD width=""223""><TABLE cellSpacing=""10"" cellPadding=""0"" width=""219"" border=""0""><TBODY><TR><TD vAlign=""top"" align=""middle"" width=""597"" style=""font-size: 12px; color: #333333; line-height: 20px; font-family: 宋体"" colspan=""2""><IMG title="&rs("name")&" height=""133"" src=admin/"&rs("photo")&" width=""146"" height=""75""></TD></TR><TR><TD vAlign=""top"" align=""middle"" width=""299"" style=""font-size: 12px; color: #333333; line-height: 20px; font-family: 宋体""><p align=""left""><img border=""0"" src=""images/band2.gif"" width=""10"" height=""18""><font color=""#3399FF""><b>"&rs("name")&"</b></font></TD><TD vAlign=""top"" align=""middle"" width=""298"" style=""font-size: 12px; color: #333333; line-height: 20px; font-family: 宋体""><p align=""right"">参看详情</TD></TR></TBODY></TABLE></td>"&vbcrlf
Else
response.write "<td> </td>"&vbcrlf
End if
if not rs.eof then rs.movenext
next
response.write "</tr>"&vbcrlf
next
Wend
response.write "</TBODY></table>"
end if
i=1
do while rs.eof=false and i<=rs.pagesize
rs.close
set rs=nothing
%>
<%
rs.movenext
m=m+1
loop
%>
<div class="manu" align="center">
<%
if rs.pagecount>0 then
if cpage>5 then
i=cpage-4
else
i=1
end if
for j=i to i+9
if j=cpage then
response.write "" & j & ""
else
response.write "<a href='ok.asp?p_page="&j&"'>" & j & "</a>"
end if
if j=rs.pagecount then exit for
next
end if
p=cpage
response.write ""& p &""
%>
现在可以分页，但是第一页显示的是数据库中的所有数据，怎么改才可以实现：3*4的表格呢？

Answer 1

<table height="50" width="800" align="center" border="1">
<tr>
<td width="400">您所在的页面是首页--<%response.Write(type1)%></td><td><a href="shouye.asp">返回到首页</a></td><td><a href="javascript:history.go(-1)">返回到上一层</a></td></tr>
</table>
<table width="800" align="center" border="1">
<tr><td width="50">编号</td><td width="600">标题</td><td>发表时间</td></tr>
<% type1=request.QueryString("type")
dim Sql
Sql="select * from shouye where type='"&type1&"' order by time desc"
rs.open Sql,conn,3,3
if Not rs.Bof and Not rs.Eof Then
dim page_size
dim page_no
dim page_total

if request("page_no")="" then
page_no=1
else
page_no=cint(request("page_no"))
end if
session("page_no")=page_no
page_size=10
rs.pagesize=page_size
page_total=rs.pagecount
rs.absolutepage=page_no
dim i , j
i=0
j=page_size
do while not rs.eof and j>0
i=i+1
j=j-1
x=(page_no-1)*page_size+i
n=x mod 2
if n=0 then
%>
<tr><td><div align="center"><%=(page_no-1)*page_size+i%></div></td><td><a href="shouyexwmb.asp?id=<%=rs("id")%>"><%=rs("title")%></a></td><td><%=rs("time")%></td></tr>
<顷塌%else%>
<tr><td><div align="center"><%=(page_no-1)*page_size+i%></div></td><td><a href="shouyexwmb.asp?id=<%=rs("id")%>"><%=rs("title")%></a></td><td><%=rs("time")%></td></tr>
<%end if%>
<% rs.MoveNext
Loop
End If
%></table>
<p align="center"> 共
<%=rs.recordcount%>
条,每页
<%=rs.pagesize%>
条,
当前<%=page_no%>/<%=rs.pagecount%>页</p>
<p align="center">
<%if page_no>轿让1 then%>
<a href="more.asp?page_no=<%=page_no-1%>&type=<%= request.QueryString("type")%>&nickname=<%=request.QueryString("nickname") %>" >上一页</a>
<%else%>

<%end if%>
<%for k=1 to rs.pagecount%>
<%if k<>page_no then %>
<a href="more.asp?page_no=<%=k%>&type=<%= request.QueryString("type")%>&nickname=<%= request.QueryString("nickname") %>"></a>
<%else%>
<%end if%>
<%next%>
<%if page_no < rs.pagecount then%>
<a href="more.asp?page_no=<%=page_no+1%>&type=<%= request.QueryString("雀帆圆type")%>&nickname=<%= request.QueryString("nickname") %>" >下一页</a>
<%else%>

<%end if%>
<%if page_no<>1 then%>
<a href="more.asp?page_no=<%=1%>&type=<%= request.QueryString("type")%>&nickname=<%= request.QueryString("nickname") %>" >第一页</a>
<%else%>

<%end if%>
<%if page_no<>rs.pagecount then %>
<a href="more.asp?page_no=<%=rs.pagecount%>&type=<%= request.QueryString("type")%>&nickname=<%= request.QueryString("nickname") %>" >末页</a>
<%else%>

<%end if%>
先试一下这段分页显示代码，其中的一些链接稍作改动就可以了。我一直都用这样的分页，挺好用的。希望能帮助你