'**************************************************

'函数名：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=totalnumbermaxperpage

Else

TotalPage=totalnumbermaxperpage+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&"下一页尾页"

Else

strTemp=strTemp&"<ahref='"&strUrl&"page="&(CurrentPage+1)&"'>下一页</a>"

strTemp=strTemp&"<ahref='"&strUrl&"page="&TotalPage&"'>尾页</a>"

endif

strTemp=strTemp&"页次：<strong><fontcolor=red>"&CurrentPage&"</font>/"&TotalPage&"</strong>页"

strTemp=strTemp&"<b>"&maxperpage&"</b>"&strUnit&"/页"

ifShowAllPages=Truethen

strTemp=strTemp&"转到第<inputtype='text'name='page'size='3'maxlength='5'value='"&CurrentPage&"'onKeyPress=""if(event.keyCode==13)window.location='"&strUrl&"page="&"'+this.value;""'>页"

'strTemp=strTemp&"<Inputtype=""button""onClick=""window.location.href='"&strUrl&"page='+document.all.page.value;""name=button1value=GO>"

endif

strTemp=strTemp&"</td></tr></table>"

ShowPage=strTemp

endfunction