ShowPage 显示“上一页 下一页”等信息的封装代码

　　**************************************************
函数名：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&下一页尾页
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=textname=pagesize=3maxlength=5value=&CurrentPage&onKeyPress=if(event.keyCode==13)window.location=&strUrl&page=&+this.value;>页
strTemp=strTemp&<Inputtype=buttononClick=window.location.href=&strUrl&page=+document.all.page.value;name=button1value=GO>
endif
strTemp=strTemp&</td></tr></table>
ShowPage=strTemp
endfunction