ASPクイックページネーションコード

著者：Eve Cole 更新時間：2025-08-15 18:16:02

推奨：ASPファイル操作機能セット
% '==================================================== ' Compiled by: Zhang Hui' Programmer code: WJ008' Compiled time: June 1, 2008' Follow address: www.wj008.net ' All file addresses used by all functions use absoluteアドレス '======================================================================== =========================================================================================================

<％@言語= vbscript codepage = 936％>

<％

オプション明示的な変数の強制定義

Dim IdCount'Totalレコード数

ページごとのディムページ

薄暗いページ数

DIMページ 'ページ番号

Dim Pagenc 'ページごとに表示されるページ番号の数= pagenc*2+1

pagenc = 2

dim pagenmax 'ページごとに表示されるページの最大ページ数

DIM PAGENMIN 'ページごとに表示されるページの最小ページ数

page = clng（request（page））

DIMの開始 'プログラムの開始時間

DIM ENDT '終了プログラムの時間

dat from 'datatable name

datafrom = table1

Dim Conn、Rs

Dim Datapath 'データベースパス

このページに必要なdim sqlid 'id

このページのdim yself'address

自分= request.servervariables（path_info）

dim sql'sqlステートメント

Dim Taxisのソートステートメント

'Taxis = ID ASCによる注文'ポジティブソート

タクシー= ID desc '逆ソートによる注文

dim i 'ループに使用されるinteger

start = timer（）

datapath = db.mdb 'データベース

ページ= 30

'データベースを開くための接続

DIM DB

db = db.mdb 'データベースパスと名前を定義します

conn = server.createObject（adodb.connection）を設定します

conn.openプロバイダー= microsoft.jet.oledb.4.0; data source =＆server.mappath（db）

err.number <> 0の場合

Response.Writeデータベースリンクエラー！

Response.End（）

ifを終了します

'レコードの総数を取得します

sql = [＆datafrom＆]からidcountとしてcount（id）を選択する

rs = server.createObject（adodb.Recordset）を設定します

rs.open sql、conn、0,1

idcount = rs（idcount） 'レコードの総数を取得します

if（idcount> 0）then 'の場合、レコードの総数= 0では、処理されません

if（idcount mod pages = 0）then' 'レコードの総数を各ページの残りの数で割っている場合、=各ページのレコードの総数/数 + 1

pagec = int（idcount/pages） 'ページの総数を取得します

それ以外

pagec = int（idcount/pages）+1'ページの総数を取得します

ifを終了します

'このページに必要なIDを取得======================================================

「すべてのレコードを読む」ID値はIDのみがあるので、速度は非常に高速です

sql = [＆data from＆]＆taxisからidを選択します

rs = server.createObject（adodb.Recordset）を設定します

rs.open sql、conn、1,1

rs.Pagesize =ページ 'ページごとに表示されるレコードの数

ページ<1の場合、ページ= 1

page> pagecの場合、page = pagec

pagec> 0の場合、rs.absolutepage = page

i = 1からrs.pagesizeの場合

rs.eofの場合は、entを終了します

if（i = 1）then

sqlid = rs（id）

それ以外

sqlid = sqlid＆、＆rs（id）

ifを終了します

rs.movenext

次

'このページを取得するために必要なIDの終了=======================================================

ifを終了します

％>

<！doctype html public - // w3c // dtd html 4.01 transitional // en>

<html>

<head>

<メタhttp-equiv = content-type content = text/html; charset = gb2312>

<Title>クイックページング</title>

</head>

<テーブル幅= 100％高さ= 100％境界= 0セルパディング= 20セルペーシング= 0>

<tr>

<tr>

<tr>

<td> <strong> <font color =＃ff6600>クイックページング</font> </strong> </td>

</tr>

</table>

<br>

<テーブル幅= 90％Border = 0 align = center cellpadding = 3 cellpacing = 1 bgcolor = ccccccc class = zw>

<td width = 33％> <strong>コンテンツ</strong> </td>

</tr>

<％

if（idcount> 0およびsqlid <>）then 'の総数= 0の場合、処理されません

