超级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 得到查询语句 
'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()  <