Object-oriented ASP programming VII--Paging object (VBScript edition)

<script Language=vbscript runat=server>
' ************************************************************************
' Script Compont Object Model
' Design for Active Server Pages
'
' Copyright Version 2.0
' Made by Ying Guang
' ************************************************************************
function Createcpagenavbar ()
Set Createcpagenavbar=new Cpagenavbar
End Function
Class Cpagenavbar
Public Splitsize ' Paging display capacity
Public Pnwidth
Public pnalign
Public plwidth ' table width
Public plalign ' table alignment
Private PageSize
Private RecordCount ' total record number]
Private PageCount ' total pages
Private CurrentPage ' current page number
The total number of pages displayed in private Splitcount ' pagination
Private currentsplit ' current pagination page numbering
'===============================================================
Private Sub class_initialize ' Setup Initialize event.
splitsize=10
Pnwidth= "100%"
Pnalign= "Right"
Plwidth= "100%"//Table width
Plalign= "right"//table alignment
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 the page is not selected, the first page is displayed by default;
if (not IsNumeric (PageNo)) or pageno= "") Then