ASPの単純なページングコード

1 つ目はレコードセットの作成です。単純なページング コードのコピー コードは次のとおりです。

<%

set rs=server.createobject(adodb.recordset)

exce=sql 'SQL クエリ ステートメント

rs.open exce,conn,1,1

%>

次に、ページングのプロパティの設定があります。

<%

rs.PageSize=3 ' ページ番号を設定します

pagecount=rs.PageCount '総ページ数を取得します

page=int(request(page)) 'ページ番号を受け取る

if page<=0 then page=1 '判定

if request(page)= then page=1

rs.AbsolutePage=page 'このページのページ番号を設定します

%>

最後に本文のページング表示

<%

rs.bof と rs.eof の場合

応答.書き込み(NULL)

それ以外

for i=1 から rs.PageSize

応答.write rs(名前)

応答.write(<hr>)

rs.movenext

次

終了する場合

%>

<p>

<%if page=1 で、page=pagecount ではない場合、then%>

ホーム|前のページ

<a href=log1.asp?page=<%=page+1%>>次のページ</a>|

<a href=log1.asp?page=<%=pagecount%>>最後のページ</a>

<%elseif page<>1 ではなく、page=pagcount ではない then%>

<a href=log1.asp?page=1>ホームページ</a>|

<a href=log1.asp?page=<%=page-1%>>前のページ</a>|

<a href=log1.asp?page=<%=page+1%>>次のページ</a>|

<a href=log1.asp?page=<%=pagecount%>>最後のページ</a>

<%elseif page=pagecount then%>

<a href=log1.asp?page=1>ホームページ</a>|

<a href=log1.asp?page=<%=page-1%>>前のページ</a>|

次のページ|

最後のページ

<%end if%>