超級ASP大分頁_我的類容我做主
2024-05-04 11:01:46
供稿：網友
超級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%" '定義分頁信息框大小
