'================================================================= 'PageSize 屬性 '設置每一頁的分頁大小 '================================================================= Public Property Let PageSize(int_PageSize) If IsNumeric(Int_Pagesize) Then XD_PageSize=CLng(int_PageSize) Else str_error=str_error "PageSize的參數不正確" ShowError() End If End Property Public Property Get PageSize If XD_PageSize="" or (not(IsNumeric(XD_PageSize))) Then PageSize=10 Else PageSize=XD_PageSize End If End Property
'================================================================= 'GetRS 屬性 '返回分頁后的記錄集 '================================================================= Public Property Get GetRs() Set XD_Rs=Server.createobject("adodb.recordset") XD_Rs.PageSize=PageSize XD_Rs.Open XD_SQL,XD_Conn,1,1 If not(XD_Rs.eof and XD_RS.BOF) Then If int_curpage>XD_RS.PageCount Then int_curpage=XD_RS.PageCount End If XD_Rs.AbsolutePage=int_curpage End If Set GetRs=XD_RS End Property
'================================================================ 'GetConn 得到數據庫連接 ' '================================================================ Public Property Let GetConn(obj_Conn) Set XD_Conn=obj_Conn End Property
'================================================================ 'GetSQL 得到查詢語句 ' '================================================================ Public Property Let GetSQL(str_sql) XD_SQL=str_sql End Property
'================================================================== 'Class_Initialize 類的初始化 '初始化當前頁的值 ' '================================================================== Private Sub Class_Initialize '======================== '設定一些參數的黙認值 '======================== XD_PageSize=10 '設定分頁的默認值為10 '======================== '獲取當前面的值 '======================== 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
'==================================================================== 'ShowPage 創建分頁導航條 '有首頁、前一頁、下一頁、末頁、還有數字導航 ' '==================================================================== Public Sub ShowPage() Dim str_tmp
int_totalRecord=XD_RS.RecordCount If int_totalRecord=0 Then str_error=str_error "總記錄數為零，請輸入數據" Call ShowError() End If If int_totalRecord int_TotalPage=1 Else If int_totalRecord mod PageSize =0 Then int_TotalPage = Int(int_TotalRecord / XD_PageSize * -1)*-1 Else int_TotalPage = Int((int_TotalRecord / XD_PageSize * -1)*-1)+1 End If End If
If Int_curpage>int_Totalpage Then int_curpage=int_TotalPage End If
'==================================================================== '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=""Btn_First" " Btn_Prev"" 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=""Btn_Next" " Btn_Last"" End If ShowNextLast=str_tmp End Function
'==================================================================== 'ShowNumBtn 數字導航 ' ' '==================================================================== 'Private Function showNumBtn() ' Dim i,str_tmp ' For i=1 to int_totalpage ' str_tmp=str_tmp "["i"] " ' Next ' showNumBtn=str_tmp ' 'End Function '==================================================================== 'ShowNumBtn 修改后的數字導航 ' '==================================================================== Function showNumBtn() Dim i,str_tmp,end_page,start_page if int_curpage>4 then if int_curpage+2 start_page=int_curpage-2 end_page=int_curpage+2 else start_page=int_totalpage-4 end_page=int_totalpage end if else start_page=1 if int_totalpage>5 then end_page=5 else end_page=int_totalpage end if end if For i=start_page to end_page str_tmp=str_tmp " ["i"] " Next showNumBtn=str_tmp End Function
'==================================================================== 'ShowGoto 頁面跳轉 ' ' '==================================================================== Private Function ShowGoto() Dim M_item '======================================================== '將返回的Url參數逐個的寫入隱藏域中，以便與參數繼續傳遞 '======================================================== For Each M_item In Request.QueryString If InStr("page",M_Item)=0 Then '從參數中除去 "page" 的值 Response.Write "" End If Next '======================================================== response.write " 轉到第：" response.write " 頁 " End Function
'==================================================================== 'ShowPageInfo 分頁信息 '更據要求自行修改 ' '==================================================================== Private Function ShowPageInfo() Dim str_tmp str_tmp=" [頁次:"int_curpage"/"int_totalpage"頁] [共"int_totalrecord"條] ["XD_PageSize"條/頁]" ShowPageInfo=str_tmp End Function
'==================================================================== '修改后的獲取當前Url參數的函數 'Codeing by Redsun '==================================================================== Private Function GetUrl() Dim ScriptAddress, M_ItemUrl, M_item ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))"?"'取得當前地址 If (Request.QueryString > "") Then M_ItemUrl = "" For Each M_item In Request.QueryString If InStr("page",M_Item)=0 Then M_ItemUrl = M_ItemUrl M_Item "=" Server.URLEncode(Request.QueryString(""M_Item"")) "" End If Next ScriptAddress = ScriptAddress M_ItemUrl'取得帶參數地址 End If GetUrl = ScriptAddress "page=" End Function
'==================================================================== ' 設置 Terminate 事件。 '==================================================================== Private Sub Class_Terminate XD_RS.close Set XD_RS=nothing End Sub '==================================================================== 'ShowError 錯誤提示 '==================================================================== Private Sub ShowError() If str_Error > "" Then Response.Write(" " SW_Error "") Response.End End If End Sub
