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