超级ASP大分页_我的类容我做主

答案：超级ASP大分页_我的类容我做主     选择自 AppleBBS 的 Blog   
关键字   超级ASP大分页_我的类容我做主  
出处  
 <%  
'===================================================================  
'ShowMorePage ASP版本  
'Version HuangJM1.00  
'Code by maomao  
'Create Date 2004-09-28  
'QQ:5144707  
'http://blog.csdn.net/maomaoysq  
'Write for my lover:HuangJM '本程序可以易做图、修改，但请保留以上信息  
'  
'function  
'本程序主要是对数据分页的部分进行了封装，而数据显示部份完全由用户自定义，  
'支持URL多个参数:http://www.***.com/***.asp?aa=1&page=9&bb=2  
'  
'  
'Paramers:  
'PapgeSize 定义分页每一页的记录数  
'GetCurPageNum 返回当前页的记录集数目此属性只读  
'GetRS 返回经过分页的Recordset此属性只读  
'GetConn 得到数据库连接  
'GetSQL 得到查询语句  
'Inte易做图ce of Class  
'ShowPage 显示分页导航条,唯一的公用方法  
'  
'#############类调用样例#################  
'创建对象  
'Set hjmPage=new ShowMorePage  
'得到数据库连接  
'hjmPage.getconn=conn  
'sql语句  
'hjmPage.getsql="select * from shop_books where newsbook=1 order by bookid desc"  
'设置每一页的记录条数据为20条,默认显示10条  
'hjmPage.pagesize=20  
'显示分页信息,可在任意位置调用，可以调用多次  
'hjmPage.showpage()  
'set rs=hjmPage.getrs() '返回Recordset  
'显示数据开始  
'这里就可以自定义显示方式了  
'for i=1 to hjmPage.GetCurPageNum '当前页的记录数目  
'response.write left(trim(rs("bookname")),13)&"...."  
'rs.movenext  
'next  
'显示数据结束  
'set hjmPage=nothing  
'#############类调用样例#################  
'===================================================================  
Const Btn_First="<font face=""webdings"">9</font>" '定义第一页按钮显示样式  
Const Btn_Prev="<font face=""webdings"">3</font>" '定义前一页按钮显示样式  
Const Btn_Next="<font face=""webdings"">4</font>" '定义下一页按钮显示样式  
Const Btn_Last="<font face=""webdings"">:</font>" '定义最后一页按钮显示样式  
Const XD_Align="Center" '定义分页信息对齐方式  
Const XD_Width="100%" '定义分页信息框大小  
Class ShowMorePage  
Private Obj_Conn,Obj_Rs,Str_Sql,int_PageSize,Str_Errors,Int_CurPage,Str_URL,Int_TotalPage,Int_TotalRecord  

'=================================================================  
'PageSize 属性  
'设置每一页的分页大小  
'=================================================================  
Public Property Let PageSize(intvalue)  
If IsNumeric(intvalue) Then  
int_PageSize=CLng(intvalue)  
Else  
Str_Errors=Str_Errors & "PageSize的参数不正确"  
ShowError()  
End If  
End Property  
Public Property Get PageSize  
If int_PageSize="" or (not(IsNumeric(int_PageSize))) Then  
PageSize=10   
Else  
PageSize=int_PageSize  
End If  
End Property  
'=================================================================  
'GetRS 属性  
'返回分页后的记录集  
'=================================================================  
Public Property Get GetRs()  
if Int_TotalRecord= 0 then Call GetPage()  
If not(Obj_Rs.eof and Obj_Rs.BOF) Then  
if Int_CurPage<>1 then  
if Int_CurPage-1<Int_TotalPage then  
Obj_Rs.move (Int_CurPage-1)*PageSize  
dim bookmark  
bookmark=Obj_Rs.bookmark  
else  
Int_CurPage=1  
end if  
end if  
End If  
Set GetRs=Obj_Rs  
End Property  
'=================================================================  
'GetCurPageNum 属性  
'返回当前页的记录集数目  
'=================================================================  
Public Property Get GetCurPageNum()  
dim int_PageNum  
int_PageNum = int_PageSize  
if Int_TotalRecord= 0 then Call GetPage()  
If Int_CurPage>Int_TotalPage Then  
Int_CurPage=Int_TotalPage  
int_PageNum = Int_TotalRecord-(Int_TotalPage-1)*int_PageSize   
ElseIf Int_CurPage=Int_TotalPage Then  
int_PageNum = Int_TotalRecord-(Int_TotalPage-1)*int_PageSize   
End If  
GetCurPageNum = int_PageNum  
End Property  
'================================================================  
'GetConn 得到数据库连接  
'  
'================================================================   
Public Property Let GetConn(sconn)  
Set Obj_Conn=sconn  
End Property  
'================================================================  
'GetSQL 得到查询语句  
'  
'================================================================  
Public Property Let GetSQL(svalue)  
Str_Sql=svalue  
End Property  

