page.asp

来自「物流客户端和管理平台！！！！！！！！！！！！！！！！！！」· ASP 代码 · 共 33 行

<%
''以下一断程序用于分页:
'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 
 
%>