📄 page.asp
字号:
<%
''以下一断程序用于分页:
'lastpagenum:最后一页的记录集数目;
'zspages:总页数;
'zs:总记录数;
'page3,session("page3"):当前分页;
'pages,pa,session("contpa"):每页显示数量
'***************pa=15'分页程序中每页显示数 ,在外部初始化时使用*******************
if not isnumeric(request("pag")) then
page3=1
else
page3=Cint(request("pag"))
end if
if page3<1 then page3=1
session("page3")=page3 '分页数,当前分页
pages=pa '每页显示数量***************以上一段程序用于实现分页功能
zs=rs.recordcount '取得符合条件的记录集总数
lastpagenum=zs mod pages '最后一页的记录集数目
if lastpagenum<>0 then
zspages=int(zs/pages)+1 'zspages为总分页数
else
zspages=int(zs/pages)
end if
if page3>zspages then
page3=1
session("page3")=page3
end if
sn=pages*(page3-1) '当前记录号=每页显示数*页数-每页显示数
if sn>zs then sn=0
rs.move sn,1
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -