"无限流"分页程序,终于调试成功



<%
    '******************************************************************
    '** 本程序名:"无限流"分页程序
    '** 作者: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,strSQL,Rs,DefRecordNum,CursorBegin,CursorEnd,CurPageNum,hav
    Dim 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")
    'strSQL="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("mldata.mdb")
    'strSQL="driver={sql server};server=127.0.0.1;uid=llcs;pwd=a1s2d3f4;database=llcs_1216"
    'conn.Open strSQL
    
    '---------统计总记录数/总页数---------
    '-PS:推荐使用count(id),id为自动编号且索引,否则速度有可能大打折扣
    '-PS:此统计是本程序中最耗资源的一部分,如果取消这段程序,速度会快上10倍左右
    Dim TotalRecords,TotalPages
    strSQL="Select count(id) As RecordSum From las_ads"
    Set Rs=conn.Execute(strSQL,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
    strSQL="Select Top "&DefRecordNum&" id,ti,fs,fc,fl,hy From las_ads Where id<"&CursorBegin&_
    " And id In (Select Top "&DefRecordNum&" id From las_ads Where id<"&CursorBegin&" order by id DESC) order by id"
    Case "next"
    strSQL="Select Top "&DefRecordNum&" id,ti,fs,fc,fl,hy From las_ads Where id>"&CursorEnd&_
    " order by id"
    End Select
    Set Rs=conn.Execute(strSQL,0,1)
    %>
    
    
    搜车联盟分页
    
    
    
    
    
    
    
    
    
    
<%Response.Write CurPageNum&"/"&TotalPages&"页 总记录数:"&TotalRecords%>首页 上一页
    下一页

    
    
    
    
    
    
    
    
    
    <%
    TurnPageFS(DefRecordNum)
    Rs.Close
    Set Rs=Nothing
    conn.Close
    Set conn=Nothing
    %>
    
idTitleFileName大小尺寸类别

    
    
    
    
    
    
<%Response.Write CurPageNum&"/"&TotalPages&"页 总记录数:"&TotalRecords%>首页 上一页
    下一页

    <%
    EndTime=Timer
    Response.Write "
程序执行时间:"&(EndTime-BeginTime)*1000&"毫秒"
    Response.Write " 第一条记录的id值(CursorBegin)="&CursorBegin&" "
    Response.Write "最后一条记录的id值(CursorEnd)="&CursorEnd&"

"
    %>
    
    
    


上一篇: ASP中过滤SQL命令字符
下一篇: "无限流"分页程序[改进版]
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志:
评论: 0 | 引用: 0 | 查看次数: 1093
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 300 字 | UBB代码 开启 | [img]标签 关闭