'==================================================================  
'Class_Initialize 类的初始化  
'初始化当前页的值  
'  
'==================================================================   
Private Sub Class_Initialize  
'========================  
'设定一些参数的黙认值  
'========================  
int_PageSize=10 '设定分页的默认值为10  
Int_TotalRecord= 0  
'========================  
'获取当前面的值  
'========================  
If request("page")="" Then  
Int_CurPage=1  
ElseIf not(IsNumeric(request("page"))) Then  
Int_CurPage=1  
ElseIf CInt(Trim(request("page")))<1 Then  
Int_CurPage=1  
Else  
Int_CurPage=CInt(Trim(request("page")))  
End If  
End Sub  
'====================================================================  
'openRS 打开数据集  
'有首页、前一页、下一页、末页、还有数字导航  
'  
'====================================================================  
Private Sub openRS()  
Set Obj_Rs=Server.createobject("adodb.recordset")  
Obj_Rs.Open Str_Sql,Obj_Conn,1,1  
End Sub  
'====================================================================  
'getPage 创建分页导航条  
'有首页、前一页、下一页、末页、还有数字导航  
'  
'====================================================================  
Private Sub GetPage()  
If TypeName(Obj_Rs)<>"Object" Then Call openRS()  
Int_TotalRecord=Obj_Rs.RecordCount  
If Int_TotalRecord<=0 Then  
Str_Errors=Str_Errors & "总记录数为零，请输入数据"  
Call ShowError()  
End If  
If Int_TotalRecord mod PageSize =0 Then  
Int_TotalPage = Int_TotalRecord \ int_PageSize  
Else  
Int_TotalPage = Int_TotalRecord \ int_PageSize+1  
End If   
If Int_CurPage>Int_TotalPage Then  
Int_CurPage=Int_TotalPage  
End If  
End Sub  
'====================================================================  
'ShowPage 创建分页导航条  
'有首页、前一页、下一页、末页、还有数字导航  
'  
'====================================================================  
Public Sub ShowPage()  
Dim str_tmp  
Str_URL = GetUrl()  
if Int_TotalRecord= 0 then Call GetPage()  
'==================================================================  
'显示分页信息，各个模块根据自己要求更改显求位置  
'==================================================================  
response.write ""  
str_tmp=ShowFirstPrv  
response.write str_tmp  
str_tmp=showNumBtn  
response.write str_tmp  
str_tmp=ShowNextLast  
response.write str_tmp  
str_tmp=ShowPageInfo  
response.write str_tmp   
response.write ""  
End Sub  
'====================================================================  
'ShowFirstPrv 显示首页、前一页  
'  
'  
'====================================================================  
Private function ShowFirstPrv()  
Dim Str_tmp,int_prvpage  
If Int_CurPage=1 Then  
str_tmp=Btn_First&" "&Btn_Prev  
Else  
int_prvpage=Int_CurPage-1  
str_tmp="<a href=>End If  
ShowFirstPrv=str_tmp  
End function  
'=================================================================

上一个：在ASP处理程序时显示进度
下一个：asp中"无限流"分页程序代码