Public Sub ShowPage()
Dim str_tmp
int_totalRecord=XD_RS.RecordCount
If int_totalRecord<=0 Then
  str_error=str_error & "總記錄數(shù)為零，請(qǐng)輸入數(shù)據(jù)"
  Call ShowError()
End If
If int_totalRecord="" Then
  int_TotalPage=1
Else
  If int_totalRecord mod PageSize =0 Then
int_TotalPage = CLng(int_TotalRecord / XD_PageSize * -1)*-1
  Else
int_TotalPage = CLng(int_TotalRecord / XD_PageSize * -1)*-1+1
  End If
End If

If Int_curpage>int_Totalpage Then
  int_curpage=int_TotalPage
End If

'=====================================================
'顯示分頁信息，各個(gè)模塊根據(jù)自己要求更改顯求位置
'=====================================================
response.write "
str_tmp=ShowFirstPrv '顯示首頁、前一頁
response.write str_tmp 
str_tmp=showNumBtn '數(shù)字導(dǎo)航
response.write str_tmp
str_tmp=ShowNextLast  '下一頁、末頁
response.write str_tmp
str_tmp=ShowPageInfo
response.write str_tmp
response.write ""
end Sub

<% 
’把分頁類包含進(jìn)來
set conn = server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq=" & server.Mappath("pages.mdb")

'#############類調(diào)用樣例#################
'創(chuàng)建對(duì)象
Set mypage=new xdownpage
'得到數(shù)據(jù)庫連接
mypage.getconn=conn
'sql語句
mypage.getsql="select * from [test] order by id asc"
'設(shè)置每一頁的記錄條數(shù)據(jù)為5條
mypage.pagesize=5
'返回Recordset
set rs=mypage.getrs()
'顯示分頁信息，這個(gè)方法可以，在set rs=mypage.getrs()以后,可在任意位置調(diào)用，可以調(diào)用多次
mypage.showpage()

'顯示數(shù)據(jù)
Response.Write("<br/>")
for i=1 to mypage.pagesize
'這里就可以自定義顯示方式了
    if not rs.eof then
        response.write rs(0) & "<br/>"
        rs.movenext
    else
         exit for
    end if
next
%>