创建一个ASP通用分页类

一、创建分页类的目标 *}T|T%L4)  
在写之前，我曾想过，我究竟要写怎么样一个类，回想起以前写分页过程的时候，最烦的莫过于每次都要写哪一段复杂的分页代码，最大的烦恼每次都是仅仅几个变量名的不同。所以第一个要实现的就是要把这个封装起来，第二个就是要把分页的导航条也封装起来,第三个，不习惯哪些把数据显示部分也封装起来的方法，这不是方便编程，对与哪些对显示效果每次都不同的用户来说，比自己写分页还要麻烦。所以我的目地就是对RecordSet进行一些简单的封装。 gf?N(,  
3rd8mh&l  
二、创建过程 W;l0GxOxQ  
所以我写的第一个属性，就是返一个经过处理的RecordSe qHtIjtt[q  
Z}t^i^u  
0Lb{HLT  
Public Property Get GetRs() luyu7`  
Set XD_Rs=Server.createobject(adodb.recordset) ,p /{!BX  
XD_Rs.PageSize=PageSize k"C
'8<T)'  
XD_Rs.Open XD_SQL,XD_Conn,1,1 <1B+@  
If not(XD_Rs.eof and XD_RS.BOF) Then [^7P ]olW  
If int_curpage>XD_RS.PageCount Then 42p1P6d  
int_curpage=XD_RS.PageCount KV8<'g+2?  
End If qj `C6_?  
XD_Rs.AbsolutePage=int_curpage |
)C*i  
End If Dv L8}dz  
Set GetRs=XD_RS 8Lgm50bs  
End Property S4?WR+:h  
OZd (~E  
yimK"4!j5A  
这个属性的作用是更据指定RecordSet 的当前面，并到指针指向当前页的第一条记录,这个应该就是整个类的完成分页的核心了，当然，其中的一些参数是靠其它的属性来获取，所以这里顺便介绍一个这个类所要的基本参数
e /1x/v'  
+95v=[t#Ut  
Yi)s=Q:  
============================================= :YOo"3.]  
GetConn 得到数据库连接 %K.rrn M  
N3*1,/,l.  
============================================= F_m' 9KX4E  
Public Property Let GetConn(obj_Conn) TIt\  
Set XD_Conn=obj_Conn HTz`$9  
End Property 1Lk(G9CoY  
ez.a  
============================================= L &hw-.Q  
GetSQL 得到查询语句 W amOg0  
)B)f`(SA"<  
============================================== t1"#L_<e  
Public Property Let GetSQL(str_sql) hvQXYo>TZx  
XD_SQL=str_sql %4Qs|CM)m  
End Property {qbe ye!  
:>r W`= e'  
=============================================== uv<_.Jq]  
PageSize 属性 zx,9x*g  
设置每一页的分页大小 So8 Dwz?  
=============================================== T:zM]%Xh  
Public Property Let PageSize(int_PageSize) :=TIq  
If IsNumeric(Int_Pagesize) Then 1_A_)l11  
XD_PageSize=CLng(int_PageSize) |$e'yx6j  
Else ,G5[?H;ZN  
str_error=str_error & PageSize的参数不正确 mw}Bl; - O  
ShowError() [p~,;%  
End If nxx/26{  
End Property &"I csxG  
Dg"szJ-   
Public Property Get PageSize K)se$vb6  
If XD_PageSize= or (not(IsNumeric(XD_PageSize))) Then FpU8$o~r{  
PageSize=10 Q;!r
N)  
Else m{?f,Q=u@  
PageSize=XD_PageSize uwr7 .\7  
End If Mp>(cs  
End Property 3u4Q!U%(D  
U%q6n"[ Cr  
tl\<:8pI"  
以上几个是在使用类的过程必需要指定的参数，曾经我在写属性的时候对每个传入的参数加上IsObject(obj_conn)等判断，为的是类的健壮，但是后来想来想去，这个对与ASP来说没有必要，不加还能加快点速度，至于为什么这样，我想各位在使用过程中也会发现，加还不如不加。这也是我经过了思想斗争以后才去掉了，只保留了一些必要的验证。 {V[}#Mf  
一个参数就是当前页的获得，在程序中我用int_curpage来标识，这个的话放在类的创建过程中获得在好也没有了
J|DZi2o  
-W<
1BJE  
Gyy4zK  
======================== EwU)(UK  
设定一些参数的黙认值 k.K#i /t  
======================== P\<:.8@$S  
XD_PageSize=10 设定分页的默认值为10 I[v`)T'_{  
======================== W]7/
e  
获取当前面的值 .-/IV^lGv  
======================== .|5$yGEF_+  
If request(page)= Then /
*k_`3L  
int_curpage=1 rQ_@q_B.  
ElseIf not(IsNumeric(request(page))) Then 8.8t$  
int_curpage=1 m&gB;g3:  
ElseIf CInt(Trim(request(page))) X<Z(,B  
3X11Gl  
到这里这个类分的功能基本已经实现了，只要在调用这个类的页面的URL后面加上page=n，它就会显示第n页的内容了，所以接下去要做的就是创建一个数据导航条了，我把它设计为类似以面的形式 R3l{.{3p2  
7`&ISRU4  
l v hJ  
9 3[1] [2] [3] [4] [5] [6] [7] [8] 4 :页次:1/8页 共51条记录 7条/每页 &KAe+~aPm  
{,+c  
Ez0zk9  
在页面里通过调用ShowPage()的方法显示出来，ShowPage可以在GetRS以后的任意位置调用，也可以调用多次 M}#DX=NZc  
H?8'(  
(.V),NKG  
{?IbbT  
Public Sub ShowPage() 9A} *  
Dim str_tmp #Xox2{~  
int_totalRecord=XD_RS.RecordCount rzn,NFI  
If int_totalRecord \yFUQq:  
FX|&o>S(8  
If Int_curpage>int_Totalpage Then {&mHfN  
int_curpage=int_TotalPage >h#w~@e::  
End If J-,ocO  
3^~J;U!3  
===================================================== \#t)B J2  
显示分页信息，各个模块根据自己要求更改显求位置 nHk^trGm  
===================================================== :op_J!;  
response.write |g)>6+?]W  
str_tmp=ShowFirstPrv 显示首页、前一页 F]?] |nZZ  
response.write str_tmp $Oy&POe  
str_tmp=showNumBtn 数字导航 BLO ]78  
response.write str_tmp ?z&%VU"  
str_tmp=ShowNextLast 下一页、末页 lV%1I@[M  
response.write str_tmp _W_< bI34  
str_tmp=ShowPageInfo SeDk/}/~e  
response.write str_tmp Cp"7
R&s  
response.write kVs YB  
end Sub OM&GypP6&  
y^`JWs,  
到这里类的功能才算完整（为了节省版面，我有些方法没有放上去，再下面附上全部完整代码）写一个简单页面测试一下 Y.]$T8  
X_hDU~5{wC  
3u$1W@T(  
CssE8p>"F  
J:glJ'4E  
,r;xH}tbi  
#############类调用样例################# n"6L\u  
创建对象 XDPgl=~  
Set mypage=new xdownpage X(*O$B{ R  
得到数据库连接 bNVeL$'  
mypage.getconn=conn w,FPL&{  
sql语句 HdI)Z<Krp  
mypage.getsql=select * from [test] order by id asc 9%iQ~   
设置每一页的记录条数据为5条 BB(6[V"SV  
mypage.pagesize=5 *Z_4bR4Q  
返回Recordset D\-\U E/  
set rs=mypage.getrs() {#k[-\|;  
显示分页信息，这个方法可以，在set rs=mypage.getrs()以后,可在任意位置调用，可以调用多次 CL4N/
[UM  
mypage.showpage() 8Ejb
/W_  
~8u *sy  
显示数据 "^\q{S&q2P  
Response.Write() s) shq3O  
for i=1 to mypage.pagesize @:9Gs!!  
这里就可以自定义显示方式了 Gb\PubJ  
  if not rs.eof then Dz6xx?  
    response.write rs(0) & 3yKmuu!  
    rs.movenext m\0_1 #(  
  else /~{`!30  
      exit for +)"Rv%.  
  end if > ]^'h  
