创建一个ASP通用分页类

一、创建分页类的目标 H/k]u)Gtv  
在写之前，我曾想过，我究竟要写怎么样一个类，回想起以前写分页过程的时候，最烦的莫过于每次都要写哪一段复杂的分页代码，最大的烦恼每次都是仅仅几个变量名的不同。所以第一个要实现的就是要把这个封装起来，第二个就是要把分页的导航条也封装起来,第三个，不习惯哪些把数据显示部分也封装起来的方法，这不是方便编程，对与哪些对显示效果每次都不同的用户来说，比自己写分页还要麻烦。所以我的目地就是对RecordSet进行一些简单的封装。 _z1Qr?cY  
5j\Kej  
二、创建过程 C(UWir3mW?  
所以我写的第一个属性，就是返一个经过处理的RecordSe Spu;  
TU;AO%5  
_yF@k~ h  
Public Property Get GetRs() @=2u;$.  
Set XD_Rs=Server.createobject(adodb.recordset) Hzc}NyJ  
XD_Rs.PageSize=PageSize }x&XvI  
XD_Rs.Open XD_SQL,XD_Conn,1,1 KS1udH^Zc  
If not(XD_Rs.eof and XD_RS.BOF) Then n2:Uu>/  
If int_curpage>XD_RS.PageCount Then HR?bnkv|id  
int_curpage=XD_RS.PageCount {U@"]{3Qx  
End If ,\i,2<hz.  
XD_Rs.AbsolutePage=int_curpage y~Yv^'Epf  
End If OH@gwC  
Set GetRs=XD_RS X"mPRnE330  
End Property >rSCf=  
LpI4R  
^hr# 1  
这个属性的作用是更据指定RecordSet 的当前面，并到指针指向当前页的第一条记录,这个应该就是整个类的完成分页的核心了，当然，其中的一些参数是靠其它的属性来获取，所以这里顺便介绍一个这个类所要的基本参数 sva-Sd8  
&y7=tEV  
etUfdZ  
============================================= K>5bb  
GetConn 得到数据库连接 u\/TR#b  
\So)g)K  
============================================= cvf?ID84  
Public Property Let GetConn(obj_Conn) Jr%F#/  
Set XD_Conn=obj_Conn 8N$Xq\Da+>  
End Property d>T8V(Bb  
/;:4$2R(;  
============================================= J_j4Zb% K  
GetSQL 得到查询语句 >e(@!\ x  
MxUQF?@6  
============================================== /?0|hi<_$  
Public Property Let GetSQL(str_sql) #%8)'=1+4?  
XD_SQL=str_sql L]Xx
-S  
End Property uhnnjI  
]JvjM,  
=============================================== H|,d`@U  
PageSize 属性 :7X{s4AU6  
设置每一页的分页大小 mey -Bn  
=============================================== @HnahD  
Public Property Let PageSize(int_PageSize) !KT.p2\  
If IsNumeric(Int_Pagesize) Then \Tn
K<83  
XD_PageSize=CLng(int_PageSize) L?P[{Ohh/  
Else gz uWhQo  
str_error=str_error & PageSize的参数不正确 "pcr-
?L  
ShowError() :8
hXkQ  
End If b$p
Cp`/MT  
End Property /J Y6S  
1}SON4U  
Public Property Get PageSize k_Sm ep  
If XD_PageSize= or (not(IsNumeric(XD_PageSize))) Then 7q 5 \]J[  
PageSize=10 ?)-anoFyVW  
Else ?' mP`9I  
PageSize=XD_PageSize W5()A,R  
End If ??|,wIRz  
End Property )7-mALyW  
8Fbt >-N<\  
n{qVF#N_  
以上几个是在使用类的过程必需要指定的参数，曾经我在写属性的时候对每个传入的参数加上IsObject(obj_conn)等判断，为的是类的健壮，但是后来想来想去，这个对与ASP来说没有必要，不加还能加快点速度，至于为什么这样，我想各位在使用过程中也会发现，加还不如不加。这也是我经过了思想斗争以后才去掉了，只保留了一些必要的验证。 DY/%|w*L  
一个参数就是当前页的获得，在程序中我用int_curpage来标识，这个的话放在类的创建过程中获得在好也没有了 X+ybgB4(  
:/Z1$xS  
Fo5UG2E&  
======================== ACFE
M9 [=  
设定一些参数的黙认值 F9(jx#J~t  
======================== (KfQ'B+  
XD_PageSize=10 设定分页的默认值为10 cRCji^,KJ  
======================== "(~fl<;  
获取当前面的值 |5q,%9_  
======================== D vN0h(?  
If request(page)= Then paYS<8In  
int_curpage=1 G9#3 |B-?  
ElseIf not(IsNumeric(request(page))) Then vXSA_"0t  
int_curpage=1 QW_v\GHx  
ElseIf CInt(Trim(request(page))) 7fd,I%v  
jROh3kq  
到这里这个类分的功能基本已经实现了，只要在调用这个类的页面的URL后面加上page=n，它就会显示第n页的内容了，所以接下去要做的就是创建一个数据导航条了，我把它设计为类似以面的形式 (JE&1 @  
%m/5! "  
Jvj* z6/a  
9 3[1] [2] [3] [4] [5] [6] [7] [8] 4 :页次:1/8页 共51条记录 7条/每页 (y\.uPu!  
C\;%IGn  
Nv=%R  
在页面里通过调用ShowPage()的方法显示出来，ShowPage可以在GetRS以后的任意位置调用，也可以调用多次 y1Wb/ d  
\q^dhY>)  
4(Y-TFaf  
uKJo5%>  
Public Sub ShowPage() EpCNp FQT<  
Dim str_tmp $bBUL C  
int_totalRecord=XD_RS.RecordCount CG J_k?h  
If int_totalRecord sebuuL.l0<  
jxq89x  
If Int_curpage>int_Totalpage Then 5-'Z.[ImB?  
int_curpage=int_TotalPage 8{7'w|/;.{  
End If 9I#a{%A:  
%+#l{\z  
===================================================== An,TunX  
显示分页信息，各个模块根据自己要求更改显求位置 %+;amRb  
===================================================== <iH"5DEe  
response.write 63t'|9^5  
str_tmp=ShowFirstPrv 显示首页、前一页 -:Juxh  
response.write str_tmp !HW?/-\,O  
str_tmp=showNumBtn 数字导航 qA25P<  
response.write str_tmp [s%uE+``S  
str_tmp=ShowNextLast 下一页、末页 g(S4i%\  
response.write str_tmp |uRYejj#j  
str_tmp=ShowPageInfo G!Y7RjWD  
response.write str_tmp >{rD3X"d  
response.write r-[YJzf@P  
end Sub 9):^[Wkx  
}Py Z{yS  
到这里类的功能才算完整（为了节省版面，我有些方法没有放上去，再下面附上全部完整代码）写一个简单页面测试一下 [Z1,~(3  
fq)
:'E)  
bQu@.'O!k  
bZ+Hu~  
u2U+uD@yA  
_PP-'^ U  
#############类调用样例################# 7L]Y.7>  
创建对象 ^~bAixH^k  
Set mypage=new xdownpage cz$*6P<9J  
得到数据库连接 k4"O}jQO  
mypage.getconn=conn !P
d)  
sql语句 Q[aBxy (  
mypage.getsql=select * from [test] order by id asc =RlAOgJ  
设置每一页的记录条数据为5条 |4` ;G(ta  
mypage.pagesize=5 sX`by\s,  
返回Recordset #
g1,U7vv8  
set rs=mypage.getrs() mP_c-qD |  
显示分页信息，这个方法可以，在set rs=mypage.getrs()以后,可在任意位置调用，可以调用多次 d#I; e  
mypage.showpage() %6:"
tuA  
C33RXt$X  
显示数据 i/,IG+4vI  
Response.Write() d! _8+~  
for i=1 to mypage.pagesize -e*(+  
这里就可以自定义显示方式了 - KaU@t  
  if not rs.eof then cA!o xti  
    response.write rs(0) &  '^,|8A2  
    rs.movenext uC 2
{ Mmy  
  else 0qN+W&H  
      exit for rp!{QG  
  end if -{$L`{|G  
next ,mt=)Ac  
%> "Y=4Y;5q  
3rx8"  
效果还不错,该有的全有了。  ;W@  
r+i=P_p  
分页过程中，还有一个比软麻烦的问题是，在带多个参数的URL中，如保证在页面转向的时候不掉失其它参数。我靠一个GetURL的过程来实现，并在生成导航时调用。 (.g?|c  
"^VPe[lA  
Private Function GetURL() 1?".R]<{2T  
Dim strurl,str_url,i,j,search_str,result_url OkQtM nq  
search_str=page= K|rG&#1J  
strurl=Request.ServerVariables(URL) YH0utc  
Strurl=split(strurl,/) 6CNxb
  
i=UBound(strurl,1) kfkcaj4l]  
str_url=strurl(i)得到当前页文件名 9?+?V}o  
str_params=Request.ServerVariables(QUERY_STRING) \U HI%1^  
If str_params= Then z?C&,mv
 
result_url=str_url & ?page= R!RgQwEak  
Else U#(#U0s*-  
If InstrRev(str_params,search_str)=0 Then U)qG]RI  
result_url=str_url & ? & str_params &&page= jd}-&DN  
Else 1u_< 1X3  
j=InstrRev(str_params,search_str)-2 j\uPOn8k  
If j=-1 Then >s>{+6e  
result_url=str_url & ?page= Uc]sWcR  
Else x I(X+d``  
str_params=Left(str_params,j) Y;>D"C..  
result_url=str_url & ? & str_params &&page= j55OG~)  
End If 5_Oxl6#  
End If p4wx&VLi
 
End If Q;2n  
GetURL=result_url |@pn=wW  
End Function G@1T!`  
|SwW*C  
I8  
通过GetURL的处理，可以自动的获取当前面的文件名，和所有带的参数，实现了页面转换页不丢失参数。 E:$r" oS  
OF1Qr bj  
j>|mpfU  
I?Q[ZH:M  
转自： ASP教程采集

Set mypage=new xdownpage &K-0ld(;  
t@3y9U$  
亲娘的...这个没看明白. OEXa^M4x   
>vfbXnN  
丫类是怎么调用的捏?