<%
'==============================================================================================
'XDOWNPAGEASP Version
'version 1.00
'Codebyzykj2000
'Email:[email protected]
'BBS:http://bbs.513soft.net
'This program can be used and modified for free. I hope my program can bring convenience to your work
'But please keep the above please refusal
'
'Program Features
'This program mainly encapsulates the data paging part, and the data display part is completely customized by the user.
'Support multiple URL parameters
'
'Instructions for use
'Program Parameter Description
'PapgeSize defines the number of records for each page of the paging page
'GetRS returns a paged Recordset This property is read only
'GetConn gets the database connection
'GetSQL gets query statement
'Program method description
'ShowPage displays the page navigation bar, the only public method
'
'==============================================================================================
ConstBtn_First="<fontface=""webdings"">9</font>"'Define the first page button display style
ConstBtn_Prev="<fontface=""webdings"">3</font>"'Define the button display style on the previous page
ConstBtn_Next="<fontface=""webdings"">4</font>"'Define the next page button display style
ConstBtn_Last="<fontface=""webdings"">:</font>"'Define the last page button display style
ConstXD_Align="Center"' defines the alignment of paging information
ConstXD_Width="100%"' defines the size of the paging information box
ClassXdownpage
PrivateXD_PageCount,XD_Conn,XD_Rs,XD_SQL,XD_PageSize,Str_errors,int_curpage,str_URL,int_totalPage,int_totalRecord,XD_sURL
'===========================================================================================
'PageSize property
'Set the page size for each page
'===========================================================================================
PublicPropertyLetPageSize(int_PageSize)
IfIsNumeric(Int_Pagesize)Then
XD_PageSize=CLng(int_PageSize)
Else
str_error=str_error&"PageSize parameter is incorrect"
ShowError()
EndIf
EndProperty
PublicPropertyGetPageSize
IfXD_PageSize=""or(not(IsNumeric(XD_PageSize))) Then
PageSize=10
Else
PageSize=XD_PageSize
EndIf
EndProperty
'===========================================================================================
'GetRS property
'Return to the paged recordset
'===========================================================================================
PublicPropertyGetGetRs()
SetXD_Rs=Server.createobject("adodb.recordset")