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