superasp argepage_myクラスのコンテンツAppleBBSのブログから選択します
キーワードスーパーASP大型ページ_myクラスコンテンツ私は決定を下します
ソース
<％
'================================================================================================================================
'showmorepageaspバージョン
'versionhuangjm1.00
'codebymaomao
'Createdate2004-09-28
'QQ：5144707
'http://blog.csdn.net/maomaoysq
'WriteFormyLover：Huangjm'このプログラムは無料で使用して変更できますが、上記の情報を保管してください
'
'関数
'このプログラムは主にデータのページングパーツをカプセル化し、データ表示部品はユーザーによって完全にカスタマイズされています。
'URLの複数のパラメーターをサポート：http：//www.***.com/***.asp？aa = 1＆page = 9＆bb = 2
'
'
'パラメーター：
'Papgesizeは、ページページの各ページのレコード数を定義します
'GetCurpagenum現在のページのレコードセットの数を返します。このプロパティは読み取り専用です
'getrsはページレコードセットを返しますこのプロパティは読み取りのみです
'getConnはデータベース接続を取得します
'GetSQLはクエリステートメントを取得します
'Interfaceofclass
'showpageは、唯一のパブリックメソッドであるページナビゲーションバーを表示します
'
'####################################################＃
'オブジェクトを作成します
'sethjmpage = newshowmorepage
'データベース接続を取得します
'hjmpage.getConn = conn
'SQLステートメント
'hjmpage.getSql = "select*fromshop_bookswherenewsbook = 1orderbybookiddesc"
'各ページのレコードデータを20に設定すると、デフォルトの表示は10です。
'hjmpage.pagesize = 20
'ページング情報を表示し、任意の場所で呼び出すことができ、複数回呼び出すことができます
'hjmpage.showpage（）
'setrs = hjmpage.getrs（）' recordsetを返します
'データ開始を表示します
「ここで表示方法をカスタマイズできます
'fori = 1tohjmpage.getCurpagenum'現在のページのレコード数
'Response.Writeleft（trim（rs（ "bookname"））、13）＆ "...."
'rs.movenext
'次
'データの終わりを表示します
'sethjmpage =何もない
'####################################################＃
'================================================================================================================================
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％" 'ページング情報ボックスのサイズを定義します