一、创建分页类的目标 o< b
在写之前,我曾想过,我究竟要写怎么样一个类,回想起以前写分页过程的时候,最烦的莫过于每次都要写哪一段复杂的分页代码,最大的烦恼每次都是仅仅几个变量名的不同。所以第一个要实现的就是要把这个封装起来,第二个就是要把分页的导航条也封装起来,第三个,不习惯哪些把数据显示部分也封装起来的方法,这不是方便编程,对与哪些对显示效果每次都不同的用户来说,比自己写分页还要麻烦。所以我的目地就是对RecordSet进行一些简单的封装。 fCa
lR7!
`mkOjsj &
二、创建过程 :V8oWMY
所以我写的第一个属性,就是返一个经过处理的RecordSe :TrP3wV_
'\H
& EJ'
>a@1y8B
Public Property Get GetRs() uYTyR;a
Set XD_Rs=Server.createobject(adodb.recordset) =2Ju)!%wr
XD_Rs.PageSize=PageSize -X
EK[
XD_Rs.Open XD_SQL,XD_Conn,1,1 >CCy2W^W
If not(XD_Rs.eof and XD_RS.BOF) Then s,J\nbj0h
If int_curpage>XD_RS.PageCount Then f[zKA{R
int_curpage=XD_RS.PageCount ,9|7{j|u
End If v'L"sgW6I
XD_Rs.AbsolutePage=int_curpage d;%~\+)x4
End If (|W6p%(
Set GetRs=XD_RS GLY,<O>D5
End Property Gyu =}
L_Z`UhD3{
-{3^~vW|<
这个属性的作用是更据指定RecordSet 的当前面,并到指针指向当前页的第一条记录,这个应该就是整个类的完成分页的核心了,当然,其中的一些参数是靠其它的属性来获取,所以这里顺便介绍一个这个类所要的基本参数 $LR~c)}1I
#\~m}O,
{w>ofyqfp&
============================================= CNiJuj`
GetConn 得到数据库连接
fNr*\=$
U&kdR+dB
============================================= Mn\L55?E(
Public Property Let GetConn(obj_Conn) :@~3wD[y
Set XD_Conn=obj_Conn ">|L<
End Property Qm3RXO
W*c^(W
============================================= 1%.CtTi
GetSQL 得到查询语句 ~O;?;@
%|}7YH41
============================================== l5e`m^GK
Public Property Let GetSQL(str_sql) IxG0TJ_
XD_SQL=str_sql C/"Wh=h6
End Property ORo +]9)Yv
tchpO3u,
=============================================== MoC/xF&
PageSize 属性 NnZ_x>R
设置每一页的分页大小 :v-,-3AG
=============================================== mX
SLH'
Public Property Let PageSize(int_PageSize) : B/u>
If IsNumeric(Int_Pagesize) Then 7Il
/+l(
XD_PageSize=CLng(int_PageSize) .@(MNq{"6
Else Ky7-6$
str_error=str_error & PageSize的参数不正确 ^oHK.x#{
ShowError() nNM)rW
End If "^pF2JI
End Property 5tbi};
A-hWg;
Public Property Get PageSize Th])jQ*
If XD_PageSize= or (not(IsNumeric(XD_PageSize))) Then Y%rC\Ij/i
PageSize=10 =>C3IR/
Else [Az^i>iH
PageSize=XD_PageSize nRZ T~S4
End If Qa16x<Xlm
End Property x JzO?a'
. =A|
">I50#bT
以上几个是在使用类的过程必需要指定的参数,曾经我在写属性的时候对每个传入的参数加上IsObject(obj_conn)等判断,为的是类的健壮,但是后来想来想去,这个对与ASP来说没有必要,不加还能加快点速度,至于为什么这样,我想各位在使用过程中也会发现,加还不如不加。这也是我经过了思想斗争以后才去掉了,只保留了一些必要的验证。 () HIcu*i
一个参数就是当前页的获得,在程序中我用int_curpage来标识,这个的话放在类的创建过程中获得在好也没有了 4s&koH(x
`4]-B@
7_
Yi"jj;!^S
======================== D/zp_9B
设定一些参数的黙认值 QEL3b4Vm
======================== 1K$8F ~%Z
XD_PageSize=10 设定分页的默认值为10 47/YDy%
======================== `WU"*HqW
获取当前面的值 1lUY27MF
======================== z 2V_nkI
If request(page)= Then hzk]kM/OC
int_curpage=1 iGeuO[^
ElseIf not(IsNumeric(request(page))) Then F[|aDj@q e
int_curpage=1 |w^nCsv
ElseIf CInt(Trim(request(page))) 0wl31k{
r+l3J>:K
到这里这个类分的功能基本已经实现了,只要在调用这个类的页面的URL后面加上page=n,它就会显示第n页的内容了,所以接下去要做的就是创建一个数据导航条了,我把它设计为类似以面的形式 q(@hYp#O"3
i3y>@$fRL\
'v3>"b
9 3[1] [2] [3] [4] [5] [6] [7] [8] 4 :页次:1/8页 共51条记录 7条/每页 ZYW=#df R
b~;+E#[*
a
U*cwR
在页面里通过调用ShowPage()的方法显示出来,ShowPage可以在GetRS以后的任意位置调用,也可以调用多次 Yyh X%S %
{wfe!f
[.iz<Yh
oxm3R8S
Public Sub ShowPage() hz+x)M`Y
Dim str_tmp
OGO4~Up
int_totalRecord=XD_RS.RecordCount $5l=&
If int_totalRecord T%:W6fH7
<N;HB&mr
If Int_curpage>int_Totalpage Then B1gBvss
int_curpage=int_TotalPage
t"'aQr
End If Y_&