私たちはすでにあなたにページネーションプログラムについて以前に話しました。ここでは、1つを提供し、分析してください。新しい利益が得られる可能性があります。
コードコピーは次のとおりです。
<％
「次のプログラムは、私のウェブサイトのプログラミングテクノロジー記事システムのコードの一部であり、ページネーションの強調に焦点を当てているため、他の役に立たないコードがクリアされているため、それらを変更して適用できます。
onerrorresumenext 'ユーザーが自由にURLを変更してエラーを引き起こすのを防ぎます
ifrequest.QueryString（ "page"）= "" thenpage = 1：else：page = cint（request.querystring（ "page"）） ''ページ数urlページ=？
setLink1 = server.createObject（ "adodb.Connection"） '接続データベース
link1.open "provider = microsoft.jet.oledb.4.0; dataSource ="＆server.mappath（ "データベース1.MDB"）
setrs = server.createObject（ "adodb.recordset"）
rs.open "select*from table 1"、link1,1,1 'これらの文は、レコードセットのカーソル、ページごとに保存されているレコードの数、現在のページ設定を定義します。これは非常に重要です。
rs.Pagesize = 13
rs.absolutepage =ページ
iferr.Number <> 0then 'は、ユーザーがレコードエラーなしでURLとデータベースを悪意を持って変更することを防ぎます
「例外エラーが発生した」respons.write
Response.End
endif
％>
<basetarget = '_ blank'> <！ - 新しいウィンドウでコンテンツをポップアップする - >
<Tableborder = 1>
<％
fori = 0tors.pagesize-1 '特定のデータコンテンツを表示します。 I+（ページ*13-13）+1このソリューションは、ページング後の特定の数値を示しています。
IFRS.EOFTHENEXITFOR
respons.write "<tr> <td>"＆i+（page*13-13）+1＆ "：<ahref = '"＆rs（ "connect"）＆ "'>＆rs（" author "）＆" </a> </td> </tr> "
rs.movenext
次
％>
<tr> <tdalign = right>
<basetarget = '_ top'> <！ - 新しいウィンドウにページング接続がポップアップ表示されないようにします。以下は、私が焦点を合わせたい完璧なページングプログラムの完全なプログラムです。必要に応じて変更できます - >
<％
pagelen = split（request.servervariables（ "query_string"）、 "＆" '' URLの後にパラメーターURLを取得しますか？番号
ifubound（pagelen）<1then'if urlがタイプxxx.asp？page = 1またはxxx.aspの場合、標準ページネーション法を使用します
ifpage> 1thenresponse.write "<ahref = 'a.asp？page = 1'> home </a> <ahref = 'a.asp？page ="＆page-1＆ "'>前のページ</a>"：else：response.write "homepage"
ifpage <rs.pagecountthensponse.write "<ahref = 'a.asp？page ="＆page+1＆ "'>次のページ</a> <ahref = 'a.asp？page ="＆rs.pagecount＆ "'>最後のページ</a>"：else：response.write "次
fori = 1tors.pagecount
ifi = pagethenresponse.writei＆ ""：else：respons.write "<ahref = 'a.asp？page ="＆i＆ "'>"＆i＆ "</a>"