下面是查询数据库后的显示页数信息,PageCount有100,显示是:1 2 3 4 5 6 7 ......一直到100,晕!
怎样可以把它改成像这样子的:
首页 | 上页 | [1] [2] [3] [4] [5] [6] ...下页 | 尾页 | 第 1 页 | 共 100 页

<%
'显示页数信息

Response.Write"请选择页数"
For I=1 to rs.PageCount
If I=page_no then
Response.Write "<font color=red>" & I &"</font>&nbsp"
Else
Response.Write"<a href='index.asp?page_no="&I&"&name="&name&"'>"& I &"</a>&nbsp"
End If
Next
%>

谁能帮我改改呀，先谢谢了!

其实那个原理就是页码再进行分页
Dim PageP'声明页码分页的当前页
Dim PagePSize'每页显示的页码数
PagePSize=5'设定每页显示的页码数
Dim PagePCount'声明页码一共分几页
'算法部分计算页码一共能分几页
IF rs.PageCount MOD PagePSize=0 Then
PagePCount=CInt(rs.PageCount/PagePSize)
Else
PagePCount=CInt(rs.PageCount/PagePSize)+1
End IF
'页码分页初始化
if page_no=1 then
PageP=1
end if
'算法部分计算上一页码分页的最后一页的页数
Dim PGL
PGL=(PageP-1)*PagePSize'计算算法
'自动增加页码分页判断
if page_no=PGL Then
PageP=PageP+1
End IF
'更改后的分页循环
For I=PGL+1 to rs.PageCount
IF I<=PagePSize+PGL Then'防止出错判断
If I=page_no then
Response.Write "<font color=red>" & I &"</font>&nbsp"
Else
Response.Write"<a href='index.asp?page_no="&I&"&name="&name&"'>"& I &"</a>&nbsp"
End If
End IF
Next
以上代码不一定对，楼主可以试试，但算法是哪个算法。
计算总共多少页的算法就是。
总记录数除以每页显示的记录数取余数,余数得0不用加1,余数不得0加1
计算上一页最后一条记录位置的算法是
(当前页-1)乘以每页的记录数。

我收藏了一个asp分页类，跟你说的要求相似，用起来也比较方便，有兴趣的话可以看看
http://hi.baidu.com/shishasha/blog/item/0c5e0c249a7ecd33c99559a2.html
上面有使用实例

谢谢版主和chaojimali，
版主，我用你的代码，
分页后成：1  　2  　3  　4  　5  　6  　7  　8  　9  　10 1 2 3 4 5
点后面那个2后分页成：　11  　12  　13  　14  　15  　16  　17  　18  　19  　20 -4 -3 -2 -1 0  
点后面的那个3后分页成：　21  　23  　24  　25  　26  　27  　28  　29  　30  　31 -4 -3 -2 -1 0


这是怎么回事？

搞了一天了，头晕了

顶