以下是我做的分页显示,就是那一段页码分页只能循环到最后显,如果我数据越多页码就越多,但是我想改成每页只能显示五个页码,如极品桌面这样http://www.ppdesk.com/sort2/1_1.htm
请高手帮解决答,解答成功马上送分,谢谢
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp" -->
<%
sql="select * from bizhi order by id desc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
if rs.eof then
response.write "暂无图片"
else
rs.pagesize=1'定义每页几张图片
zongye=rs.pagecount'计算总共几页
mrs=rs.recordcount'计算共有几张图片
page=int(request("page"))'当前所在页码
if page<=0 then page=1
if page>=zongye then page=zongye
if request("page")="" then page=1
rs.absolutepage=page
for i=1 to rs.pagesize
response.write"<a href=xx.asp?id="&rs("id")&"><img src="&rs("tupian")&"></a>"
rs.movenext
next
%>
<p align="center">
共<%=zongye%>页 本页为第<%=page%>页 每页<%=rs.pagesize%>张 共<%=mrs%>张
<%if page<>1 then%>
<a href="fenye.asp?page=1">首页</a>
<%else%> 首页
<%end if%>
<%if page<>1 then%>
<a href="fenye.asp?page=<%=page-1%>">上一页</a>
<%else%> 上一页
<%end if%>
<%if page<>zongye then%>
<a href="fenye.asp?page=<%=page+1%>">下一页</a>
<%else%> 下一页
<%end if%>
<%if page<>zongye then%>
<a href="fenye.asp?page=<%=zongye%>">末页</a>
<%else%> 末页
<%end if%>
<%for i=1 to zongye%>
<%if i<>page then%>
<a href="fenye.asp?page=<%=i%>">[<%=i%>]</a>
<%else%>
[<%=i%>]
<%end if%>
<%next%>
<form action="fenye.asp" method=post>
<input name=page type=text size=2 maxlength=3>
<input type=submit value="跳转">
</form>
<%end if%>
<%rs.close
conn.close
set rs=nothing
set conn=nothing%>
</p>
</body>
</html>
参考资料:mwyf