数据分页显示按钮,自动获取url链接
作者:冻结回忆 发布时间:2009-06-22 12:59:00
'/***
' 作 者 :冻结回忆
'修改时间:2007-10-17
'功能说明:数据分页显示按钮,自动获取url链接
'调用方法:mapage(d_count,total,page)
'参数说明:d_count 总记录数 total 总页数 page 当前页
'***/
'/ 获取当前页url
function GetLocationURL()
Dim Url
Dim ServerPort,ServerName,ScriptName,QueryString
ServerName = Request.ServerVariables("SERVER_NAME")
ServerPort = Request.ServerVariables("SERVER_PORT")
ScriptName = Request.ServerVariables("SCRIPT_NAME")
QueryString = Request.ServerVariables("QUERY_STRING")
Url="http://"&ServerName
If ServerPort <> "80" Then Url = Url & ":" & ServerPort
Url=Url&ScriptName
If QueryString <>"" Then Url=Url&"?"& QueryString
GetLocationURL=Url
end function
'/处理?后面的参数
function clearOfpage(myurl)
Dim mynewurl
mynewurl = ""
if Instr(myurl,"?")=0 then
clearOfpage = myurl
Exit function
end if
my_query = split(myurl,"?")
k = my_query(1)
if Instr(k,"&")=0 then
if left(k,4)<>"page" then
clearOfpage = myurl & "&"
else
clearOfpage = my_query(0)
end if
Exit function
end if
j = split(k,"&")
for i=0 to Ubound(j)
if j(i)<>"" and left(j(i),4)<>"page" then
mynewurl = mynewurl & j(i) & "&"
end if
next
clearOfpage = my_query(0) & "?" & mynewurl
end function
'----------------------------------------------------------------------------------
'数据分页:按钮显示 总计 32 条记录 共 1/4 页 首页 上一页 下一页 尾页 跳转到 * 页
'----------------------------------------------------------------------------------
function mapage(d_count,total,page)
Dim myurl,mapclick
myurl = GetLocationURL()
myurl = clearOfpage(myurl)
if Instr(myurl,"?")=0 then
myurl = myurl & "?"
end if
mymap = "总计 "&d_count&" 条记录 共 "&page&"/"&total&" 页 "
if page=1 then
mapclick = " 首页 上一页 "
else
mapclick = " <a href='"&myurl&"page=1'>首页</a> <a href='"&myurl&"page="&page-1&"'>上一页</a> "
end if
if page=total then
mapdbclick = " 下一页 末页 "
else
mapdbclick = " <a href='"&myurl&"page="&page+1&"'>下一页</a> <a href='"&myurl&"page="&total&"'>末页</a> "
end if
jumpclick = vbcrlf&" 跳转到 <select onchange=""window.location.href='"&myurl&"page='+this.value;"">" & vbcrlf
for i=1 to total
if page=i then
jumpclick = jumpclick + "<option value="""&i&""" selected>"&i&"</option>" & vbcrlf
else
jumpclick = jumpclick + "<option value="""&i&""">"&i&"</option>" & vbcrlf
end if
next
jumpclick = jumpclick + " </select> 页" & vbcrlf
mapage = mymap & mapclick & mapdbclick & jumpclick
end function
猜你喜欢
- 分页查询是经常能够遇到的问题,我们首先看看分页查询存在的理由:方便用户:用户不可能一次察看所有数据,所以一页一页的翻看比较好。提高性能:一次
- 论证完使用target=_blank并非绝对错误之后,分场景探讨如何减少新开窗口。自有意识注意这个问题,是看到蓝色经典Plod大叔在04年提
- 这篇文章主要是想说,“引用只能指向具体对象而不能指向引用”//创建变量testArray 并引用数组 ["1&
- -- 任意的测试表 代码如下:CREATE TABLE test_delete( name varchar(10), value INT )
- 本文主要介绍了一个获取SQL Server数据字典的经典SQL语句,大家可以根据各自的实际情况对这段语句进行相应的修改。SELECT sys
- MaxDB和MySQL是独立的数据库管理服务器。系统间的协同性是可能的,通过相应的方式,系统能够彼此交换数据。要想在MaxDB和MySQL之
- 本文探讨了提高MySQL 数据库性能的思路,并从8个方面给出了具体的解决方法。1、选取最适用的字段属性MySQL可以很好的支持大数据量的存取
- “博客就像一本书”这话其实几个月前深圳FB时就有扯到,这也不是什么新概念,也许本身就应该是这样。打个比方,当你拿到一本未看过的书时,理论上你
- 阅读系列教程上一篇:FrontPage2002简明教程二:文字与图像的处理通常网页的布局使用到的是FrontPage 2002中的表格和框架
- 原来sql还有个stuff的函数,很强悍。 一个列的格式是单引号后面跟着4位的数字,比如'0003,'0120,'4
- 先来看看js中的Null类型表示什么?null用来表示尚未存在的对象,常用来表示函数企图返回一个不存在的对象,一般一个未定义的变量在初次使用
- 字符函数——返回字符值这些函数全都接收的是字符族类型的参数(CHR除外)并且返回字符值.除了特别说明的之外,这些函数大部分返回VARCHAR
- 文章主要描述的是SQL Server数据库和Oracle数据库行转列的一种比较典型操作方法,对于有些业务来说,数据在表中的存储与其最终的Gr
- <script language="javascript"> functio
- asp生成wbmp代码如下: <%@ Language=VBScript %><%Funct
- http://swik.net/Ajax/Ajax+Mistakes在某网站瞎逛时,发现这个链接,进去逛了逛,觉得很有意思,大家也可以去看看
- 1.INSERT INTO SELECT语句 语句形式为:Insert into Table2(field1,field2,...) sel
- 各大云计算提供商(亚马逊、谷歌和微软)目前都使用了键/值存储方式。然而,在San Francisco召开的MSDN开发者大会上,微软宣布他们
- 类:在HTML中当表现class属性的时候,人们可以用点(.)号来作为~=号的一个替代选择,所以div.value等同于div[class~
- 很多时候关心的是优化SELECT 查询,因为它们是最常用的查询,而且确定怎样优化它们并不总是直截了当。相对来说,将数据装入数据库是直截了当的