ASPクラシックページネーションクラス
ソース
'============================================================================================
'XDownPageAspバージョン
'バージョン1.00
'codebyzykj2000
'メール：[email protected]
'BBS：http：//bbs.513soft.net
'このプログラムは、無料で使用および変更できます。私のプログラムがあなたの仕事に利便性をもたらすことができることを願っています
「しかし、上記を拒否してください
'
'プログラム機能
'このプログラムは主にデータのページングパーツをカプセル化し、データ表示部品はユーザーによって完全にカスタマイズされています。
'複数のURLパラメーターをサポートします
'
'使用の指示
'プログラムパラメーターの説明
'Papgesizeは、ページページの各ページのレコード数を定義します
'getrsはページレコードセットを返しますこのプロパティは読み取りのみです
'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.pages'次の操作は、通常のレコードセットオブジェクトを操作することと同じです
「ifnotrs.eofthen」とは、最後のページが溢れないようにするためです
'Response.Writers（0）＆ "
「 'ここで表示方法をカスタマイズできます
'rs.movenext
'それ以外
'出口
'endif
'次
'
'============================================================================================
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