ページング機能：「前のページ 次のページ」などを表示します。

'********************************** ** ****************
'関数名：ShowPage
'機能：「前ページ 次ページ」等の表示
'パラメータ：sFileName ----リンクアドレス
 ' TotalNumber ----合計数量
' MaxPerPage ----ページごとの数量
' CurrentPage ----現在のページ
' ShowTotal ----合計数量を表示するかどうか
' ShowAllPages ----ドロップダウン リストを使用して、ジャンプするすべてのページを表示します。
' strUnit ---- カウント単位
' ShowMaxPerPage ---- ページあたりの情報量オプションボックスを表示するかどうか
' 戻り値：「前ページ 次ページ」などの情報のHTMLコード
'**** ** ***********************************************
関数 ShowPage(sfilename, totalnumber, MaxPerPage, CurrentPage, ShowTotal, ShowAllPages, strUnit, ShowMaxPerPage)
Dim TotalPage、strTemp、strUrl、i
If totalnumber = 0 または MaxPerPage = 0 または IsNull(MaxPerPage) ) then
ShowPage = " "
関数終了
End If
If totalnumber Mod MaxPerPage = 0 then
TotalPage = totalnumber MaxPerPage
Else
TotalPage = totalnumber MaxPerPage + 1
End If
If TotalPage then CurrentPage = TotalPage p>

If ShowTotal = True then
strTemp = strTemp & "total" & totalnumber & "  " & strUnit & " "
End If
If ShowMaxPerPage = True then
strUrl = JoinChar(sfilename) & "MaxPerPage=" & MaxPerPage & "&"
Else
strUrl = JoinChar(sfilename)
End If
If CurrentPage = 1 then
strTemp = strTemp & "ホームの前のページ"
Else
strTemp = strTemp & "Home "
strTemp = strTemp & " 前のページ "
End If
If CurrentPage > ; = TotalPage then
strTemp = strTemp & "次のページの最後のページ"
Else
strTemp = strTemp & "次のページ< ;/a> "
strTemp = strTemp & "最後のページ"
End If
strTemp = strTemp & "ページ: " & CurrentPage & "/" & TotalPage & "Page"
If ShowMaxPerPage = True then
strTemp = strTemp & " <入力タイプ='text' name='MaxPerPage' size='3' maxlength='4' value='" & MaxPerPage & "' onKeyPress=""if (event.keyCode==13) window.location=' " & JoinChar( sfilename) & "page=" & CurrentPage & "&MaxPerPage=" & "'+this.value;"">" /page"
Else
strTemp = strTemp & "  " & MaxPerPage & "" & strUnit & "/Page"
End If
If ShowAllPages = True then
If TotalPage > 20 then
strTemp = strTemp & " ページに移動 ページ"
Else
strTemp = strTemp & " 移動: "
For i = 1 To TotalPage
strTemp = strTemp & "If PE_CLng(CurrentPage) = PE_CLng(i) then strTemp = strTemp & " selected "strTemp = strTemp & ">Page" & i & "Page"
Next
strTemp = strTemp & ""
End If
End If
strTemp = strTemp & "

"

ShowPage = strTemp

End Function

?>

コードをコピー