モジュラー ページング
1. クエリ ステートメント ブロック
<%
現在のファイル名を取得する
temp = Split(request.ServerVariables("URL"), "/")
fy = temp(UBound(temp))
set rs=server.createobject("adodb.recordset")
isempty(request("page")) でない場合は、
ページカウント=cint(リクエスト("ページ"))
それ以外
ページ数=1
終了する場合
sql="選択クエリ ステートメント"
rs.open SQL,conn,1,1
rs.pagesize=10 ページングレコードの数
ページカウント>rs.ページカウントまたはページカウント<=0の場合
ページ数=1
終了する場合
if rs.eof と rs.bof then%>
<div align="center" class="001"><br>
申し訳ありませんが、検索条件に一致するレコードはありません。 <br>
</div>
2. レコードブロックを表示
<%
それ以外
rs.AbsolutePage=ページ数
do while not rs.eof %>
表示レコード
<% i=i+2
rs.movenext
if i>=rs.PageSize then exit do
ループ
「www.downcodes.com」
%>
3.
ページネーション効果
<table width="778" border="0" align="center" cellpadding="0" cellpacing="0">
<tr align="center">
<% if rs.pagecount=1 then %>
<td height="35"colspan="4" class=001><font color="#000000">[<font color="#ff0000"><%=rs.recordcount%></font>] があります合計 現在表示されている情報は <font color="red">1~<%=rs.recordcount%></font></font></td> です
</tr>
<tr>
<%else%>
<td width="19%" height="35" align="center" valign="middle" class=001><font color="#000000">
<% page_start=(pagecount-1)*rs.pagesize
pagecount=1 の場合、page_start=1
page_end=rs.pagesize*pagecount
if pagecount*rs.pagesize=>rs.recordcount then page_end=rs.recordcount end if%>
合計 [<font color="#ff0000"><%=rs.recordcount%></font>] 件の情報</font></td>
<td width="58%" height="30" align="center" class="fy"><font color="#000000">
<%
ページカウント>5かつページカウント< rs.PageCount-5かつrs.pagecount>10の場合
qizu=ページ数-4
分=ページ数+5
response.write"<a href="&source&"?page=1&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>ホームページ</font></a> "
response.write"<a href="&source&"?page="+cstr(pagecount-1)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>前のページ</font></a> "
for ipage=qizu to min
ipage<>pagecount の場合
response.write"<a href="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><font color='0000BE' >"+cstr(ipage)+"</font></a> "
それ以外
response.write "<font color='#FF0000'>"&ipage&"</font> "
終了する場合
次
response.write"<a href="&source&"?page="+cstr(pagecount+1)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>次のページ</font></a> "
response.write"<a href="&source&"?page="+cstr(rs.PageCount)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>最後のページ</font></a>"
終了する場合
rs.PageCount<11 の場合
ipage=1 から rs.PageCount まで
ipage<>pagecount の場合
response.write"<a href="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><font color='0000BE' >"+cstr(ipage)+"</font></a> "
それ以外
response.write "<font color='#FF0000'>"&ipage&"</font> "
終了する場合
次
終了する場合
ページカウント < 6 かつ rs.PageCount>10 の場合
ipage=1 ～ 10 の場合
ipage<>pagecount の場合
response.write"<a href="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><font color='0000BE' >"+cstr(ipage)+"</font></a> "
それ以外
response.write "<font color='#FF0000'>"&ipage&"</font> "
終了する場合
次
response.write "<a href="&source&"?page="+cstr(rs.PageCount)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>最後のページ</font></a>"
終了する場合
ページカウント>rs.PageCount-6かつrs.PageCount>10の場合
response.write "<a href="&source&"?page=1&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>ホームページ</font></a> "
ipage=rs.PageCount-9 から rs.PageCount の場合
ipage<>pagecount の場合
response.write"<a href="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><font color='0000BE' >"+cstr(ipage)+"</font></a> "
それ以外
response.write "<font color='#FF0000'>"&ipage&"</font> "
終了する場合
次
終了する場合
%>
</font></td><form name=go2to form method=Post action=<%=fy%>>
<td width="13%" align="center" valign="middle" class="fy">
<input type='hidden' name='sortid' value="<%=sortid%>"><input type='hidden' name='typeid' value="<%=typeid%>"><input type= 'hidden' name='qylb' value="<%=qylb%>"><input type='hidden' name='title' value="<%title%>"><input type='hidden' name= 'cityid' value="<%=cityid%>"><font color='000064'> <input type='text' name='page' size=2 maxLength=3> に移動します
ページ</font>
</td>
<td width="10%" align="center" valign="middle" class="fy"><input name="image" type='image' onClick=check() value='OK' src='。 ./images/button_h.jpg'></td>
</form>
<tr>
<td height="20" colspan="6" valign="bottom"><font color="#000000"></font></td>
</tr>
<% % の場合は終了>
<% % の場合は終了>
</テーブル>