'**************************************************
'函数名：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&"下一页尾页"