- '**************************************************
- '函数名: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
ShowPage 显示“上一页 下一页”等信息的封装代码
2019-10-09 14:12asp代码网 ASP教程
ShowPage 显示“上一页 下一页”等信息的封装代码
延伸 · 阅读
- 2022-03-10c++代码各种注释示例详解
- 2022-03-09使用 React 和 TypeScript something 编写干净代码的十个
- 2022-03-09如何写好 Java 业务代码?这也是有很多规范的!
- 2022-03-07图文介绍c#封装方法
- 2022-03-07手动编译C#代码的方法
- 2022-03-06java使用RestTemplate封装post请求方式
- ASP教程
使用ASP记录在线用户的数量的代码
网络的访问量是每一个做网站的网友们都非常关心的问题。如何得知有多少个人正在访问你的网站呢?如何将每天的访问量记录下来?下面就是一个解决方...
- ASP教程
最小asp后门程序
这个代码,一般不会 被病毒查杀,而且文件比较小,不容易被怀疑,可以放到别的asp文件中,起到隐藏的目的 ...
- ASP教程
asp 采集实战代码
最近实在是太流行采集了,本人是不喜欢采集的,但对采集的原理我却很有兴趣进行研究,拿到了网上采集常用函数,对其进行了一番研究,并实战,结果...
- ASP教程
CreateKeyWord asp实现的由给定的字符串生成关键字的代码
CreateKeyWord asp实现的由给定的字符串生成关键字的代码 ...
- ASP教程
一个改进的ASP生成SQL命令字符串类的代码[已测]
网上找资料发现的,但是调试的时候发现有一些问题,改了一下,还有一定的问题,但是可以做一般使用了。没有考虑数据类型的问题,还有SQL Server 和a...
- ASP教程
asp最简单最实用的计数器
刚才找一个计数器,由于网站的访问量太少,放个计数器在那里确实有点寒酸了,于是呼只能搞一个简单点的,可以访问一次就记录一次的来撑撑门面先。...
- ASP教程
asp 标记字符串中指定字符变色不区分大小写
今天遇到这种问题,单纯的使用replace函数不行,他会改变原有的字符串的大小写,在网上找到相关的代码,自己备份下...
- ASP教程
ASP编程入门进阶(五):内置对象Response
通过对Request对象的学习,可以了解到,Request对象是服务器端用来获取客户端的信息的。 但作为服务器和客户端进行交互,是不是还缺少服务器端向客户端...