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


            '************************************************** '函数名：ShowPage '作  用：显示“上一页 下一页”等信息 '参  数：sFileName  ----链接地址 '       TotalNumber ----总数量 '       MaxPerPage  ----每页数量 '       ShowTotal   ----是否显示总数量 '       ShowAllPages ---是否用下拉列表显示所有页面以供跳转。有某些页面不能使用，否则会出现JS错误。 '       strUnit     ----计数单位 '返回值：“上一页 下一页”等信息的HTML代码 '************************************************** function ShowPage(sFileName,TotalNumber,MaxPerPage,ShowTotal,ShowAllPages,strUnit)     dim TotalPage,strTemp,strUrl,i     if TotalNumber=0 or MaxPerPage=0 or isNull(MaxPerPage) then         ShowPage=""         exit function     end if     if totalnumber mod maxperpage=0 then         TotalPage= totalnumber \ maxperpage       Else         TotalPage= totalnumber \ maxperpage+1       end if     if CurrentPage>TotalPage then CurrentPage=TotalPage       strTemp= "<table align='center'><tr><td>"     if ShowTotal=true then          strTemp=strTemp & "共 <b>" & totalnumber & "</b> " & strUnit & "  "     end if     strUrl=JoinChar(sfilename)       if CurrentPage<2 then         strTemp=strTemp & "首页 上一页 "       Else         strTemp=strTemp & "<a href='" & strUrl & "page=1'>首页</a> "         strTemp=strTemp & "<a href='" & strUrl & "page=" & (CurrentPage-1) & "'>上一页</a> "       end if       if CurrentPage>=TotalPage then         strTemp=strTemp & "下一页 尾页"       Else         strTemp=strTemp & "<a href='" & strUrl & "page=" & (CurrentPage+1) & "'>下一页</a> "         strTemp=strTemp & "<a href='" & strUrl & "page=" & TotalPage & "'>尾页</a>"       end if        strTemp=strTemp & " 页次：<strong><font color=red>" & CurrentPage & "</font>/" & TotalPage & "</strong>页 "         strTemp=strTemp & " <b>" & maxperpage & "</b>" & strUnit & "/页"     if ShowAllPages=True then         strTemp=strTemp & "  转到第<input type='text' name='page' size='3' maxlength='5' value='" & CurrentPage & "' onKeyPress=""if (event.keyCode==13) window.location='" & strUrl & "page=" & "'+this.value;""'>页"          'strTemp  = strTemp &" <Input type=""button""  onClick=""window.location.href='" & strUrl & "page='+document.all.page.value;""  name=button1  value=GO >"     end if     strTemp=strTemp & "</td></tr></table>"     ShowPage=strTemp end function