首页 / ASP / asp中"无限流"分页程序代码

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

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了asp中"无限流"分页程序代码，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含9550字，纯文字阅读大概需要14分钟。

内容图文

<%
'******************************************************************
'** 本程序名："无限流"分页程序
'** 作者：Arbiter(AAsx)
'** 版本：Million Level
'**
'** QQ：22222xx
'** Email：Arbiter@21cn.com
'** http://www.imagecity.org/
'******************************************************************
'**
'** 【作者的话】
'**
'** 分页程序无疑是许多网络程序功能中一个比较麻烦的东西，事实上现在
'** 为止绝大部分人还是在使用传统的分页方法(Rs.PageSize=xx)，而了解
'** 数据库操作的人都知道，这种传统方式有个弊端：第一次打开页面时，
'** 它会预读所有的记录集，这当在数据大的时候，这将是致命的，而且接
'** 下来的翻页速度也会非常慢，很占用资源。对于十万数量级以上的数据
'** 库这种传统分页方式已经显得非常无力，更别说百万级了（根本没法操
'** 作）。基于这种原因，促使我做了本程序。
'**
'** 【程序功能】
'**
'** 针对大型的数据库进行分页操作，理想的可操作的数据记录量在200万
'** 以内(Max Level版将无数量限制，且无论数据库多大，翻页速度都是
'** 不变)，这是Million Level版分页程序在赛扬1G、内存512、win2k环
'** 境下的测试数据：
'**
'** SQLserver 2k + 10万条记录 + 每页显示20条：
'** 平均翻页速度：45ms
'** SQLserver 2k + 100万条记录 + 每页显示20条：
'** 平均翻页速度：350ms
'**
'**
'** 【分页原理】
'**
'** 本程序不再使用Rs.PageSize的方式分页，连接数据库的游标类型
'** 也不是使用conn,1,x，而是conn,0,1，这应是最快的游标类型了，不要
'** 以为这样会使程序变得复杂，相反，程序非常简单，如果你看不明白，
'** 应该是我的编程风格你不习惯，而非程序复杂。
'** "无限流"分页的中心是：每页只读出需要显示的记录，不再象传统
'** 分页程序预读全部的数据，这正在本程序最大的优点--占用资源少，同
'** 理速度也得到非常大的提升，特别在数据量越大的时候，它的速度优势
'** 越明显（100万记录才350ms左右）。
'** 当程序执行后，使用CurcorBegin和CurcorEnd记录显示的第一条记
'** 录和最后一条记录的ID值，作为下一次翻页的标记，然后利用Top xx取
'** 出需要的数据显示，同时又再对ID值进行记录。
'**
'** 【结言】
'**
'** 本程序为共享版，提供给各程序爱好者研究使用，若要转载、散播、修
'** 改或作其他用途，请尊重作者的辛劳，注明出处。
'** 如果本程序中有错漏、非最优化等缺点，请到www.csdn.net的Web开发/
'** ASP栏目中发表讨论，为了中国软件事业的发展，请不要固步自封：）
'**
'********************************************************************
Option Explicit
'Response.Flush
Dim BeginTime,EndTime
BeginTime=Timer
Dim conn,SQLstr,Rs,DefRecordNum,CursorBegin,CursorEnd,CurPageNum,hav
DefRecordNum=20
'--------------获取相关参数----------
If Request("CursorBegin")="" Then CursorBegin=0 Else CursorBegin=Request("CursorBegin")
If Request("CursorEnd")="" Then CursorEnd=0 Else CursorEnd=Request("CursorEnd")
If Request("CurPageNum")<>"" Then
CurPageNum=CLng(Request("CurPageNum"))
If CurPageNum<=0 Then CurPageNum=1
Else
CurPageNum=1
End If
hav=Request("hav")
If hav="" Then hav="next"
'----------------End-----------------
'------------显示翻页内容函数--------
Function TurnPageFS(DispRecordNum)
Dim n
While Not(Rs.Eof) And n<DispRecordNum
n=n+1
Response.Write "<tr>"&_
"<td bgcolor='efefef'>"&Rs(0)&"</td>"&_
"<td bgcolor='efefef'>"&Rs(1)&"</td>"&_
"<td bgcolor='efefef'>"&Rs(2)&"</td>"&_
"<td bgcolor='efefef'>"&Rs(3)&"</td>"&_
"<td bgcolor='efefef'>"&Rs(4)&"</td>"&_
"<td bgcolor='efefef'>"&Rs(5)&"</td>"&_
"</tr>"
If n=1 Then CursorBegin=Rs(0)
If n=DefRecordNum or Rs.Eof Then CursorEnd=Rs(0)
Rs.MoveNext
Wend
End Function
'-------------连接数据库-------------
Set conn=Server.CreateObject("Adodb.Connection")
'SQLstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("mldata.mdb")
SQLstr="Driver={SQL Server};server=arbiter;uid=arbiter;pwd=123456;database=mldata"
conn.Open SQLstr
'---------统计总记录数/总页数---------
'-PS：推荐使用count(ID)，ID为自动编号且索引，否则速度有可能大打折扣
'-PS：此统计是本程序中最耗资源的一部分，如果取消这段程序，速度会快上10倍左右
Dim TotalRecords,TotalPages
SQLstr="Select count(ID) As RecordSum From ABC"
Set Rs=conn.Execute(SQLstr,0,1)
TotalRecords=Rs("RecordSum")
TotalPages=Abs(Int(TotalRecords/DefRecordNum*(-1)))
Rs.Close
Set Rs=Nothing
'--------根据hav选择相应的SQL字串-----
Select Case(hav)
Case "back"
CursorEnd=CursorBegin
SQLstr="Select Top "&DefRecordNum&"_
ID,Title,FileName,K,ImgSize,NameSon _
From ABC Where ID<"&CursorBegin&_
" And ID In (Select Top "&DefRecordNum_
&" ID From ABC Where ID<"&CursorBegin_
&" order by ID DESC) order by ID"
Case "next"
SQLstr="Select Top "&DefRecordNum_
&" ID,Title,FileName,K,ImgSize,NameSon From ABC Where ID>"&CursorEnd&_
" order by ID"
End Select
Set Rs=conn.Execute(SQLstr,0,1)
%>
<html>
<head>
<title>"无限流"分页程序　　作者：Arbiter</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">td,br,div,p,body {font-size:12px}</style>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<table width="100%" border="0" cellspacing="0" cellpadding="3" bgcolor="#E2F5FE">
<tr align="center">
<td colspan="2"><%Response.Write CurPageNum&"/"&TotalPages&"页总记录数："&TotalRecords%></td>
<td><a href="mllist.asp">首页</a> <a href=javascript:turnpage('back');>上一页</a>
<a href=javascript:turnpage('next');>下一页</a> </td>
</tr>
</table>
<table width="100%" border="1" cellspacing="0" cellpadding="3" bgcolor="#CCCCCC">
<tr>
<td>ID</td>
<td>Title</td>
<td>FileName</td>
<td>大小</td>
<td>尺寸</td>
<td>类别</td>
</tr>
<%
TurnPageFS(DefRecordNum)
Rs.Close
Set Rs=Nothing
conn.Close
Set conn=Nothing
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="3" bgcolor="#E2F5FE">
<tr align="center">
<td colspan="2"><%Response.Write CurPageNum&"/"&TotalPages&"页总记录数："&TotalRecords%></td>
<td><a href="mllist.asp">首页</a> <a href=javascript:turnpage('back');>上一页</a>
<a href=javascript:turnpage('next');>下一页</a> </td>
</tr>
</table>
<%
EndTime=Timer
Response.Write "<br>程序执行时间："&(EndTime-BeginTime)*1000&"毫秒"
Response.Write " 第一条记录的ID值(CursorBegin)="&CursorBegin&" "
Response.Write "最后一条记录的ID值(CursorEnd)="&CursorEnd&"<br><br>"
%>
<script language="javascript">
function turnpage(func){
var CurPageNum=<%=CurPageNum%>; //取得当前页码
var CursorBegin=<%=CursorBegin%>; //取得第一个显示的记录的ID值
var CursorEnd=<%=CursorEnd%>; //取得最后一个显示的记录的ID值
var TotalPages=<%=TotalPages%>; //取得页面总数
var BackUrl='mllist.asp?CurPageNum='+(CurPageNum-1)+'&CursorBegin='+CursorBegin+'&CursorEnd='+CursorEnd+'&hav=back';
var NextUrl='mllist.
asp?CurPageNum='+(CurPageNum+1)+'&CursorBegin='+CursorBegin+'&CursorEnd='+CursorEnd+'&hav=next';
if(CurPageNum<=1 && func=='back'){
location.href='#';
}else if(CurPageNum>=TotalPages && func=='next'){
location.href='#';
}else if(func=='back'){
location.href=BackUrl;
}else if(func='next'){
location.href=NextUrl;
}
}
</script>
</body>
</html>
asp?CurPageNum='+(CurPageNum+1)+'&CursorBegin='+CursorBegin+'&CursorEnd='+CursorEnd+'&hav=next';
if(CurPageNum<=1 && func=='back'){
location.href='#';
}else if(CurPageNum>=TotalPages && func=='next'){
location.href='#';
}else if(func=='back'){
location.href=BackUrl;
}else if(func='next'){
location.href=NextUrl;
}
}
</script>
</body>
</html>
Cnbruce的代码：
分页样例：[首页] [上页] [下页] [尾页] [页次：4/5页] [共86篇 20篇/页] 转到：_ 页
以下为公用代码，必须具备。
<%filepath=request.servervariables("path_info")%>
<%page=1 '设置变量初始值PAGE=1
page=request.querystring("page") 'page值为接受值
rs.PageSize = 20 '每页显示记录数
if Not IsEmpty(trim(Request("Page"))) then '如果PAGE已经初始化...
Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量
if Page > rs.PageCount then '如果接收的页数大于总页数
rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页
elseif Page <= 0 then '如果page小于等于0
Page = 1 '设置PAGE等于第一页
else
rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
end if
End if
Page = rs.AbsolutePage%>
第一种分页
<%if rs.pagecount<>1 and rs.pagecount<>0 then%>'首先判断页总数不为1和0
<%if page>1 then%>
<%if page<rs.pagecount then %>
[<a Href="<%=filepath%>?Page=<% = 1%>">首页</a>]
[<a Href="<%=filepath%>?Page=<% = page -1 %>">上一页</a>]
[<a Href="<%=filepath%>?Page=<% = page + 1%>">下一页</a>]
[<a Href="<%=filepath%>?Page=<% = rs.PageCount%>">尾页</a>]
<%else%>
[<a Href="<%=filepath%>?Page=<% = 1%>">首页</a>]
[<a Href="<%=filepath%>?Page=<% = page -1 %>">上一页</a>]
[下一页] [尾页]
<% end if %>
<%else%>
[首页] [上一页]
[<a Href="<%=filepath%>?Page=<% = page + 1%>">下一页</a>]
[<a Href="<%=filepath%>?Page=<% = rs.PageCount%>">尾页</a>]
<%end if %>
<%else%>
[首页] [上一页] [下一页] [尾页]
<%end if%>
第二种分页
<%if rs.pagecount<>1 and rs.pagecount<>0 then%>
<%if page>1 then%>
[<a Href="<%=filepath%>?Page=<% = 1%>">首页</a>]
[<a Href="<%=filepath%>?Page=<% = page -1 %>">上一页</a>]
<%if page<rs.pagecount then %>
[<a Href="<%=filepath%>?Page=<% = page + 1%>">下一页</a>]
[<a Href="<%=filepath%>?Page=<% = rs.PageCount%>">尾页</a>]
    <%else%>
    [下一页] [尾页]
