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

网学网为需要asp的朋友们搜集整理了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