创建一个ASP通用分页类

一、创建分页类的目标 eBAB7r/7  
在写之前，我曾想过，我究竟要写怎么样一个类，回想起以前写分页过程的时候，最烦的莫过于每次都要写哪一段复杂的分页代码，最大的烦恼每次都是仅仅几个变量名的不同。所以第一个要实现的就是要把这个封装起来，第二个就是要把分页的导航条也封装起来,第三个，不习惯哪些把数据显示部分也封装起来的方法，这不是方便编程，对与哪些对显示效果每次都不同的用户来说，比自己写分页还要麻烦。所以我的目地就是对RecordSet进行一些简单的封装。 aJ)5DlfLR  
V2FE|+R%g  
二、创建过程 M<$l&%<`G  
所以我写的第一个属性，就是返一个经过处理的RecordSe ` `;$Kr  
')1sw%[2  
peqFa._W  
Public Property Get GetRs() F[=m|MZb  
Set XD_Rs=Server.createobject(adodb.recordset) |C&eH$?~=R  
XD_Rs.PageSize=PageSize Xi{(1o4%  
XD_Rs.Open XD_SQL,XD_Conn,1,1 [S4\fy0  
If not(XD_Rs.eof and XD_RS.BOF) Then *VlYl"  
If int_curpage>XD_RS.PageCount Then hYd8}BvA  
int_curpage=XD_RS.PageCount 6$6NVq  
End If ESrWRO f9  
XD_Rs.AbsolutePage=int_curpage rFy9K4D  
End If Na~_=3+a  
Set GetRs=XD_RS wO!hVm,Ta  
End Property {hg$?4IyQ  
c&Zm>Qo[  
3N*Shzusbt  
这个属性的作用是更据指定RecordSet 的当前面，并到指针指向当前页的第一条记录,这个应该就是整个类的完成分页的核心了，当然，其中的一些参数是靠其它的属性来获取，所以这里顺便介绍一个这个类所要的基本参数 G>RYQ{O  
C(0Iv[~y/  
^p7(  
============================================= =hs@W)-O  
GetConn 得到数据库连接 PRz oLzr  
\~)573'  
============================================= GO)rpk9  
Public Property Let GetConn(obj_Conn) %|,<\~P  
Set XD_Conn=obj_Conn RrZjC  
End Property Nz}Q"6L  
#wjBMR%  
============================================= .FXQ,7mZ-  
GetSQL 得到查询语句 654%X(:q  
;Z`)*TRp4  
==============================================
|Gf{}  
Public Property Let GetSQL(str_sql) {f&ga  
XD_SQL=str_sql 1I+5  
End Property :> q?s  
g^C6"rsnl  
=============================================== (
KQt%]  
PageSize 属性 OXacI~C  
设置每一页的分页大小 j>b OnCp~  
=============================================== r#Fu<so,  
Public Property Let PageSize(int_PageSize) v4zd x)  
If IsNumeric(Int_Pagesize) Then 5,c`  
XD_PageSize=CLng(int_PageSize) V0AX1?H~w  
Else >ATW/9r  
str_error=str_error & PageSize的参数不正确 kxmS  
ShowError() QLUe{@ivc  
End If ~/x42|t  
End Property P&tK}Se^V  
)g --=w3  
Public Property Get PageSize +i>q;=~  
If XD_PageSize= or (not(IsNumeric(XD_PageSize))) Then @ubz?5  
PageSize=10 1wgu%$|d  
Else Yq^y"rw  
PageSize=XD_PageSize LXfiSM{o  
End If Ww(_EW  
End Property <di_2hN  
~?&ijhZ  
G'py)C5;  
以上几个是在使用类的过程必需要指定的参数，曾经我在写属性的时候对每个传入的参数加上IsObject(obj_conn)等判断，为的是类的健壮，但是后来想来想去，这个对与ASP来说没有必要，不加还能加快点速度，至于为什么这样，我想各位在使用过程中也会发现，加还不如不加。这也是我经过了思想斗争以后才去掉了，只保留了一些必要的验证。 flB,
_  
一个参数就是当前页的获得，在程序中我用int_curpage来标识，这个的话放在类的创建过程中获得在好也没有了 o/zCXZnw#  
X2uX+}h*tA  
0l=}v%D  
======================== EC~t'v  
设定一些参数的黙认值 ;9PM?Iy[  
======================== R,\ r{@yrz  
XD_PageSize=10 设定分页的默认值为10 0c5_L6_z  
======================== _'7/99]4g}  
获取当前面的值 @,MdvR+a  
======================== /(V=Um^0  
If request(page)= Then >&&xJ5  
int_curpage=1 UYQ$c }Z5  
ElseIf not(IsNumeric(request(page))) Then =vc5,  
int_curpage=1 '/H(,TM
 
ElseIf CInt(Trim(request(page))) AVr!e   
Ds87#/Yfv  
到这里这个类分的功能基本已经实现了，只要在调用这个类的页面的URL后面加上page=n，它就会显示第n页的内容了，所以接下去要做的就是创建一个数据导航条了，我把它设计为类似以面的形式 rxK0<pWJhx  
(OqJet2{
+  
QC4T=E]`j  
9 3[1] [2] [3] [4] [5] [6] [7] [8] 4 :页次:1/8页 共51条记录 7条/每页 [j?<9  
gHx-m2N
 
HUC2RM?FN  
在页面里通过调用ShowPage()的方法显示出来，ShowPage可以在GetRS以后的任意位置调用，也可以调用多次 +I<Sq_-  
$P(nh'\  
#FB>}:L{h*  
v
VYduvw  
Public Sub ShowPage() V8yX7yx  
Dim str_tmp pNlisS  
int_totalRecord=XD_RS.RecordCount ^JtHTLH
L=  
If int_totalRecord 5 DB>zou   
WO-WoPO  
If Int_curpage>int_Totalpage Then TyWy5J< :+  
int_curpage=int_TotalPage ]uvbQ.l_t  
End If >t2b?(h/x  
4c=kT@=jX  
===================================================== (@E#O$'  
显示分页信息，各个模块根据自己要求更改显求位置 "Cc"y* P  
===================================================== S7a6ntei  
response.write C):d9OI?  
str_tmp=ShowFirstPrv 显示首页、前一页 zb/Xfu.)?6  
response.write str_tmp @W
Hd(ka!  
str_tmp=showNumBtn 数字导航 5S]P#8  
response.write str_tmp H040-Q;S'  
str_tmp=ShowNextLast 下一页、末页 : xZC7"  
response.write str_tmp XQOprIJ U  
str_tmp=ShowPageInfo SSLshY~d  
response.write str_tmp udGGDH  
response.write zt2-w/[Q  
end Sub g&TCff  
XyphQ}\u  
到这里类的功能才算完整（为了节省版面，我有些方法没有放上去，再下面附上全部完整代码）写一个简单页面测试一下 E ZKz-}  
? SP7vQ/  
9Nu#&_2R  
~{YgM/c|dt  
xD#I&.  
WWcm(q=  
#############类调用样例################# AtlR!IEUb  
创建对象 &t/<yq}{  
Set mypage=new xdownpage 9yo[T(8  
得到数据库连接 %`QsX {?,  
mypage.getconn=conn iwJ-<v_:h  
sql语句 eH  
mypage.getsql=select * from [test] order by id asc /Q8A"'Nk  
设置每一页的记录条数据为5条 3Z

:!o$  
mypage.pagesize=5 [|n-x3h  
返回Recordset a<'$`z|s  
set rs=mypage.getrs() -0SuREn  
显示分页信息，这个方法可以，在set rs=mypage.getrs()以后,可在任意位置调用，可以调用多次 W 'a~pB1I  
mypage.showpage() 4s
BoD=e  
0Eu$-)  
显示数据 f_h"gZWV  
Response.Write() )75yv<L2S,  
for i=1 to mypage.pagesize ]8>UII,US  
这里就可以自定义显示方式了 37-y  
  if not rs.eof then hav?mnVJ  
    response.write rs(0) & N#['fg'  
    rs.movenext ~_db<!a  
  else /v)!m&6]>  
      exit for }r~l72 `  
  end if l;}7A,u  
next yr9A0F0  
%> .cS,T<$  
?VZXJO{^  
效果还不错,该有的全有了。 _@pf1d$  
~oA9+mT5  
分页过程中，还有一个比软麻烦的问题是，在带多个参数的URL中，如保证在页面转向的时候不掉失其它参数。我靠一个GetURL的过程来实现，并在生成导航时调用。 y2"S\%7$h  
y?z_^ppj  
Private Function GetURL() /Np"J  
Dim strurl,str_url,i,j,search_str,result_url b/,!J]W  
search_str=page= cvV?V\1f  
strurl=Request.ServerVariables(URL) 3b)
T}g  
Strurl=split(strurl,/) VgsCwJ9w  
i=UBound(strurl,1) 0S:!Gv+  
str_url=strurl(i)得到当前页文件名 Ya&\ly /i  
str_params=Request.ServerVariables(QUERY_STRING) f9
3rY<  
If str_params= Then %r  
result_url=str_url & ?page= 7
R<u=U  
Else RQS:h]?:l  
If InstrRev(str_params,search_str)=0 Then m)|.:sj  
result_url=str_url & ? & str_params &&page= CDwIq>0j  
Else aQ&8fteFR  
j=InstrRev(str_params,search_str)-2 lDPRn~[#\  
If j=-1 Then o%^k T&  
result_url=str_url & ?page= }Q r0T  
Else _l!U[{l*d  
str_params=Left(str_params,j) )-?uX.E{  
result_url=str_url & ? & str_params &&page= w4fJ`
,  
End If &PBWJ?@O)r  
End If a.}:d30  
End If wdcryejCkr  
GetURL=result_url h/0-Mrk;e  
End Function OZB}aow  
.A"T086  
?fa,[r|G  
通过GetURL的处理，可以自动的获取当前面的文件名，和所有带的参数，实现了页面转换页不丢失参数。 l`FR.)2h  
aEFe!_QY  
`k{ff  
w[YkTv  
转自： ASP教程采集

Set mypage=new xdownpage W:{PBb"x8  
!w#ru?L{  
亲娘的...这个没看明白. ;sck+FP7w  
d%_78nOh"  
丫类是怎么调用的捏?