超級ASP大分頁_我的類容我做主 選擇自 AppleBBS 的 Blog 關(guān)鍵字 超級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 '本程序主要是對數(shù)據(jù)分頁的部分進行了封裝，而數(shù)據(jù)顯示部份完全由用戶自定義， '支持URL多個參數(shù):http://www.***.com/***.asp?aa=1&page=9&bb=2 ' ' 'Paramers: 'PapgeSize 定義分頁每一頁的記錄數(shù) 'GetCurPageNum 返回當前頁的記錄集數(shù)目此屬性只讀 'GetRS 返回經(jīng)過分頁的Recordset此屬性只讀 'GetConn 得到數(shù)據(jù)庫連接 'GetSQL 得到查詢語句 'Interface of Class 'ShowPage 顯示分頁導(dǎo)航條,唯一的公用方法 ' '#############類調(diào)用樣例################# '創(chuàng)建對象 'Set hjmPage=new ShowMorePage '得到數(shù)據(jù)庫連接 'hjmPage.getconn=conn 'sql語句 'hjmPage.getsql="select * from shop_books where newsbook=1 order by bookid desc" '設(shè)置每一頁的記錄條數(shù)據(jù)為20條,默認顯示10條 'hjmPage.pagesize=20 '顯示分頁信息,可在任意位置調(diào)用，可以調(diào)用多次 'hjmPage.showpage() 'set rs=hjmPage.getrs() '返回Recordset '顯示數(shù)據(jù)開始 '這里就可以自定義顯示方式了 'for i=1 to hjmPage.GetCurPageNum '當前頁的記錄數(shù)目 'response.write left(trim(rs("bookname")),13)&"...." 'rs.movenext 'next '顯示數(shù)據(jù)結(jié)束 'set hjmPage=nothing '#############類調(diào)用樣例################# '=================================================================== 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 屬性 '設(shè)置每一頁的分頁大小 '================================================================= Public Property Let PageSize(intvalue) If IsNumeric(intvalue) Then int_PageSize=CLng(intvalue) Else Str_Errors=Str_Errors & "PageSize的參數(shù)不正確" 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 屬性 '返回當前頁的記錄集數(shù)目 '================================================================= 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 得到數(shù)據(jù)庫連接 ' '================================================================ Public Property Let GetConn(sconn) Set Obj_Conn=sconn End Property '================================================================ 'GetSQL 得到查詢語句 ' '================================================================ Public Property Let GetSQL(svalue) Str_Sql=svalue End Property
