UC知道ASP分页注释！！～～～
来源：百度知道 编辑：UC知道 时间：2024/06/15 14:28:30
<!-- 分页功能代码块,可独立使用 -->
<%
const MaxPerPage=3 '单独页最大记录数 const 用来申明常量
dim totalPut '总记录
dim CurrentPage '当前页次
dim TotalPages '总页数
dim i
%>
<%
if not rs1.eof then '如果记录集游标不在最后一条记录之后则把游标移动到第一条记录结束判断。
rs1.MoveFirst '注意放到前面来,否则到任何页总是在第一个记录上
end if
rs1.pagesize=MaxPerPage '设置每页最多显示多少条记录，把变量maxperpage的值赋给rs1.pagesize
If trim(Request("page"))<>"" then '如果请求的页次不为空，如果接受的变量page值为空则把1赋值给变量currentpage、先把接受来的变量page的值前后两边空格去掉再判断
，其值不为空则把page变量的值转换成长整型再赋值给变量currentpage，如果变量currentpage的值大于总页数则把总页数的值赋给变量currentpage。
CurrentPage= CLng(request("page")) 'clng是转换成长整型数据类型,并赋值到当前页次上
If CurrentPage> rs1.PageCount then '如果当前页次大于总页数,则将最大页次赋值到当前页次上
CurrentPage = rs1.PageCount
End If
Else
CurrentPage= 1 '一切条件不成立,将当前页设为第一页
End If
totalPut=rs1.recor
<%
const MaxPerPage=3 '单独页最大记录数 const 用来申明常量
dim totalPut '总记录
dim CurrentPage '当前页次
dim TotalPages '总页数
dim i
%>
<%
if not rs1.eof then '如果记录集游标不在最后一条记录之后则把游标移动到第一条记录结束判断。
rs1.MoveFirst '注意放到前面来,否则到任何页总是在第一个记录上
end if
rs1.pagesize=MaxPerPage '设置每页最多显示多少条记录，把变量maxperpage的值赋给rs1.pagesize
If trim(Request("page"))<>"" then '如果请求的页次不为空，如果接受的变量page值为空则把1赋值给变量currentpage、先把接受来的变量page的值前后两边空格去掉再判断
，其值不为空则把page变量的值转换成长整型再赋值给变量currentpage，如果变量currentpage的值大于总页数则把总页数的值赋给变量currentpage。
CurrentPage= CLng(request("page")) 'clng是转换成长整型数据类型,并赋值到当前页次上
If CurrentPage> rs1.PageCount then '如果当前页次大于总页数,则将最大页次赋值到当前页次上
CurrentPage = rs1.PageCount
End If
Else
CurrentPage= 1 '一切条件不成立,将当前页设为第一页
End If
totalPut=rs1.recor
用不着这么复杂，原理很简单。
page=request.querystring("page")'这里获取页数。
'===========================
'rs打开表部分代码，省...
'===========================
pagesize=20'多少条数据为一页
rs.movefirst'移到第一条记录
rs.pagesize=pagesize
rs.absolutepage=page'当前页
maxcount=Cint(rs.pagecount)'总共多少页,并转换为整数型
do while not rs.eof and cint(howmanyrec)< cint(pagesize)
'===========================
'内容输出部分代码
'==========================
rs.movenext
howmanyrec=howmanyrec+1
loop
'-------------------------开始输出页码
scriptname=request.servervariables("script_name")'获取地址
for counter=1 to maxcount
if counter>=10 then
pad=""
end if
ref="<a href='"&scriptname&"&page=" & counter
ref=ref & "'>" &pad & counter & "</a>"
response.write ref & ""
if