ASP經典分頁類
出處
'=====================================================================
'XDOWNPAGEASP版本
'版本1.00
'Codebyzykj2000
'Email:[email protected]
'BBS:http://bbs.513soft.net
'本程序可以免費使用、修改,希望我的程序能為您的工作帶來方便
'但請保留以上請息
'
'程序特點
'本程序主要是對數據分頁的部分進行了封裝,而數據顯示部份完全由用戶自定義,
'支持URL多個參數
'
'使用說明
'程序參數說明
'PapgeSize定義分頁每一頁的記錄數
'GetRS返回經過分頁的Recordset此屬性只讀
'GetConn得到數據庫連接
'GetSQL得到查詢語句
'程序方法說明
'ShowPage顯示分頁導航條,唯一的公用方法
'
'例:
'
''包含文件
'
'Setmypage=newxdownpage'創建對象
'mypage.getconn=conn'得到數據庫連接
'mypage.getsql="select*fromproductinfoorderbyidasc"
'mypage.pagesize=5'設置每一頁的記錄條數據為5條
'setrs=mypage.getrs()'返回Recordset
'mypage.showpage()'顯示分頁信息,這個方法可以,在setrs=mypage.getrs()以後
'任意位置調用,可以調用多次
'fori=1tomypage.pagesize'接下來的操作就和操作一個普通Recordset對像一樣操作
'ifnotrs.eofthen'這個標記是為了防止最後一頁的溢出
'response.writers(0)&"
"'這裡就可以自定義顯示方式了
'rs.movenext
'else
'exitfor
'endif
'next
'
'=====================================================================
ConstBtn_First="9"'定義第一頁按鈕顯示樣式
ConstBtn_Prev="3"'定義前一頁按鈕顯示樣式
ConstBtn_Next="4"'定義下一頁按鈕顯示樣式
ConstBtn_Last=":"'定義最後一頁按鈕顯示樣式
ConstXD_Align="center"'定義分頁信息對齊方式
ConstXD_Width="100%"'定義分頁信息框大小
ConstXD_Height="20"
ClassXdownpage
PrivateXD_PageCount,XD_Conn,XD_Rs,XD_SQL,XD_PageSize,Str_errors,int_curpage,str_URL,int_totalPage,int_totalRecord