<% end if %>
<%else%>
[首页] [上一页]
[<a Href="<%=filepath%>?Page=<% = page + 1%>">下一页</a>]
[<a Href="<%=filepath%>?Page=<% = rs.PageCount%>">尾页</a>]
<%end if %>
<%else%>
[首页] [上一页] [下一页] [尾页]
<%end if%>
第三种
<%if rs.pagecount<>1 and rs.pagecount<>0 then%>
<%if page<rs.pagecount then%>
<%if page=1 then %>
[首页] [上一页]
<%else%>
[<a Href="<%=filepath%>?Page=<% = 1%>">首页</a>]
[<a Href="<%=filepath%>?Page=<% =page -1 %>">上一页</a>]
<% end if %>
[<a Href="<%=filepath%>?Page=<% = page + 1%>">下一页</a>]
[<a Href="<%=filepath%>?Page=<% = rs.PageCount%>">尾页</a>]
<%else%>
[<a Href="<%=filepath%>?Page=<% = 1%>">首页</a>]
[<a Href="<%=filepath%>?Page=<% =page -1 %>">上一页</a>]
[下一页] [尾页]
<%end if %>
<%else%>
[首页] [上一页] [下一页] [尾页]
<%end if%>

内容总结

以上是互联网集市为您收集整理的asp中"无限流"分页程序代码全部内容，希望文章能够帮你解决asp中"无限流"分页程序代码所遇到的程序开发问题。如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容，请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

