'**************************************************
'函數名：ShowPage
'作用：顯示“上一頁下一頁”等信息
'參數：sFileName----鏈接地址
'TotalNumber----總數量
'MaxPerPage----每頁數量
'ShowTotal----是否顯示總數量
'ShowAllPages---是否用下拉列表顯示所有頁面以供跳轉。有某些頁面不能使用，否則會出現JS錯誤。
'strUnit----計數單位
'返回值：“上一頁下一頁”等信息的HTML代碼
'**************************************************
functionShowPage(sFileName,TotalNumber,MaxPerPage,ShowTotal,ShowAllPages,strUnit)
dimTotalPage,strTemp,strUrl,i
ifTotalNumber=0orMaxPerPage=0orisNull(MaxPerPage)then
ShowPage=""
exitfunction
endif
iftotalnumbermodmaxperpage=0then
TotalPage=totalnumber/maxperpage
Else
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&"首頁上一頁"
Else
strTemp=strTemp&"<ahref='"&strUrl&"page=1'>首頁</a>"
strTemp=strTemp&"<ahref='"&strUrl&"page="&(CurrentPage-1)&"'>上一頁</a>"
endif
ifCurrentPage>=TotalPagethen
strTemp=strTemp&"下一頁尾頁"