私たちはすでにあなたにページネーションプログラムについて以前に話しました。ここでは、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>"