易心asp分页类v1.0
复制代码代码如下:
<%
classEx_SplitPageCls
'==========================================================================
'易心asp分页类v1.0
'作者:易心QQ:343931221
'个人网站www.ex123.netwww.bo56.com
'演示地址:www.ex123.net/show/page
'转载请保留此信息
'==========================================================================
dimEx_Rs
dimEx_columns'要提取的字段
dimEx_datafrom'数据表名
dimEx_strWhere'记录筛选条件
dimEx_order'sql排序
dimEx_idcount'记录总数
dimEx_pageSize'每页条数
dimEx_pageCount'总页数
dimEx_ids'获得本页要用到的id
dimEx_Sql'构造的sql语句
dimEx_page'当前显示页码
dimEx_Conn'数据库联接对象
dimEx_index'数据库记录当前位置
dimEx_id'主键字段
privatesubclass_initialize
setEx_Rs=server.CreateObject("adodb.recordset")
Ex_id="id"
Ex_pageSize=20
endsub
privatesubclass_terminate
Ex_rs.close
setEx_rs=nothing
endsub
'属性赋值:
publicpropertyletletConn(str)
Ex_conn=str
endproperty
'属性赋值:sql语句要查询的字段带select
publicpropertyletletColumns(str)
Ex_Columns=str
endproperty
'属性赋值:sql语句筛选条件部分带where
publicpropertyletletWhere(str)
Ex_strWhere=str
endproperty
'属性赋值:sql语句数据表带from
publicpropertyletletDataFrom(str)
Ex_dataFrom=str
endproperty
'属性赋值:sql语句排序部分带orderby
publicpropertyletletOrder(str)
Ex_order=str
endproperty
'属性赋值:每页记录数
publicpropertyletletPageSize(str)
Ex_pageSize=str
endproperty
'属性赋值:当前页数
publicpropertyletletPage(str)
Ex_page=str
endproperty
'属性赋值:主表主键字段
publicpropertyletletId(str)
Ex_Id=str