繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ShowPage 显示“上一页 下一页”等信息的封装代码
- ASP
- 超级ASP版DataGrid：SkyGrid本地下载
- 用QuickWAP组件结合ASP建设Wap站点
- ASP中取得图片宽度和高度的类（无组件）
- 在ASP处理程序时显示进度
- 结合FSO操作和Aspjpeg组件写的Class
- asp实现的7xi音乐网的采集源代码
- 用asp+xmlhttp编写web采集程序
- 推荐ASP超速入门视频教程
- 关于“未指定的错误”的问题 的比较正解的解决方法
- 用asp脚本实现限制IP访问
- aspupload 3.0 下载与使用集锦
- [教程+分享]具有良好体验度的Web注册系统
- asp 实现视频显示的效果函数
- asp实现图片右键滑轮控制大小的函数
- 彻底掌握ASP分页技术杂谈
- aspupload文件重命名及上传进度条的解决方法附代码
- ASPJPEG综合操作的CLASS类
- asp通用采集函数冗余版可以保存文件到本地
- 使用ODBC数据库管理Serv-U的FTP用户及相关ASP编程[附源码示例下载]
- [asp]阿里西西的alexa采集效果代码
ASP 中的 ShowPage 显示“上一页 下一页”等信息的封装代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 143 ::
收藏到网摘: n/a
'**************************************************
'函数名：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 '
评论 (0) All
