'*************************************************
'関数名：showpage
'関数：「前のページ次のページ」などの情報を表示
'パラメーター：sfileName ----リンクアドレス
'TotalNumber ---総数
'maxperpage ----各ページの番号
'showtotal ----総数が表示されます
'showallpages - リダイレクトのためにドロップダウンリストを持つすべてのページを表示するかどうか。一部のページは使用できません。そうしないと、JSエラーが発生します。
'Strunit ----カウントユニット
'返品値：「前のページ次のページ」などの情報については、HTMLコード
'*************************************************
functionshowpage（sfilename、totalnumber、maxperpage、showtotal、showallpages、strunit）
dimtotalpage、strtemp、strur、i
iftotalnumber = 0ormaxperpage = 0orisnull（maxperpage）then
showpage = ""
exitFunction
endif
IftotalNumberModmaxperpage = 0then
TotalPage = TotalNumber/MaxperPage
それ以外
TotalPage = TotalNumber/MaxperPage+1
endif
ifcurrentPage> TotalPageThenCurrentPage = TotalPage
strtemp = "<tablealign = 'center'> <tr> <td>"
ifshowtotal = truethen
strtemp = strtemp＆ "共<b>"＆totalnumber＆ "</b>"＆strunit＆ ""
endif
strurl = joinchar（sfilename）
ifcurrentPage <2then
strtemp = strtemp＆ "Homepage前のページ"
それ以外
strtemp = strtemp＆ "<ahref = '"＆strurl＆ "page = 1'> home </a>"
strtemp = strtemp＆ "<ahref = '"＆strurl＆ "page ="＆（currentPage-1）＆ "'>前のページ</a>"
endif
ifcurrentPage> = TotalPagethen
strtemp = strtemp＆ "次のページ最後のページ"