100分找一个分页程序

[xxsoft]

哪位兄台有现的？时间紧急.

上一页 1 2 3 4 5 6 7 8 9 10 下十页 下一页

这样的，谢谢！！！！

[reners]

可参考下面的方法
<%
function makePage(rs,nowpage,paginal)

dim totalpage '总的页数
dim totalrecord '总计记录数
dim nowrecord '当前记录

if rs.eof and rs.bof then '如果没有记录返回假并退出函数
makePage = false
exit function
end if
if isnumeric(nowpage) = false then '如果当前面不为数字，则返回假并退出函数
nowpage = 1
end if
if isnumeric(paginal) = false then '如果每页显示的记录数没有，则默认为20条
paginal = 20
end if

totalrecord = rs.recordcount '取得总共的记录数
if totalrecord mod paginal = 0 then '如果总的记录数除以每页显示的记录数的余数为0，则表示刚好记录显示完
totalpage = totalrecord\paginal
else
totalpage = (totalrecord\paginal)+1 '否则还要加1，表示当前页未显示完，另一页再显示
end if
if cint(nowpage) > totalpage then '如果当前页大于总的页数，则当前页被赋于为最后一页
nowpage = totalpage
end if
if nowpage < 1 then '如果当前页小于1，则将当前页赋于为第一页
nowpage = 1
end if

nowrecord = (nowpage-1)*paginal '计算当前显示记录
rs.move nowrecord '跳转到当前应显示的记录

makePage = totalpage '返回总的页数
end function

totalpage = makePage(rs,currentpage,paginal)
next10 = ((currentpage\10+1) *10 )+1
%>
<a href="curPg.asp?page=<%=next10%>">下10页</a>
上10页一样的方法，只改几个符号，上页、下页也应该没什么问题了吧！