Yixin asp paging class v1.0
The code copy is as follows:
<%
classEx_SplitPageCls
'===========================================================================================================
'Yixin asp paging class v1.0
'Author: Yi Xin QQ: 343931221
'Personal website www.ex123.netwww.bo56.com
'Demo address: www.ex123.net/show/page
'Please keep this information when reprinting
'===========================================================================================================
dimEx_Rs
dimEx_columns' field to be extracted
dimEx_datafrom'data table name
dimEx_strWhere' record filter
dimEx_order'sql sort
dimEx_idcount'Total number of records
dimEx_pageSize'Number of per page
dimEx_pageCount'Total Pages Number
dimEx_ids'Get the id to use on this page
dimEx_Sql' constructed sql statement
dimEx_page'Current display page number
dimEx_Conn' database join object
dimEx_index' database record current location
dimEx_id' primary key field
privatesubclass_initialize
setEx_Rs=server.CreateObject("adodb.recordset")
Ex_id="id"
Ex_pageSize=20
endsub
privatesubclass_terminate
Ex_rs.close
setEx_rs=nothing
endsub
'Attribute assignment:
publicpropertyletletConn(str)
Ex_conn=str
endproperty
'Attribute assignment: The field to be queryed by the sql statement is selected
publicpropertyletletColumns(str)
Ex_Columns=str
endproperty
'Attribute assignment: The filtering condition part of the sql statement is where
publicpropertyletletWhere(str)
Ex_strWhere=str
endproperty
'Attribute assignment: sql statement data strap from
publicpropertyletletDataFrom(str)
Ex_dataFrom=str
endproperty
'Attribute assignment: The sql statement sorting part has orderby
publicpropertyletletOrder(str)
Ex_order=str
endproperty
'Attribute assignment: Number of records per page
publicpropertyletletPageSize(str)
Ex_pageSize=str
endproperty
'Attribute assignment: current page number
publicpropertyletletPage(str)
Ex_page=str
endproperty
'Attribute assignment: Primary table primary key field
publicpropertyletletId(str)
Ex_Id=str