创建一个ASP通用分页类

一、创建分页类的目标 1mw<$'pm0  
在写之前，我曾想过，我究竟要写怎么样一个类，回想起以前写分页过程的时候，最烦的莫过于每次都要写哪一段复杂的分页代码，最大的烦恼每次都是仅仅几个变量名的不同。所以第一个要实现的就是要把这个封装起来，第二个就是要把分页的导航条也封装起来,第三个，不习惯哪些把数据显示部分也封装起来的方法，这不是方便编程，对与哪些对显示效果每次都不同的用户来说，比自己写分页还要麻烦。所以我的目地就是对RecordSet进行一些简单的封装。 lx<]v^  
X@u-n_  
二、创建过程 M[ea!an  
所以我写的第一个属性，就是返一个经过处理的RecordSe Ku{DdiTg>  
L]o 5=K  
?XVJ$nzW  
Public Property Get GetRs() utq*<,^  
Set XD_Rs=Server.createobject(adodb.recordset) C LhD[/Fo  
XD_Rs.PageSize=PageSize UE4zmIq  
XD_Rs.Open XD_SQL,XD_Conn,1,1 h' OLj#H  
If not(XD_Rs.eof and XD_RS.BOF) Then $x&\9CRM  
If int_curpage>XD_RS.PageCount Then |BD]K0  
int_curpage=XD_RS.PageCount X!0s__IOc  
End If V~y4mpfX  
XD_Rs.AbsolutePage=int_curpage djVE x}  
End If eATX8`
W  
Set GetRs=XD_RS E
M+_c)d}  
End Property !$'s?rnh  
j|f$:j  
fDmGgD?  
这个属性的作用是更据指定RecordSet 的当前面，并到指针指向当前页的第一条记录,这个应该就是整个类的完成分页的核心了，当然，其中的一些参数是靠其它的属性来获取，所以这里顺便介绍一个这个类所要的基本参数 %(`4wo},  
RHo|&.B;+  
ZbJUOa?W
F  
============================================= xN\PQ,J  
GetConn 得到数据库连接 iw|6w,-)C  
pQaP9Y{OK  
============================================= 4C&L%A  
Public Property Let GetConn(obj_Conn) ]9?_m@Ihx  
Set XD_Conn=obj_Conn ^
F<[5e)M  
End Property ZFy>Z:&S,  
`F:PWG`  
============================================= G`
NH
~C  
GetSQL 得到查询语句 }SHF  
W! FmC$Kc  
============================================== }Y(yDg;"  
Public Property Let GetSQL(str_sql) 3Q^@!hu  
XD_SQL=str_sql ?^9TtxM  
End Property 1!. CfQi  
8Ua;< h%  
=============================================== Do}mCv  
PageSize 属性 %J\1W"I?  
设置每一页的分页大小 ^+:_S9qst  
===============================================
9 |Iq&S  
Public Property Let PageSize(int_PageSize) q2}<n'o+  
If IsNumeric(Int_Pagesize) Then FJ3Xeos4|  
XD_PageSize=CLng(int_PageSize) ,[IN9W  
Else S2)rkX
$  
str_error=str_error & PageSize的参数不正确 .}.5|z} A  
ShowError() yKEE @@}\  
End If zO`54^  
End Property u]P0:)tS.  
/ve8);cH\  
Public Property Get PageSize VIL #q  
If XD_PageSize= or (not(IsNumeric(XD_PageSize))) Then Ml8'=KN_  
PageSize=10 \HFh?3-g  
Else  m?hC!n>  
PageSize=XD_PageSize E)%]?/w  
End If &*Eyw s  
End Property 8cy#[{u`;  
95giqQ(N  
F9]j{'#  
以上几个是在使用类的过程必需要指定的参数，曾经我在写属性的时候对每个传入的参数加上IsObject(obj_conn)等判断，为的是类的健壮，但是后来想来想去，这个对与ASP来说没有必要，不加还能加快点速度，至于为什么这样，我想各位在使用过程中也会发现，加还不如不加。这也是我经过了思想斗争以后才去掉了，只保留了一些必要的验证。 Y7)YJI  
一个参数就是当前页的获得，在程序中我用int_curpage来标识，这个的话放在类的创建过程中获得在好也没有了 k3se<NL[  
+x$;T*0  
x
Kz^J SF  
======================== ;pdW7  
设定一些参数的黙认值 { hUbK+dKZ  
======================== OL*EY:]  
XD_PageSize=10 设定分页的默认值为10 9I/o;Js  
======================== +`Bm  
获取当前面的值 ulsr)Ik  
======================== b w5|gmO  
If request(page)= Then +O:Qw[BL/Z  
int_curpage=1 @=)_P
G  
ElseIf not(IsNumeric(request(page))) Then W&y%fd\&3  
int_curpage=1 VA_\Z  
ElseIf CInt(Trim(request(page))) LRD71*/  
( B$;'U<  
到这里这个类分的功能基本已经实现了，只要在调用这个类的页面的URL后面加上page=n，它就会显示第n页的内容了，所以接下去要做的就是创建一个数据导航条了，我把它设计为类似以面的形式 bh:;ovH  
0q"&AxNsP  
Nzz" w_#  
9 3[1] [2] [3] [4] [5] [6] [7] [8] 4 :页次:1/8页 共51条记录 7条/每页 uj_u
j!  
( 3IM7
 
6l IFxc  
在页面里通过调用ShowPage()的方法显示出来，ShowPage可以在GetRS以后的任意位置调用，也可以调用多次 s]0x^"#B  
@#
ih;F  
EKf"e*|(L  
*nDyB.(  
Public Sub ShowPage() f+Nq?GvwBQ  
Dim str_tmp CDei+ q  
int_totalRecord=XD_RS.RecordCount '6u;KIG
 
If int_totalRecord I'G$:GX  
AEm?g$a  
If Int_curpage>int_Totalpage Then KcP86H52I  
int_curpage=int_TotalPage S'vi +_  
End If DGdSu6s$  
-8Z%5W`  
===================================================== zLuej'  
显示分页信息，各个模块根据自己要求更改显求位置 @Y*ONnl  
=====================================================  3+"z  
response.write y1^<!I  
str_tmp=ShowFirstPrv 显示首页、前一页 RH^8"%\  
response.write str_tmp mKynp  
str_tmp=showNumBtn 数字导航 "y/GK1C  
response.write str_tmp yWu80C8q  
str_tmp=ShowNextLast 下一页、末页 ,6,#Lc  
response.write str_tmp 25h.u>6@{  
str_tmp=ShowPageInfo X:+;d8rCy  
response.write str_tmp E N%cjvE  
response.write  Aki8#  
end Sub  {[o=df/  
5>4<_-Tm  
到这里类的功能才算完整（为了节省版面，我有些方法没有放上去，再下面附上全部完整代码）写一个简单页面测试一下 R1/)Yy  
<9YRSE[Ed  
3t[2Bd  
K=VYRY  
VWd=7  
#Zk6   
#############类调用样例################# %0@Jm)K^  
创建对象 Lm"a3Nb  
Set mypage=new xdownpage RvvK`}/6  
得到数据库连接 Q&^ti)vB  
mypage.getconn=conn ]H)
x
 
sql语句 )#Ea~>
v  
mypage.getsql=select * from [test] order by id asc 5YMjvhr?W  
设置每一页的记录条数据为5条 ` :Am#"j]}  
mypage.pagesize=5 Dms6"x2  
返回Recordset Xm*gH, '  
set rs=mypage.getrs() ~c,HE] B  
显示分页信息，这个方法可以，在set rs=mypage.getrs()以后,可在任意位置调用，可以调用多次 )P@t,mxW/  
mypage.showpage() v! uD]}  
3,e^;{w  
显示数据 cD Z]r@AQ  
Response.Write() 0Z8K+,'!  
for i=1 to mypage.pagesize rgdDkWLXC  
这里就可以自定义显示方式了 dGf{d7D  
  if not rs.eof then G/\t<>O8o  
    response.write rs(0) & )nJs9}( 0  
    rs.movenext i[@*b/A  
  else {e0cc1Up}  
      exit for 6;9SU+
/  
  end if :CNWHF4$  
next HlgF%\@a+U  
%> 4StiY
fae  
0RN]_z$;H  
效果还不错,该有的全有了。 z%(m:/N70  
9a"[-B:  
分页过程中，还有一个比软麻烦的问题是，在带多个参数的URL中，如保证在页面转向的时候不掉失其它参数。我靠一个GetURL的过程来实现，并在生成导航时调用。 `] ;*k2  
N^xnx<  
Private Function GetURL() ])egke\!  
Dim strurl,str_url,i,j,search_str,result_url o X )r4H?  
search_str=page= 6:i{_YX(.S  
strurl=Request.ServerVariables(URL) QNJ )HNLp  
Strurl=split(strurl,/) _CDUUr  
i=UBound(strurl,1) Ly/"da  
str_url=strurl(i)得到当前页文件名 nJY#d;  
str_params=Request.ServerVariables(QUERY_STRING) 7"wr8  
If str_params= Then L+7L0LbNU  
result_url=str_url & ?page= TB\#frG  
Else EyA}  
If InstrRev(str_params,search_str)=0 Then ie{9zO<d  
result_url=str_url & ? & str_params &&page= kUUey
q  
Else v4=9T<[  
j=InstrRev(str_params,search_str)-2 i]a 5cn  
If j=-1 Then rg)>ZHx  
result_url=str_url & ?page= x6\EU=
,  
Else AK%`EsI^  
str_params=Left(str_params,j) l_5]~N  
result_url=str_url & ? & str_params &&page= *=mtt^yZ  
End If g"c\ouSY  
End If xX*I.saK  
End If $3zs?Fd`  
GetURL=result_url @~hiL(IR'  
End Function j[k&O)A{C
 
A
'rfoA6  
2Kovvh y#  
通过GetURL的处理，可以自动的获取当前面的文件名，和所有带的参数，实现了页面转换页不丢失参数。 (4o_\&  
o(Yfnnuy  

Pqli3(  
URdCV{@42  
转自： ASP教程采集

Set mypage=new xdownpage G?)NDRM  
<]xGd!x$  
亲娘的...这个没看明白. _>+!&_h  
q@8Jc[\d  
丫类是怎么调用的捏?