asp分页
'数据库链接省略,以下是从数据库中提取部分内容比如nam
<%sql="select nam from db"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,db,1,1'调用数据库结束
dim page_size,pagenum,pagetotal'分页开始
page_size=15'定义每页的条数
if request.QueryString("pagenum")="" then'判断是不是有第一次打开活着打开了分页在此pagenum是页数
pagenum=1'第一次打开设置其为第一页
else'如果是打开了分页
if isnumeric(request.querystring("pagenum")) then '判断其是否是数字
pagenum=cint(request.querystring("pagenum"))'转换其为整形
else '如果不是数字
pagenum=1'打开第一页
end if
end if
rs.pagesize=page_size'将分条数传给rs记录
pagetotal=rs.pagecount'rs将最多页数给pagetotal也就是最大页数
if pagenum>pagetotal or pagenum<0 then'如果是分页打开判断其页数(pagenum)是不是在0和pagetotal之间
response.write"数据出错,请联系管理员!!谢谢!!"'不是数据出错活着掉转redirect
response.end()
else
rs.absolutepage=pagenum'如果存在当前页pagenum 给rs当前记录
end if
k=page_size'设置一个参数k为每页条数
do while not rs.eof and k>0 '开始循环,当k条记录输出完时结束循环
k=k-1
'中间循环内容
rs.movenext
loop
set rs=nothing
'以下为分页
%>
<%
response.Write "第"&pagenum&"/"&pagetotal&"页"
if pagenum>1 then
response.write " <a href='文件名.asp?pagenum=1' >首页</a>"
response.Write " <a href='文件名.asp?pagenum="&pagenum-1&"' >上页</a>"
end if
if pagetotal>pagenum then
response.write " <a href='文件名.asp?pagenum="&pagenum+1&"' >下页</a>"
response.Write " <a href='文件名.asp?pagenum="&pagetotal&"' >末页</a>"
end if
%>