物件導向的asp編程之七--分頁對象(vbscript版)

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
' ************************************************************************
' Script Compont Object Model
' Design for Active Server Pages
'
' Copyright 2004 Version 2.0
' Made by 尹曙光
' ************************************************************************
function CreateCPageNavbar()
set CreateCPageNavbar=new CPageNavbar
end function
Class CPageNavbar
Public SplitSize '分頁顯示的容量
public PnWidth
public PnAlign
public PlWidth '表格寬度
public PlAlign ' 表格的對齊
private PageSize
private RecordCount '總記錄數]
private PageCount '總頁數
private CurrentPage '當前的頁碼
private SplitCount '分頁的顯示的總頁數
private CurrentSplit '當前的分頁的分頁碼
'===============================================================
Private Sub Class_Initialize ' Setup Initialize event.
SplitSize=10
PnWidth="100%"
PnAlign="right"
PlWidth="100%" //表格寬度
PlAlign="right" // 表格的對齊
PageSize=0
RecordCount=0
CurrentPage=1
PageCount=1
SplitCount=1
CurrentSplit=1
End Sub
Private Sub Class_Terminate ' Setup Terminate event.
End Sub

public sub InitPageNavbar(byval iPageSize,byval iRecordCount)
PageSize=cint(iPageSize)
RecordCount=clng(iRecordCount)
PageCount=fix(RecordCount/PageSize)+1
SplitCount=fix(PageCount/SplitSize)+1
end sub
public function GetCurrentPage()
'on error resume next
dim pageNo
pageNo =trim(Request.QueryString ("_Page_No_"))
'如果沒有選擇第幾頁，則預設顯示第一頁；
if ( (not IsNumeric(pageNo)) or pageNo="") then