ASP万用分页程序

这只是个asp小技巧类的东西，它虽然适合在每个不同文件名里调用这个函数，但是也是有前提的，下面让我们来仔细看看其中的原委。 
　　下面这段是基本的分页代码：

＜% sql = "select……………………省略了sql语句
　Set rs=Server.Createobject("ADODB.RECORDSET")
　rs.Open sql, conn, 1, 1
　if not rs.eof then
　　pages = 30 '定义每页显示的记录数
　　rs.pageSize = pages '定义每页显示的记录数
　　allPages = rs.pageCount'计算一共能分多少页
　　page = Request.QueryString("page")'通过浏览器传递的页数
　　'if语句属于基本的排错处理
　　if isEmpty(page) or Cint(page) ＜ 1 then
　　　page = 1
　　elseif Cint(page) ＞ allPages then
　　　page = allPages 
　　end if
　　rs.AbsolutePage = page
　　Do while not rs.eof and pages ＞ 0 %＞
　　　这里输出你要的内容………………
　　　＜% pages = pages - 1
　　　rs.MoveNext
　　Loop
　else
　　Response.Write("数据库暂无内容！")
　End if
　rs.Close
　Set rs = Nothing %＞

　　系统已经为数据分页了，下面就看看这次探讨的关键问题分页函数的定义

＜% SUB pageUrl(pUrl)
　Dim eUrl
　txts = Request.ServerVariables("URL")
　txts = left(txts,instrrev(txts,"/",len(txts))-1)
　eUrl = "http://"; & Request.ServerVariables("server_name") & txts 
　For i =1 to allpages
　　txt = ""
　　txt = "＜strong＞" 
　　txt = txt & "＜a href=" & eUrl & pUrl & "page="&i & "＞"
　　if i = Cint(Page) then txt = txt & "＜font color='bb0000'＞"
　　　txt = txt & (i) 
　　　if i = Cint(Page) then txt = txt & "＜/font＞"
　　　　txt = txt & "＜/a＞ ∥ ＜/strong＞"
　　　　Response.Write(txt)
　Next
END sub %＞

　　把上面这个分页函数代码COPY存成一个ASP文件，在需要使用的页面里用include来引入他调用的时候只要 Call("/你调用的文件名?")就ok了，比如我的 news页面里要调用那么就是＜%Call("/news.asp?")%＞

刚才我们所到这是有限制的意思就是说第一段代码里除了sql查询内容和输出内容可以更改，其他的声明记录集的对象，page, pages, allpages这些变量都不能更改，否则将无法运行~其实这个程序是无关紧要的，最主要的就是，这个分页函数可以在任何一个asp叶面里调用。

赞 (0)

相关推荐

  • asp万用分页程序代码

    这只是个asp小技巧类的东西,它虽然适合在每个不同文件名里调用这个函数,但是也是有前提的,下面让我们来仔细看看其中的原委. 下面这段是基本的分页代码: <% sql = "select--------省略了sql语句 Set rs=Server.Createobject("ADODB.RECORDSET") rs.Open sql, conn, 1, 1 if not rs.eof then pages = 30 '定义每页显示的记录数 rs.pageSize = pa

  • ASP万用分页程序

    这只是个asp小技巧类的东西,它虽然适合在每个不同文件名里调用这个函数,但是也是有前提的,下面让我们来仔细看看其中的原委.  下面这段是基本的分页代码: <% sql = "select--------省略了sql语句 Set rs=Server.Createobject("ADODB.RECORDSET") rs.Open sql, conn, 1, 1 if not rs.eof then pages = 30 '定义每页显示的记录数 rs.pageSize = p

  • asp中"无限流"分页程序代码

    <% '****************************************************************** '** 本程序名:"无限流"分页程序 '** 作者:Arbiter(AAsx) '** 版本:Million Level '** '** QQ:22222xx '** Email:Arbiter@21cn.com '** http://www.imagecity.org/ '*********************************

  • asp分页（自己整理的2个分页程序）

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/19

  • Asp.net 通用万级数据分页代码[修正下载地址]

    Asp.net 通用万级数据分页代码[修正下载地址]

    1.主题,Asp.net环境下,通用的数据分页(包括Oracle,SqlServer,DB2...) 很久以前,就想做一个通用点的数据分页组件,但苦于一直没有充足的时间,所以迟迟没有实现(当然,主要是因为有一定的难度,要处理视图状态,回传事件,自绘等...),"十一"期间,陪女朋友去了躺"湘西",白天游山玩水,晚上无事,吃吃当地的夜宵,无聊之际,google了一把Oracle的数据分页,竟然没有一个完整的关于Asp.net + Oracle数据分页的例子,要不就是有

  • ASP编程入门进阶（二十）：ADO组件之分页程序

    应该来说,学会了如何插入记录,如何显示记录,那么现在简单的完整的文章系统.新闻系统和留言系统不成问题.那接着下面的问题就是:随着信息内容的不段增加,单独通过一张页面显示所有信息是不行也是很不理性的.所以,解决的办法就是采用分页技术. 1,rs.RecordCount很显然,RecordCount就是用来显示数据库表中一共多少条记录的,也可以形象地说表中一共有多少行.经常用在分页中就是一共有N篇文章等总计的信息显示. 2,rs.PageSizers.PageSize也就是一页的大小,也就表示一张A

  • 让Win2008+IIS7+ASP.NET支持10万并发请求

    今天下午17点左右,博客园博客站点出现这样的错误信息: Error Summary: HTTP Error 503.2 - Service Unavailable The serverRuntime@appConcurrentRequestLimit setting is being exceeded. Detailed Error Information: Module IIS Web Core Notification BeginRequest Handler StaticFile Erro

  • 来自CSDN的"无限流"分页程序

    以下是代码片段:  '******************************************************************   '** 本程序名:"无限流"分页程序   '** 作者:Arbiter(AAsx)   '** 版本:Million Level   '**   '** QQ:22222xx   '** Email:Arbiter@21cn.com   '** http://www.imagecity.org/   '*************

  • ASP.NET Core中使用xUnit进行单元测试

    ASP.NET Core中使用xUnit进行单元测试

    单元测试的功能自从MVC的第一个版本诞生的时候,就是作为一个重要的卖点来介绍的,通常在拿MVC与webform比较的时候,单元测试就是必杀底牌,把webform碾压得一无是处. 单元测试的重要性不用多说了,有单元测试的做兜底的项目,好比给开发人员买了份保险,当然这个保险的质量取决于单元测试的质量,那些一路Mock的单元测试,看起来很美,但是什么都cover不到.目前工作中的一个老项目,有2万多个单元测试用例,其中不少是用心之作,真正落实到了业务逻辑,开发人员可以放心的去修改代码,当然一切都必须按

  • ASP.NET性能优化小结(ASP.NET&C#)

    ASP.NET: 一.返回多个数据集 检查你的访问数据库的代码,看是否存在着要返回多次的请求.每次往返降低了你的应用程序的每秒能够响应请求的次数.通过在单个数据库请求中返回多个结果集,可以减少与数据库通信的时间,使你的系统具有扩展性,也可以减少数据库服务器响应请求的工作量. 如果用动态的SQL语句来返回多个数据集,那用存储过程来替代动态的SQL语句会更好些.是否把业务逻辑写到存储过程中,这个有点争议.但是我认为,把业务逻辑写到存储过程里面可以限制返回结果集的大小,减小网络数据的流量,在逻辑层也不

随机推荐