一、创建分页类的目标 z xgDaT
在写之前,我曾想过,我究竟要写怎么样一个类,回想起以前写分页过程的时候,最烦的莫过于每次都要写哪一段复杂的分页代码,最大的烦恼每次都是仅仅几个变量名的不同。所以第一个要实现的就是要把这个封装起来,第二个就是要把分页的导航条也封装起来,第三个,不习惯哪些把数据显示部分也封装起来的方法,这不是方便编程,对与哪些对显示效果每次都不同的用户来说,比自己写分页还要麻烦。所以我的目地就是对RecordSet进行一些简单的封装。 0I)eYksh
g:^Hex?Yfd
二、创建过程 =H-BsX?P
所以我写的第一个属性,就是返一个经过处理的RecordSe /5KY6XxR
oeVI 6-_S
rf/]VAK
Public Property Get GetRs() 'D+njxCk.A
Set XD_Rs=Server.createobject(adodb.recordset) $XyDw|z[
XD_Rs.PageSize=PageSize c-~i=C]
XD_Rs.Open XD_SQL,XD_Conn,1,1 &6GW9pl[
If not(XD_Rs.eof and XD_RS.BOF) Then 4D.h~X4
If int_curpage>XD_RS.PageCount Then ,~=+]9t
int_curpage=XD_RS.PageCount abVEi[nP
End If X.e4pLwGK
XD_Rs.AbsolutePage=int_curpage uf)!SxT
End If Ayw {I#"
Set GetRs=XD_RS Ng&K5