扫描二维码推送至手机访问。

本文链接：https://qyyshop.com/info/384737.html

来源：【匿名】

【上一篇】asp中创建多级目录的两段代码【下一篇】ASP知识讲座四

更多 ►

【asp中"无限流"分页程序代码】教程文章相关的互联网学习教程文章

ASP.NET的分页方法（四）【代码】

这是我早先得到的一段JS代码，只需要修改一下开头的几个参数，就可以使用，不知道能否试用于静态页面呢，大家可以尝试一下 <script language="javascript">var obj, j;var page = 0;var nowPage = 0;//当前页var listNum = 3;//每页显示<ul>数var PagesLen;//总页数var PageNum = 4;//分页链接接数(5个)onload = function () {obj = document.getElementById("pageshow").getElementsByTagName("li");j = obj.lengthPag...

Asp.net mvc项目分页功能【代码】【图】

1.定义一个分页用的Page<T>类 1/* 使用示例：2 var pager = new Pager<Article>(3 this.ControllerContext, //上下文4 type.Articles,//数据源5 10//,每页大小6 //"page" url中分页参数名称，默认为page7 );8 * */ 9///<summary> 10/// 基于ControlerContext的分页辅助类11///</summary> 12///<typeparam name="T"></typeparam> 13 14publi...

