易心asp分页类 v1.0

　　易心asp分页类v1.0
复制代码 代码如下:
<%
classEx_SplitPageCls
==========================================================================
易心asp分页类v1.0
作者:易心QQ:343931221
个人网站
演示地址:
转载请保留此信息
==========================================================================
dimEx_Rs
dimEx_columns要提取的字段
dimEx_datafrom数据表名
dimEx_strWhere记录筛选条件
dimEx_ordersql排序
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
endproperty
属性:获得记录总数
publicpropertygetgetRsCount
getRsCount=Ex_idCount
endproperty
属性:获得页总数
publicpropertygetgetPageCount
if(Ex_idcount>0)then如果记录总数=0,则不处理
if(Ex_idcountmodEx_pageSize=0)then如果记录总数除以每页条数有余数,则=记录总数/每页条数+1
Ex_pageCount=int(Ex_idcount/Ex_pageSize)获取总页数
else
Ex_pagecount=int(Ex_idcount/Ex_pageSize)+1获取总页数
endif
getPageCount=Ex_pagecount
else
getPageCount=0
endif
endproperty
属性:获得当前页数
publicpropertygetgetPage
getPage=Ex_Page
endproperty
获得本页要用到的id
privatesubids
dimi
Ex_sql=select&Ex_Id&&Ex_datafrom&&&Ex_strWhere&&Ex_order
Ex_rs.openEx_sql,Ex_conn,1,1
ifnotEx_Rs.eofandnotEx_Rs.bofthen
Ex_rs.pagesize=Ex_pageSize每页显示记录数
Ex_Rs.absolutepage=CInt(Ex_Page)
Ex_idcount=Ex_rs.recordcount
ifEx_page<1thenEx_page=1
ifEx_page>Ex_pagecountthenEx_page=Ex_pageCount
ifEx_pageCount>0thenEx_rs.absolutepage=Ex_page
fori=1toEx_rs.pagesize
ifEx_rs.eofthenexitfor
if(i=1)then
Ex_Ids=Ex_rs(id)
else
Ex_Ids=Ex_Ids&,&Ex_rs(id)
endif
Ex_rs.movenext
next
endif
Ex_Rs.close
endsub
返回本页要用到的记录集
publicfunctionexecute
ids
Ex_Sql=Ex_Columns&&Ex_dataFrom&&Ex_strWhere&andidin(&Ex_ids&)&Ex_order
Ex_Rs.openEx_Sql,Ex_conn,1,1
Setexecute=Ex_Rs
endfunction
endclass
%>