'このページの言語でデータを選択し、このページに必要なデータのみを読むため、速度は高速です

sql = select [id]、[aaaa]、[bbbb]、[cccc] from [＆datafrom＆] from where id in（＆sqlid＆）＆taxis

rs = server.createObject（adodb.Recordset）を設定します

rs.open sql、conn、0,1

while（rs.eofではない） 'データをテーブルに入力します

％>

</tr>

<％

rs.movenext

ウェンド

％>

</table>

<br>

<テーブル幅= 90％border = 0 align = center cellpadding = 2 cellpacing = 0 class = zw>

<td align = left>合計<strong> <font color =＃ff6600> <％= idcount％> </font> </strong>レコード、<strong> <font color =＃ff6600> <％= Page％> </font> </strong>/<= pagec％> color =＃ff6600> <％= pages％> </font> </strong>レコード。 </td>

</tr>

</table>

<テーブル幅= 90％border = 0 align = center cellpadding = 2 cellpacing = 0 class = zw>

<％

'ページ番号を開始するように設定=======================================================

pagenmin = page-pagenc 'ページ番号の開始値を計算します

pagenmax = page+pagenc 'ページ番号の最終値を計算します

if（pagenmin <1）then'の場合、ページ番号の開始値が1未満です= 1

Pagenmin = 1

ifを終了します

if（page> 1）then 'ページ番号が1より大きい場合、表示されます（最初のページ）

respons.write（<a href = '＆self＆？page = 1'> <font color = '＃000000'>ページ</font> </a>）

ifを終了します

if（pagenmin> 1）then 'ページ番号の値が1より大きい場合、表示されます（更新）

respons.write（<a href = '＆yosel＆？page =＆page-（pagenc*2+1）＆'> <font color = '＃000000'> Advance </font> </a>）

ifを終了します

if（pagenmax> pagec）then 'ページ番号の最終値がページの総数よりも大きい場合、=ページの総数

pagenmax = pagec

ifを終了します

i = pagenmin to pagenmax 'ループ出力ページ番号の場合

if（i = page）then

Response.write（<font color = '＃ff6600'> <strong>＆i＆</strong> </font>）

それ以外

respons.write（[<a href =＆yrose＆？page =＆i＆> <font color = '＃000000'>＆i＆</font> </a>]）

ifを終了します

次

（pagenmax <pagec）の場合、ページ番号の最終値がページの総数よりも少ない場合、表示されます（後に）表示されます

respons.write（<a href = '＆self＆？page =＆page+（pagenc*2+1）＆'> <font color = '＃000000'> </font> </a>）

ifを終了します

if（page <pagec）then 'ページ番号がページの総数より少ない場合、表示されます（最終ページ）

respons.write（<a href = '＆self＆？page =＆pagec＆'> <font color = '＃000000'>最後のページ</font> </a>）

ifを終了します

'ページ番号を終了するように設定=======================================================================

％> <スクリプト言語= javascript>

<！ -

function gopage（）{

window.location.href = <％= self>？page =+ page.value;

}

//->

</script>

行きます

<入力名=ページタイプ=テキスト値= <％= page％> size = 5>ページ

<入力タイプ=ボタン名=送信値=ジャンプ> </td>

</tr>

</table>

<％

ifを終了します

％>

<br>

<テーブル幅= 90％border = 0 align = center cellpadding = 2 cellpacing = 0 class = zw>

<tr>

<p>

<％

Endt = Timer（）

rs.close

rs = Nothingを設定します

conn.close

conn =何も設定しません

％>

<％= formatnumber（（endt-start）*1000,3）％> ms </p>

</tr>

</table>

</tr>

</table> </td>

</tr>

</table>

</body>

</html>

共有：FCKEDITORを使用するためのASPのセットアップのヒント
1. fckconfig.jsファイルをデフォルト言語で開き（FCKEDITORフォルダーと比較して以下）、自動検出言語を非検出に変更し、デフォルト言語を簡素化された中国語に変更します。 fckconfig.defaultlanguage = 'zh-cn'; 2.フォントリストでFCKCONFIG.jsファイルを開きます。