ASPNETPager常用属性（近来用到分页属性）

ASPNETPager常用属性建议去封装好，然后调用这样比较容易<webdiyer:aspnetpager id="AspNetPager1" runat="server" alwaysshow="True" PageSize="5" custominfosectionwidth="20%" custominfotextalign="Right" firstpagetext="第一页" horizontalalign="Left" lastpagetext="末一页" navigationbuttontype="Image" nextpagetext="后...

ASP分页格式

page=trim(request.form("page"))sqlTemp=""session("sqlSearch")=sqlTemp&""rsM.open session("sqlSearch"),connM,1,1 countYes=trueif rsM.eof then Response.write "0215-|-"%><table class="tableMa" cellspacing="1px" cellpadding="0"> <tr> <th>暂无数据</th> </tr></table><% countYes=false‘无消息 Response.end else rsM.PageSize = 10 ...

AspNetAjaxPager,Asp.Net通用无刷新Ajax分页控件，支持多样式多数据绑定【图】

本控件可以对GridView,Repeater,DataGrid,DataList...几乎所有的.net数据绑定控件进行分页，全部无刷新，数据绑定部分可以使用存储过程也可以直接使用sql语句，这对本控件没有任何干扰！本控件具有较好的用户界面，能够根据需要变换各种样式，配合css控制效果则更好！ 1.分页样式效果图： 2.如何使用：于bin目录下添加：AspNetAjaxPager.dll引用 aspx文件内容：复制代码代码如下:<%@ Page Language="C#" AutoEventWireup="true" ...

[项目构建]babasport 分页的使用及解析.【代码】【图】

首先说明: 这里分页是使用了SSM框架+ jsp 来做的, 当然分页还有其他的很多做法, 比如easyUI自带的分页效果. 但是这些原理都是很相似的, 再次只做为学习总结之用.一, 效果图这里的截图是来自百度, 当然我们的项目也是做成这种效果, 当点击第10页时, 相应页码数也要发生相应变化.二, 代码实例1, 首先我们在项目中加入了一个page 的jar包, 这个jar包有3个java文件组成, 这个jar包是事先写好的通用分页插件.另外这里将源码也写上来:Pag...

让Asp.NET的DataGrid可排序、可选择、可分页

DataGrid是Asp.NET中的一个重要的控件，经常我们都将DataGrid做成可分页的和可排序的，有时还需要加上选择功能。这些都是经常需要用到的方法，其实是比较简单的。设计思路：为了方便起见，我们连接SQL Server 2000的NorthWind数据库的Orders表，从数据库里得到此表的数据视图。利用DataGrid的SortCommand事件实现排序。用一个模板列加上CheckBox控件实现选择。可用DataGrid的属性生成器的“分页”选项或者自己修改HTML实现分页。...

