求asp分页效果

来源：百度知道 编辑：UC知道 时间：2024/05/12 03:42:56
我想做个带导航的分页程序!
例:http://zhidao.baidu.com/browse/155?lm=9&pn=225 底部那样的分页效果.请高手帮一下,或给个类似源代码的下载地址!

<%
dim theps,allpage,nowpage
theps=20
if rs.recordcount < theps then
rs.pagesize=rs.recordcount '''每页显示条数
allpage=1
response.write rs.pagesize
else
rs.pagesize=theps '''每页显示条数.
allpage=rs.pagecount ''''一共有这么多页allpage.
end if
response.write rs.pagesize

nowpage=request.QueryString("page") '''得到传递数.
if nowpage="" then nowpage=1'''传递错误处理
nowpage=int(nowpage)

if nowpage<=0 then nowpage=1'''传递错误处理.
if nowpage>allpage then nowpage=allpage'''传递错误处理.

'''''让最后一页可显示.
if nowpage=allpage then
if not rs.recordcount mod rs.pagesize=0 then
rs.pagesize=rs.recordcount mod rs.pagesize
end if
end if

rs.absolutepage=nowpage ''''指定当前记录所在的页
'response.write rs.pagesize&allpage&nowpage&rs.recordc