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

以下是代码片段: 
'******************************************************************  
'** 本程序名:"无限流"分页程序  
'** 作者: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 n=n+1  
Response.Write ""&_  
""&Rs(0)&""&_  
""&Rs(1)&""&_  
""&Rs(2)&""&_  
""&Rs(3)&""&_  
""&Rs(4)&""&_  
""&Rs(5)&""&_  
""  
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)  
%>

td,br,div,p,body {font-size:12px}

首页 上一页   
下一页

ID  
Title  
FileName  
大小  
尺寸  
类别

首页 上一页   下一页

function turnpage(func){  
var CurPageNum=; //取得当前页码  
var CursorBegin=; //取得第一个显示的记录的ID值  
var CursorEnd=; //取得最后一个显示的记录的ID值  
var 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;  
}  
}

(0)

相关推荐

  • RateLimiter 源码分析

    俗话说得好,缓存,限流和降级是系统的三把利剑.刚好项目中每天早上导出数据时因调订单接口频率过高,订单系统担心会对用户侧的使用造成影响,让我们对调用限速一下,所以就正好用上了. 常用的限流算法有2种:漏桶算法和令牌桶算法. 漏桶算法 漏桶算法:请求先进入"桶"中,然后桶以一定的速率处理请求.如果请求的速率过快会导致桶溢出.根据描述可以知道,漏桶算法会强制限制请求处理的速度.任你请求的再快还是再慢,我都是以这种速率来处理. 但是对于很多情况下,除了要求能够限制平均处理速度外,还要求能允许一

  • nginx 如何实现读写限流的方法

    nginx 读写限流 前段时间,开发了一个供外部调用的api,领导说要限流,请求单个IP,每秒50读次,写10次 万能的nginx,几行配置搞定 # 先定义好规则,需要写在server外面 limit_req_zone $binary_remote_addr $uri zone=api_write:20m rate=10r/s; # 写 limit_req_zone $binary_remote_addr $uri zone=api_read:20m rate=50r/s; # 读 # 把需要限

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

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

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

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

  • java秒杀之redis限流操作详解

    最近写到了一个秒杀的功能模块,为了保证高并发情况下不会宕机,要从多方面去考虑,当前的限流操作只是其中的一个方面,具体操作如下. 导入所需依赖 <properties> <project.build.sourceEncoding>UTF-8</project.build.sourceEncoding> <maven.compiler.source>1.8</maven.compiler.source> <maven.compiler.targ

  • kubernetes实现分布式限流

    目录 一.概念 1.1 使用场景 1.2 维度 1.3 分布式限流 二.分布式限流常用方案 三.基于kubernetes的分布式限流 3.1 kubernetes中的副本数 3.2 rateLimiter的创建 3.3 rateLimiter的获取 3.4 filter里的判断 四.性能压测 无限流 使用redis限流 自研限流 五.其他问题 5.1 对于保证qps限频准确的时候,应该怎么解决呢? 5.2 服务从1个节点动态扩为4个节点,这个时候新节点识别为4,但其实有些并没有启动完,会不会造成

  • Spring Cloud Alibaba微服务组件Sentinel实现熔断限流

    目录 Sentinel简介 Sentinel具有如下特性: 安装Sentinel控制台 创建sentinel-service模块 限流功能 创建RateLimitController类 根据URL限流 自定义限流处理逻辑 熔断功能 与Feign结合使用 使用Nacos存储规则 原理示意图 功能演示 Sentinel简介 Spring Cloud Alibaba 致力于提供微服务开发的一站式解决方案,Sentinel 作为其核心组件之一,具有熔断与限流等一系列服务保护功能,本文将对其用法进行详细介

  • 都9102年了,你还用for循环操作集合吗

    前言 前段时间公司书架多了一本<Java8 实战>,毕竟久闻lambda的大名,于是借来一阅.这一看,简直是惊为天人啊,lambda,stream,java8里简直是满脑子骚操作,看我的一愣一愣的.我甚至是第一次感觉到了什么叫优雅. 本文主要介绍java8中的流处理,看看java8是怎么愉快的玩耍集合的,让我们来一起感受java8的魅力吧! 我就随便举个例子,看看Stream有多优雅. // 对苹果按颜色汇总并绩数量 Map<String, Long> appleCount = a

  • JAVA8 lambda表达式权威教程

    Java 8新特性----Stream流 jdk8是Java 语言开发的一个主要版本,它支持函数式编程,新的 JavaScript 引擎,新的日期 API,新的Stream API 等等.今天就重点介绍一个非常重要得特性之一 lambda表达式 一:什么是 Stream? Stream(流)是一个来自数据源的元素队列并支持聚合操作 Java中的Stream并不会存储元素,而是按需计算. 数据源 流的来源. 可以是集合,数组,I/O channel, 产生器generator 等. 聚合操作 类似

  • 一文带你掌握Java8强大的StreamAPI

    目录 Stream 概述 Stream 实例化 1.方式一:通过集合 2.方式二:通过数组 3.方式三:通过Stream的of() 4.方式四:创建无限流 Stream 中间操作 1.筛选与切片 2.映射 3.排序 Stream 终止操作 1.匹配与查找 2.归约 3.收集 Stream 概述 Stream API ( java.util.stream) 把真正的函数式编程风格引入到Java中.这是目前为止对Java类库最好的补充,因为Stream API可以极大提供Java程序员的生产力,让程

  • 玩转python爬虫之正则表达式

    面对大量杂乱的代码夹杂文字我们怎样把它提取出来整理呢?下面就开始介绍一个十分强大的工具,正则表达式! 1.了解正则表达式 正则表达式是对字符串操作的一种逻辑公式,就是用事先定义好的一些特定字符.及这些特定字符的组合,组成一个"规则字符串",这个"规则字符串"用来表达对字符串的一种过滤逻辑. 正则表达式是用来匹配字符串非常强大的工具,在其他编程语言中同样有正则表达式的概念,Python同样不例外,利用了正则表达式,我们想要从返回的页面内容提取出我们想要的内容就易如反掌

  • 彻底解决页面文字编码乱码问题

    本文提供一种方法,通过将字符串编码成Unicode格式,保证数据在展示和传输过程中万无一失.无论客户端浏览器如何改变编码,页面上的编码都不会乱码. 对于HTML/XML,采用 &# + 十位Unicode码 + ; 的形式格式化字符. 对于JS,采用 \u + 4位Unicode码 来格式化字符串. 示例采用C#编写,使用了 中文.俄文.韩文.日文 来展示.对于PHP,文章末尾将会提到. 首先,有一个String的扩展类. 复制代码 代码如下: using System.Text.Regular

随机推荐