我只想实现一个功能，谁可以帮助我，等了一天一夜了。。55555555555

[royitonade]

整个分页我已经写了。。。而且代码都通过了测试，分页是可以用的，但是我想在实现的一个功能是：假如，分页数量超过5个，比如有16个，那么我想，每页最多显示5个分页，，然后点击“下5页”，可以跳转到后面的5个页面，如此循环，就像：

上5页 1 2 3 4 5 下5页；点了“下5页后，则变成上5页 6 7 8 9 10 下5页；如此循环，希望高手们可以帮助我：

我的代码是这样的。已经通过测试：


<!--#include file="conn.asp"-->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
bs="select * from qiang"
rs.Open bs, conn, 1, 1
if rs.eof then
%>
<div align="center">
<table width="300" border="1">
<tr>
<td><div align="center">您好目前尚无任何记录</div></td>
</tr>
</table>
<%
else
rs.pagesize=5
zjl=rs.recordcount
zpages=rs.pagecount
page=request("当前页次")
if page="" then
page=1
else
page=cint(page)
end if
rs.absolutepage=page
%>

<%
dim n
n=1
do while not rs.eof and n<=rs.pagesize
n=n+1
%>
<table width="300" border="1">
<tr>
<td><div align="center"><%=rs("zifu")%></div></td>
</tr>
</table>
<%
rs.movenext
loop
%>
<table width="300" border="1">
<tr>
<td>共:<%=zpages%>页 当前为:<%=page%>页 共<%=zjl%>条记录

<%if page>1 then%>
<a href="office.asp?当前页次=<%=page-1%>">上一页</a>
<%else%>
上一页
<%end if%>

<%for k=1 to zpages%>
<%if k<>page then %>
<a href="office.asp?当前页次=<%=k%>"><%=k%></a>
<%else%>
<%=k%>
<%end if%>
<%next%>

<%if page < zpages then%>
<a href="office.asp?当前页次=<%=page+1%>">下一页</a>
<%else%>
下一页
<%end if%>

<%if zpages>5 and page<zpages-4 then%>
<a href="office.asp?当前页次=<%=page+5%>">下5页</a>
<%else%>
下5页
<%end if%>

<%if page>5 then%>
<a href="office.asp?当前页次=<%=page-5%>">上5页</a>
<%else%>
上5页
<%end if%>

<%if page<>1 then%>
<a href="office.asp?当前页次=<%=1%>"> 首页</a>
<%else%>
以到首页
<%end if%>

<%if page<>zpages then %>
<a href="office.asp?当前页次=<%=zpages%>">末页</a>
<%else%>
以到尾页
<%end if%>
<%end if%>
</td>
</tr>
</table>
</div>