asp.net下经典数据库记录分页代码

1、 SELECT TOP PAGESIZE NEWSTITLE FORM NEWSINFO WHERE NEWSID NOT IN (SELECT TOP (PAGE-1)* PAGESIZE NEWSID FROM NEWSINFO WHERE Auditing=1 and NEWSBREED=‘企业新闻‘ order by NEWSID DESC) AND Auditing=1 and NEWSBREED=‘企业新闻‘ order by NEWSID DESC 其中：PAGE表示当前页数，PAGESIZE表示页的大小；这里利用了NOT IN,不复合SARG，但总比一次读取全部的记录要好的多。 2、符合 SARG的代码针对本人...

asp.net LINQ实现数据分页【代码】【图】

using System; using System.Collections.Generic; using System.Linq; using System.Web; using System.Web.UI; using System.Web.UI.WebControls; using System.Configuration;publicpartialclass _Default : System.Web.UI.Page {LinqDBDataContext lqDB = new LinqDBDataContext();int pageSize = 3;protectedvoid Page_Load(object sender, EventArgs e){if (!IsPostBack){ViewState["pageindex"] = 0;bindGrid();}}protected...

在ASP.NET MVC中使用Boostrap实现产品的展示、查询、排序、分页【代码】【图】

在产品展示中，通常涉及产品的展示方式、查询、排序、分页，本篇就在ASP.NET MVC下，使用Boostrap来实现。源码放在了GitHub: https://github.com/darrenji/ProductsSearchSortPage 先上效果图：最上面是搜索和排序，每次点击搜索条件、排序，或者删除搜索条件都会触发异步加载。中间部分为产品展示，提供了列表和格子这2种显示方式。最下方为分页。能实现的功能包括：○ 点击某一个搜索条件，该搜索条件被选中，选中项以标签的...

ASP.NET DataList绑定数据并实现分页

显示当前页码Label属性值ID NowPageNumberLabtext 1×××××××××××××××××××××显示总页码Label属性值ID BackPageNumberLabtext ""××××××××××××××××××××LinkButton属性值ID LnkBtnOnetext 第一页 ×××××××××××××××××××××LinkButton属性值ID LnkBtnUptext 上一页×××××××××××××××××××××LinkButton属性值ID LnkBtnNexttext 下一页×××××××××××××××××××××LinkButton属性值ID LnkBtnBacktext 最后一页 <%# Eva...

asp.net 数据访问层存储过程分页语句

所以最好在数据访层分页,如果这样就要使用存储过程来分页.以下是以pubs 数据库中的employee表为例来进行数据分页的存储过程,你可以参考它根据实际情况来创建自己的存储过程. 注:@pageindex 数据页的索引,@dataperpage 每页的记录数目,@howmanyrecords 用来获取总的记录数. 复制代码代码如下:create proc getdata @pageindex int,@dataperpage int,@howmanyrecords int output as declare @temptable table ( rowindex int, emp_id...

ASP.NET MVC- 使用PageList.Mvc分页【代码】【图】

ASP.NET MVC中进行分页的方式有多种，在NuGet上有提供使用PagedList、PagedList.Mvc进行分页。1. 通过NuGet引用PagedList.Mvc 在安装引用PagedList.Mvc的同时会安装引用PagedList。　　1.看一下Controller页面的代码，最后就简单的一句，将List数据ToPagedList返回过去就可以了。原来爱怎么分页可以怎么分页。 1//引用 2using PagedList;3namespace MvcApplication1.Controllers4{5publicclass SplitPageController : Controller6 ...

【asp.net】asp分页<牛腩>【图】

前言在我们平时浏览网页时，都会遇到样式各异的分页，这样做既美观，又减少了系统的压力，一举多得。鉴于牛腩新闻发布系统中，牛腩老师只讲了分页的方法，并举了个例子，并没有真正将分页融合到系统中，今天我就将分页融合到系统的方法分享给大家。假分页顾名思义，这个不是真正的分页，而是先选择出所有的记录后在进行分页。如下：首先，我们打开gridview控件的属性，将gridview的AllowPaging属性改为True，然后，...