<％
'================================================================================================================================
'XDownPageAspバージョン
'バージョン1.00
'codebyzykj2000
'メール：[email protected]
'BBS：http：//bbs.513soft.net
'このプログラムは、無料で使用および変更できます。私のプログラムがあなたの仕事に利便性をもたらすことができることを願っています
「しかし、上記を拒否してください
'
'プログラム機能
'このプログラムは主にデータのページングパーツをカプセル化し、データ表示部品はユーザーによって完全にカスタマイズされています。
'複数のURLパラメーターをサポートします
'
'使用の指示
'プログラムパラメーターの説明
'Papgesizeは、ページページの各ページのレコード数を定義します
'getrsはページレコードセットを返しますこのプロパティは読み取りのみです
'getConnはデータベース接続を取得します
'GetSQLはクエリステートメントを取得します
'プログラム方法の説明
'showpageは、唯一のパブリックメソッドであるページナビゲーションバーを表示します
'
'================================================================================================================================
constbtn_first = "<fontface =" "webdings" "> 9 </font>" '最初のページボタン表示スタイルを定義します
constbtn_prev = "<fontface =" "webdings" "> 3 </font>" '前のページのボタン表示スタイルを定義します
constbtn_next = "<fontface =" "webdings" "> 4 </font>" '次のページボタン表示スタイルを定義します
constbtn_last = "<fontface =" "webdings" ">：</font>" '最後のページボタン表示スタイルを定義します
constxd_align = "center" 'は、ページング情報のアラインメントを定義します
constxd_width = "100％" 'ページング情報ボックスのサイズを定義します
ClassXDownPage
privatexd_pagecount、xd_conn、xd_rs、xd_sql、xd_pagesize、str_errors、int_curpage、str_url、int_totalpage、int_totalRecord、XD_SURL
'==================================================================================================================
'ページサイズのプロパティ
'各ページのページサイズを設定します
'==================================================================================================================
publicPropertyletPagesize（int_pagesize）
ifisnumeric（int_pagesize）then
xd_pagesize = clng（int_pagesize）
それ以外
str_error = str_error＆ "pagesizeパラメーターが正しくない"
ShowerRor（）
endif
Endproperty
publicPropertygetPagesize
ifxd_pagesize = ""または（not（isnumeric（xd_pagesize）））then
Pagesize = 10
それ以外
pagesize = xd_pagesize
endif
Endproperty
'==================================================================================================================
'getrsプロパティ
'ページレコードセットに戻ります
'==================================================================================================================
publicPropertyGetGetRS（）
setxd_rs = server.createObject（ "adodb.recordset"）