next l9&k!kF`  
%> 4F6aPo2  
tj[E!  
效果还不错,该有的全有了。 &~Hed_  
!EhKg)y=  
分页过程中，还有一个比软麻烦的问题是，在带多个参数的URL中，如保证在页面转向的时候不掉失其它参数。我靠一个GetURL的过程来实现，并在生成导航时调用。 Nb`qM]&  
(;},~( 2B  
Private Function GetURL() `z0q:ME  
Dim strurl,str_url,i,j,search_str,result_url /GC&@y0yi  
search_str=page= F9u?+y-xb  
strurl=Request.ServerVariables(URL) 5MAfuHq^  
Strurl=split(strurl,/) ^F+7<$2  
i=UBound(strurl,1) TjEXR$:<  
str_url=strurl(i)得到当前页文件名 =#S.t:HQ*  
str_params=Request.ServerVariables(QUERY_STRING) JN|6+.GG  
If str_params= Then 1d<Uwb>  
result_url=str_url & ?page= aY>v  
Else R;c9)>8L  
If InstrRev(str_params,search_str)=0 Then kygw}|, N  
result_url=str_url & ? & str_params &&page= g=56|G7n  
Else $0E+8xE  
j=InstrRev(str_params,search_str)-2 }Pg}"fb^  
If j=-1 Then m"iA#3l*=  
result_url=str_url & ?page= #Or;"}P>fB  
Else o6k#neB>=.  
str_params=Left(str_params,j) $zjdCg<  
result_url=str_url & ? & str_params &&page= Km8aHc]O~  
End If D![v{0er  
End If T+F]hv'  
End If 0\= du  
GetURL=result_url Tn#Co$<  
End Function -$Hu$Y}>  
wgS,U}/i  
F#sm^%_2  
通过GetURL的处理，可以自动的获取当前面的文件名，和所有带的参数，实现了页面转换页不丢失参数。 SXm%X(JU  
RDp  
?1SsF>|  
rm,`M  
转自： ASP教程采集

Set mypage=new xdownpage ){5Nod{}a  
l?U=s7s0?  
亲娘的...这个没看明白. +nDy b  
[8i)/5D4  
丫类是怎么调用的捏?