<%
'ページプログラム
' total_records レコードの総数
' Everypage_records はページごとのレコード数を表示します
' current_page 現在のページ番号
' url 渡される URL。「list.asp?」や「list.asp?keyword=key&」など、渡される変数を含めることができます。
' プログラムの呼び出しは比較的単純ですが、それでも PHP よりも面倒です。
sub show_page(total_records,everypage_records,current_page,url)
if IsNumeric (total_records)
total_records=Int(total_records)
それ以外
合計レコード=0
終了する場合
IsNumeric (すべてのページレコード) の場合
すべてのページレコード=Int(すべてのページレコード)
すべてのページレコード<=0の場合、
すべてのページレコード=10
終了する場合
それ以外
すべてのページレコード=10
終了する場合
IsNumeric (current_page) の場合
current_page=Int(現在のページ)
それ以外
現在のページ=1
終了する場合
'総ページ数、つまり最後のページを取得します
total_records mod eachpage_records=0 の場合
last_page=Int(合計レコード数/すべてのページレコード数)
それ以外
last_page=Int(合計レコード数/すべてのページレコード数)+1
終了する場合
'current_pageが標準を満たしているかどうかを判断し、その値をpageに付加します
現在のページ>=最後のページの場合
ページ=last_page
elseif current_page<=1 then
ページ=1
それ以外
ページ=現在のページ
終了する場合
'前のページへ
ページ <=0 の場合
準備=0
それ以外
prepg=ページ-1
終了する場合
'次のページ
page=last_page の場合
nextpg=0
それ以外
nextpg=ページ+1
終了する場合
'このページで記録を開始します
firstcount=prepg*everypage_records
'このページの終了レコード
nextpg>=1 の場合
lastcount=(nextpg-1)*everypage_records
それ以外
lastcount=total_records
終了する場合
'ページングナビゲーションバーコードの開始
ページナビ = "
pagenav1=""
pagenav=pagenav&"合計 <b>"&total_records&"</b> レコードのうち <b>"&firstcount&"-"&lastcount&"</b> レコードを表示します"
pagenav1=pagenav1&"合計 <b>"&total_records&"</b> レコードのうち <b>"&firstcount&"-"&lastcount&"</b> レコードを表示します"
last_page>1 の場合
'表と裏のページがある場合
pagenav=pagenav&" <a href='"&url&"page=1'>ホームページ</a> "
pagenav1=pagenav1&" <a href='"&url&"page=1'>ホームページ</a> "
prepg>=1 の場合
pagenav=pagenav&" <a href='"&url&"page="&prepg&">前のページ</a> "
pagenav1=pagenav1&" <a href='"&url&"page="&prepg&">前のページ</a> "
それ以外
pagenav=pagenav&"前のページ"
pagenav1=pagenav1&"前のページ"
終了する場合
nextpg>=1 の場合
pagenav=pagenav&" <a href='"&url&"page="&nextpg&">次のページ</a> "
pagenav1=pagenav1&" <a href='"&url&"page="&nextpg&">次のページ</a> "
それ以外
pagenav=pagenav&"次のページ"
pagenav1=pagenav1&"次のページ"
終了する場合
pagenav=pagenav&" <a href='"&url&"page="&last_page&">最後のページ</a> "
pagenav1=pagenav1&" <a href='"&url&"page="&last_page&">最後のページ</a> "
pagenav=pagenav&"ページに移動 <input type=text name=text100 id=text100 value="&page&" size=3><input type=button name=button100 value=go onclick='window.location="""&url&" page=""+text100.value'>"
pagenav=pagenav&" 合計 "&last_page&" ページ"
pagenav1=pagenav1&" からページ <input type=text name=text101 id=text101 value="&page&" size=3><input type=button name=button101 value=go onclick= ' window.location="""&url&"page=""+text101.value'>"
pagenav1=pagenav1&" 合計 "&last_page&" ページ"
end if
エンドサブ
%>