创建一个ASP通用分页类

一、创建分页类的目标 ]c! ;L5
 
在写之前，我曾想过，我究竟要写怎么样一个类，回想起以前写分页过程的时候，最烦的莫过于每次都要写哪一段复杂的分页代码，最大的烦恼每次都是仅仅几个变量名的不同。所以第一个要实现的就是要把这个封装起来，第二个就是要把分页的导航条也封装起来,第三个，不习惯哪些把数据显示部分也封装起来的方法，这不是方便编程，对与哪些对显示效果每次都不同的用户来说，比自己写分页还要麻烦。所以我的目地就是对RecordSet进行一些简单的封装。 27;ci:5  
J~#;<e{\"  
二、创建过程 D1__n6g[  
所以我写的第一个属性，就是返一个经过处理的RecordSe w8n|B?Sr  
Fd0%lnui  
P*cNh43U  
Public Property Get GetRs() ;[fw]P n  
Set XD_Rs=Server.createobject(adodb.recordset) ,?L2wl[  
XD_Rs.PageSize=PageSize ki85!k=Q2  
XD_Rs.Open XD_SQL,XD_Conn,1,1 V0)fZS@tf  
If not(XD_Rs.eof and XD_RS.BOF) Then $m42:amM  
If int_curpage>XD_RS.PageCount Then s8}@=]aA  
int_curpage=XD_RS.PageCount #5V9oKM  
End If uDEvzk42  
XD_Rs.AbsolutePage=int_curpage hZ.Z3`v70  
End If L:FoSCN Y(  
Set GetRs=XD_RS mauI42  
End Property k+ze74_"  
fMOU
$0]$<  
R~Ne
|V2  
这个属性的作用是更据指定RecordSet 的当前面，并到指针指向当前页的第一条记录,这个应该就是整个类的完成分页的核心了，当然，其中的一些参数是靠其它的属性来获取，所以这里顺便介绍一个这个类所要的基本参数 9(@\&>)  
XGl+S  
#-bA[eQV  
============================================= `QXErw  
GetConn 得到数据库连接 g1jTy7g?  
~Q\3pI. |  
============================================= 8 XU1/i7N  
Public Property Let GetConn(obj_Conn) 1Z9qjV%^  
Set XD_Conn=obj_Conn >yULC|'F&~  
End Property 3`k;a1Z#O'  
{~F4WjHJp  
============================================= KQ~i<1&j  
GetSQL 得到查询语句 7AObC4 g  
[i]Ub0Dh7  
============================================== SLh(9%S;  
Public Property Let GetSQL(str_sql) Dc_yM  
XD_SQL=str_sql @;'o2   
End Property 1PpyVf  
qzTuxo0B  
=============================================== 9]@A]p!  
PageSize 属性 d+'p@!W_  
设置每一页的分页大小 bFW=ylF9  
=============================================== @7B$Yy#  
Public Property Let PageSize(int_PageSize) DCZ\6WY1G)  
If IsNumeric(Int_Pagesize) Then +(h\fm7*-  
XD_PageSize=CLng(int_PageSize) ?Orxmxc 2  
Else t2lS ~l)  
str_error=str_error & PageSize的参数不正确 QDu2?EYZq  
ShowError() o#skR4lwe  
End If g[3)P+  
End Property (vTtDKp@  
V>b\[(=s  
Public Property Get PageSize ,gS;m &!'J  
If XD_PageSize= or (not(IsNumeric(XD_PageSize))) Then m&?#;J|B$  
PageSize=10 !1ED~3/X  
Else  Z
/9>  
PageSize=XD_PageSize C_7+a@?B  
End If 6b:tyQ  
End Property :3I@(k\PY  
#Y4=J 6  
o|$AyS{1  
以上几个是在使用类的过程必需要指定的参数，曾经我在写属性的时候对每个传入的参数加上IsObject(obj_conn)等判断，为的是类的健壮，但是后来想来想去，这个对与ASP来说没有必要，不加还能加快点速度，至于为什么这样，我想各位在使用过程中也会发现，加还不如不加。这也是我经过了思想斗争以后才去掉了，只保留了一些必要的验证。 :$n=$C-wp  
一个参数就是当前页的获得，在程序中我用int_curpage来标识，这个的话放在类的创建过程中获得在好也没有了 kOed ]>H  
"T|PS6R~  
9o+)?1\  
======================== QDhOhGK  
设定一些参数的黙认值 (_"*NY0  
======================== T7#W0
^tj  
XD_PageSize=10 设定分页的默认值为10 07[_.i.l  
======================== uB]b}
"+l  
获取当前面的值 VSSu&Q  
======================== Ba!J"b]  
If request(page)= Then s#WAR]x0x  
int_curpage=1 bLwAXW2K+  
ElseIf not(IsNumeric(request(page))) Then W' s  
int_curpage=1 lMBLIB
]i  
ElseIf CInt(Trim(request(page))) )/wk( O+  
K2<9mDn&  
到这里这个类分的功能基本已经实现了，只要在调用这个类的页面的URL后面加上page=n，它就会显示第n页的内容了，所以接下去要做的就是创建一个数据导航条了，我把它设计为类似以面的形式 wbst8*$  
h]TQn
)X]  
[DF,^4g  
9 3[1] [2] [3] [4] [5] [6] [7] [8] 4 :页次:1/8页 共51条记录 7条/每页 k@'#@ t  
smnSDS  
MP>dW nl  
在页面里通过调用ShowPage()的方法显示出来，ShowPage可以在GetRS以后的任意位置调用，也可以调用多次 `-p:vq`  
$
GTU$4u  
fe9LEM8j  
[Ki0b^  
Public Sub ShowPage() ^G.B+dG@`x  
Dim str_tmp apu4DAy&8  
int_totalRecord=XD_RS.RecordCount /%;mqrdk  
If int_totalRecord hX=A)73(  
z&fwE$Nm  
If Int_curpage>int_Totalpage Then yp({>{u7  
int_curpage=int_TotalPage m+Rv+_R  
End If K[!&b0O  
s[w6FXt  
===================================================== ;oc&Hb  
显示分页信息，各个模块根据自己要求更改显求位置 IWY;="  
===================================================== "t~  
response.write ;oy-#p>N%  
str_tmp=ShowFirstPrv 显示首页、前一页 H
xIIO[h  
response.write str_tmp Y9&,t\ q  
str_tmp=showNumBtn 数字导航 !K'}K>iT  
response.write str_tmp o !vE~  
str_tmp=ShowNextLast 下一页、末页 rv|)n>m  
response.write str_tmp (w}H]LQ  
str_tmp=ShowPageInfo yc?a=6q'm  
response.write str_tmp }#n;C{z2e  
response.write ~1>.A(,=z  
end Sub Np"exFqN k  
j
'HZ\_  
到这里类的功能才算完整（为了节省版面，我有些方法没有放上去，再下面附上全部完整代码）写一个简单页面测试一下 Bq$rf < W  
R~S
;sJ& c  
&FF"nE*  
\Hn>oonph  
\Ol kM<  
,"HL~2:~  
#############类调用样例################# ;N0~;I  
创建对象 yge,8i)c  
Set mypage=new xdownpage /K.!sQ$  
得到数据库连接 "-+\R}q$  
mypage.getconn=conn
6I4oi@hZz  
sql语句 '2[albxSc  
mypage.getsql=select * from [test] order by id asc [O?z@)dx  
设置每一页的记录条数据为5条 5nKj )RH7M  
mypage.pagesize=5 R5X.^u  
返回Recordset BEre*J  
set rs=mypage.getrs() 1f":HnLRM  
显示分页信息，这个方法可以，在set rs=mypage.getrs()以后,可在任意位置调用，可以调用多次 3ZXQoC
'  
mypage.showpage() }#&#^ B#?O  
TztAZ2C  
显示数据 ''0fF_P  
Response.Write() W7 #9jo  
for i=1 to mypage.pagesize w tiny,6  
这里就可以自定义显示方式了 i:OK8Q{VI  
  if not rs.eof then 6jC`8l:  
    response.write rs(0) & Bg|5KOnd  
    rs.movenext 4X+ifZO  
  else Y07ZB'K  
      exit for !'cl"\h  
  end if _s .G  
next F*3j.lI  
%> JYW)uJ  
+PcmJ  
效果还不错,该有的全有了。 c+hQSm|bf)  
T
^Ze3L]  
分页过程中，还有一个比软麻烦的问题是，在带多个参数的URL中，如保证在页面转向的时候不掉失其它参数。我靠一个GetURL的过程来实现，并在生成导航时调用。 9Ru8~R/\  
B4i!/@0s  
Private Function GetURL() 8[E!E)
4M  
Dim strurl,str_url,i,j,search_str,result_url 3%%o?8ES  
search_str=page= fR*q?,  
strurl=Request.ServerVariables(URL) f (F)1  
Strurl=split(strurl,/) ".<DAs j  
i=UBound(strurl,1) aPm`^ q  
str_url=strurl(i)得到当前页文件名 \xnWciQ#{  
str_params=Request.ServerVariables(QUERY_STRING) ^HqY9QT2  
If str_params= Then 5*,f Fib  
result_url=str_url & ?page= L 8dc(Z%v  
Else -6n K<e`  
If InstrRev(str_params,search_str)=0 Then LQngK7>  
result_url=str_url & ? & str_params &&page= 8q,6}mV  
Else 93` AWg/T  
j=InstrRev(str_params,search_str)-2 3v5%y'  
If j=-1 Then f;xkT  
result_url=str_url & ?page= ;3B1_vo9  
Else NqDHCI  
str_params=Left(str_params,j) 9.a3&*tV[  
result_url=str_url & ? & str_params &&page= #]ypHVE  
End If ~e+\k>^eN  
End If >U]C/P[+  
End If \ytJ=0r  
GetURL=result_url c0;t4( &8  
End Function 'VlDh`<W  
Q=/</|  
:$m}UA-9  
通过GetURL的处理，可以自动的获取当前面的文件名，和所有带的参数，实现了页面转换页不丢失参数。 (}EB2V9Hh  
#py[  
|ayVjqJ*  
YQ6f}O  
转自： ASP教程采集

Set mypage=new xdownpage &' Ne!o8  
"F.;Dv9V[0  
亲娘的...这个没看明白. EuyXgK>g  
OG~6L4"  
丫类是怎么调用的捏?