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

超级ASP大分页_我的类容我做主     选择自 AppleBBS 的 Blog   
 <%  
'===================================================================  
'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 得到查询语句  
'Interface 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="""&Str_URL & "1" & """>" & Btn_First&"</a> <a href=""" & Str_URL & CStr(int_prvpage) & """>" & Btn_Prev&"</a>"  
End If  
ShowFirstPrv=str_tmp  
End function  
'====================================================================  
'ShowNextLast 下一页、末页  
'  
'  
'====================================================================  
Private function ShowNextLast()  
Dim str_tmp,int_Nextpage  
If Int_CurPage>=Int_TotalPage Then  
str_tmp=Btn_Next & " " & Btn_Last  
Else  
Int_NextPage=Int_CurPage+1  
str_tmp="<a href=""" & Str_URL & CStr(int_nextpage) & """>" & Btn_Next&"</a> <a href="""& Str_URL & CStr(Int_TotalPage) & """>" & Btn_Last&"</a>"  
End If  
ShowNextLast=str_tmp  
End function  

'====================================================================  
'ShowNumBtn 数字导航  
'每次显示10页  
'  
'====================================================================  
Private function showNumBtn()  
Dim i,str_tmp,m,n  
m = Int_CurPage - 4  
n = Int_TotalPage  
if n>1 then  
for i = 1 to 10  
if m < 1 then m = 1   
if m > n then  
exit for  
end if  
str_tmp=str_tmp & "[<a href=""" & Str_URL & CStr(i) & """>"&i&"</a>] "  
m = m + 1  
next  
end if  
showNumBtn=str_tmp  
End function  

'====================================================================  
'ShowPageInfo 分页信息  
'更据要求自行修改  
'  
'====================================================================  
Private function ShowPageInfo()  
Dim str_tmp  
str_tmp="页次:"&Int_CurPage&"/"&Int_TotalPage&"页 共"&Int_TotalRecord&"条记录 "&int_PageSize&"条/每页"  
ShowPageInfo=str_tmp  
End function  
'==================================================================  
'GetURL 得到当前的URL  
'更据URL参数不同，获取不同的结果  
'  
'==================================================================  
Private function GetURL()  
Dim strUrl,tmp_URL,i,j,search_str,result_url  
search_str="page="  
strUrl=Request.Servervariables("URL")  
strUrl=split(strUrl,"/")  
i=UBound(strUrl,1)  
tmp_URL=strUrl(i)'得到当前页文件名  
str_params=Trim(Request.Servervariables("QUERY_STRING"))  
If str_params="" Then  
result_url=tmp_URL & "?page="  
Else  
If InstrRev(str_params,search_str)=0 Then  
result_url=tmp_URL & "?" & str_params &"&page="  
Else  
j=InstrRev(str_params,search_str)-2  
If j=-1 Then  
result_url=tmp_URL & "?page="  
Else  
str_lparams=Left(str_params,j)  
str_rparams=right(str_params,len(str_params)-j-1)  
if InStr(str_rparams,"&")<>0 then  
str_rparams=right(str_rparams,len(str_rparams)-InStr(str_rparams,"&")+1)  
else  
str_rparams = ""  
end if  
result_url=tmp_URL & "?" & str_lparams&str_rparams&"&page="  
End If  
End If  
End If  
GetURL=result_url  
End function  
'====================================================================  
' 设置 Terminate 事件。  
'  
'====================================================================  
Private Sub Class_Terminate   
Obj_Rs.close  
Set Obj_Rs=nothing  
Obj_Conn.close  
set Obj_Conn = nothing  
End Sub  
'====================================================================  
'ShowError 错误提示  
'  
'  
'====================================================================  
Private Sub ShowError()  
If Str_Errors <> "" Then  
Response.Write("" & Str_Errors & "")  
Response.End  
End If  
End Sub  
End class   
%>  

<!--#include file="include/function.asp"-->  
<%  
dim conn  
call dbconnect()  
'#############类调用样例#################  
'创建对象  
Set hjmPage=new ShowMorePage  
'得到数据库连接  
hjmPage.getconn=conn  
'sql语句  
hjmPage.getsql="select Top 6 * from shop_books where newsbook=1 order by bookid desc"  
'设置每一页的记录条数据为5条  
hjmPage.pagesize=2  
set rs=hjmPage.getrs() '返回Recordset  
'显示分页信息，这个方法可以，在set rs=hjmPage.getrs()以后,可在任意位置调用，可以调用多次  
hjmPage.showpage()  
'显示数据  
Response.Write("<br/>")  
for i=1 to hjmPage.GetCurPageNum '当前页的记录数目  
'这里就可以自定义显示方式了  
%>