在线用户    站点地图 技术论坛 文档中心 站点导航 资源下载 语言参考 教程专题 站点统计 业务项目 使用帮助
您的位置
MSDN参考新加了CSS2参考,全中文,制作精良。245k下载。           新加了sxf_sxf推荐的"动态网页专家指导" 下载!          新加了lsg2002lsg推荐的"ASP.NET高级编程(PDF)" 下载!          新加了DHTML代码预览!!,功能强大哦!欢迎试用          新加了网友lincong为大家提供的SQL Server 2000 程序员指南,有点大,但同时也就说明内容全咯!           新加了网友ibra为大家提供的北大的JAVA课件,很适合初学者入门           新加了一个java的连接缓冲池代码示例           新加了人月神话电子版下载!软件工程巨著哦~~           更新了评分标准,引入了“专家分”概念,相信可以更好的激励大家的学习!详情请看“使用帮助”           新加了由网友GGG提供的“IIS超级管理手册”,值得一看哦!(虽然我没看过 :P )           新加了“英雄榜”,欢迎测试!           “无组件上传·从原理剖析到实践”已经全部完成,源码全部开放,有兴趣的朋友请到文档中心一探究竟。  您的位置  首页>技术论坛>ASP>F0040460 在同一窗口中打开页面中的链接 在新窗口中打开页面中的链接 将ASPCHINA设为首页 将ASPCHINA加入书签    
 LOGIN HERE
用户:
密码: 忘记密码
记住密码 用户注册 游客进入

论坛首页
|--web开发
   |--ASP
   |--JSP
   |--ASP.net
   |--DHTML
   |--RUBY
|--软件开发
   |--C++
      |--Code here
   |--JAVA
   |--VB
   |--Delphi
   |--XML
|--.net技术
   |--C#
   |--VB.net
|--Yup开发组
|--站务&投诉
   |--站长专区
|--硬件&网络
|--休息室
|--数据库技术
 进入精华区 我要发言



 最佳的数据库分页方法back to ASP forum  
作者:月黑风高,6级分数:0
日期:2003/1/2 15:48:00类别:ASP, 技术问题
回复:10次浏览:1821次
状态:无分贴

转贴:
我觉得这个程序三种方法更完整一点:
************************************************

一:一个老生常谈的问题。
    我们知道,记录集分页是数据库处理中十分常见的问题。而当我们设计到网络数据库,就是说要考虑传输带宽问题时,分页问题就每每困扰着每一个数据库程序设计人员。

二:分页问题的解决方案汇总
    说起解决的方案,每个数据库设计人员可能都会举出许多方法。但细分后,可以归为三类。一:Ado纪录集分页、二:专储记录集分页、三、数据库游标分页。
 一:著名的ADO纪录集分页。
     说到著名,因为这个可能是最简单和常见的分页方法了。(可能也是用的最多的)就是利用ADO自带的分页功能来实现分页。
     具体流程为,数据库根据查询语句返回一个完整的纪录集。然后到客户端后有客户端的游标进行分页。他们大多数由ADO自带的Recordset对象就可以实现了。可能涉及到的属性有:
recordset.pagesize:每页输出纪录集的大小
recordset.AbsolutePage: 当前输出的页    (有以上的两个属性其实就可以完成分页输出了)
recordset.pagecount: 目前的总页数。
     这种方法好不好呢,有的人说是十分好,也有人说效率不高。其实这的根据实际的应用状况来确定,如果是单机数据库,或者是局域网环境,或者数据库纪录较少,则他都是很好的分页方法,而且如果不涉及到网络和更新较少的环境里,则他可以说是最好的分页方法。因为它可以先生成一个缓存记录集,以后的几页纪录都可以不通过数据库来取即可。但是,如果涉及到网络,或者是更新频繁。他就不是很实用的了。

列举程序。(我们都用网络问题来考虑)
 
nowpage=Request("nowpage") '当前的输出页
if nowpage="" or nowpage<1 then nowpage=1

set rs=server.CreateObject("adodb.recordset")
rs.CursorType=1
sql="select * from table1 "
rs.open sql,strconn (strconn为连接字段,已定义过)

rs.PageSize=20  '当前页的大小
if cint(nowpage)>rs.pagecount then nowpage=rs.pagecount
rs.AbsolutePage=nowpage

'然后输出当前一页的纪录
'.............


还可以提供一下程序属性设置。
首页:nowpage=1
前页:nowpage=nowpage-1
下页:nowpage=nowpage+1
尾页:nowpage=rs.pagecount
总纪录数:rs.recordcount
总页数:rs.pagecount

二:转储纪录集分页。
这种方法诞生于网络时代,就是利用服务器端的强大处理过程,先将目标数据库存到一个临时的数据库里,并且加上一个自增字段来进行划分页面,最后将所需固定数目的纪录集传回。

优点是:只需交互一次,而且返回固定一页的纪录集。
缺点是:如果纪录集增大时则每次都需建立一个临时纪录集,也比较耗时间,但减少了网络传输量。
例子:


取自 Worx 英文版的<<Professional Active Server Pages 3.0>>
ISBN1861002610
关键地方我已作了中文翻译

CREATE PROCEDURE usp_PagedAuthors
@iPage int,
@iPageSize int
AS
BEGIN
-- disable row counts
SET NOCOUNT ON

-- declare variables
DECLARE @iStart int -- start record
DECLARE @iEnd int -- end record
DECLARE @iPageCount int -- total number of pages

-- create the temporary table
       --建立临时表。

CREATE TABLE #PagedAuthors        (
--这个自增字段十分关键,就是靠他来完成分页标示。
ID int IDENTITY,      
au_id varchar(11) NOT NULL ,
au_lname varchar(40) NOT NULL ,
au_fname varchar(20) NOT NULL ,
phone char(12) NOT NULL ,
address varchar(40) NULL ,
city varchar(20) NULL ,
state char(2) NULL ,
zip char(5) NULL ,
contract bit NOT NULL 
)

-- populate the temporary table       
--先转存到上面的这个纪录集。
INSERT INTO #PagedAuthors (au_id, au_lname, au_fname, 
phone, address, city, state, zip, contract)
SELECT au_id, au_lname, au_fname, 
phone, address, city, state, zip, contract
FROM authors


-- work out how many pages there are in total
SELECT @iPageCount = COUNT(*)
FROM  authors

SELECT @iPageCount = CEILING(@iPageCount / @iPageSize) + 1

-- check the page number
IF @iPage < 1
SELECT @iPage = 1

IF @iPage > @iPageCount
SELECT @iPage = @iPageCount

-- calculate the start and end records
SELECT @iStart = (@iPage - 1) * @iPageSize
SELECT @iEnd = @iStart + @iPageSize + 1

-- select only those records that fall within our page
--这条sql语句就是选取固定的纪录集。

SELECT au_id, au_lname, au_fname, 
phone, address, city, state, zip, contract
FROM #PagedAuthors
WHERE ID > @iStart
AND ID < @iEnd


DROP TABLE #PagedAuthors

-- turn back on record counts
SET NOCOUNT OFF

-- Return the number of records left
RETURN @iPageCount
END


而输出端可以用最快类型的ADO"火线光标"顺次输出就可
<%
  Dim cmdAuthors
  Dim rsData
  Dim iPage
  Dim iLastPage
  Dim sQuote

  sQuote = Chr(34)

 ' get the requested data
  If Request.QueryString("PAGE") = "" Then
    iPage = 1
  Else
    iPage = CInt(Request.QueryString("PAGE"))

    If iPage < 1 Then
      iPage = 1
    End If
  End If

  ' create the objects
  Set cmdAuthors = Server.CreateObject("ADODB.Command")
  Set rsAuthors = Server.CreateObject("ADODB.Recordset")

  With cmdAuthors
    .ActiveConnection = strConn
    .CommandText = "usp_PagedAuthors"
    .CommandType = adCmdStoredProc

    .Parameters.Append .CreateParameter("RETURN_VALUE", adInteger, _
                              adParamReturnValue)
    .Parameters.Append .CreateParameter("@iPage", adInteger, _
                              adParamINput, 8, iPage)
    .Parameters.Append .CreateParameter("@iPageSize", adInteger, _
                              adParamINput, 8, 10)

    Set rsData = .Execute
  End With

  ' Create the table
  ' start building the table
  Response.Write "<TABLE BORDER=1><THEAD><TR>"
  For Each fldF In rsData.Fields
    Response.Write "<TD>" & fldF.Name & "</TD>"
  Next
  Response.Write "</TR></THEAD><TBODY>"

  ' now loop through the records
  While Not rsData.EOF
    Response.Write "<TR>"
    For Each fldF In rsData.Fields
      Response.Write "<TD>" & fldF.Value & "</TD>"
    Next
    Response.Write "</TR>"
    rsData.MoveNext
  Wend
  Response.Write "</TBODY></THEAD></TABLE><P>"
  ' now some paging controls
  sMe = Request.ServerVariables("SCRIPT_NAME")
  Response.Write " <A HREF=" & sQuote & sMe & "?PAGE=1" & sQuote & ">First Page</A>"

  ' close the recordset and extract the number of records left
  rsData.Close
  iLastPage = cmdAuthors.Parameters("RETURN_VALUE")

  ' only give an active previous page if there are previous pages
  If iPage <= 1 Then
    Response.Write " <SPAN>Previous Page</SPAN>"
  Else
    Response.Write " <A HREF=" & sQuote & sMe & "?PAGE=" & iPage - 1 & sQuote & ">Previous Page</A>"
  End If

  ' only give an active next page if there are more pages
  If iLastPage = iPage Then
    Response.Write " <SPAN>Next Page</SPAN>"
  Else
    Response.Write " <A HREF=" & sQuote & sMe & "?PAGE=" & iPage + 1 &  sQuote & ">Next Page</A>"
  End If

  Response.Write " <A HREF=" & sQuote & sMe & "?PAGE=" & iLastPage & sQuote & ">Last Page</A>"

  ' clean up
  Set rsData = Nothing
  Set cmdAuthors = Nothing
%>

第三种方法:服务器端游表选取纪录集的办法。
    这种办法属于很有争论的办法。
    它主要是用服务器端的游表选取纪录集,然后一次返回,也就是返回多个纪录集,每个纪录集就有一个纪录。然后用Recordset.nextrecord的方法来输出每一个纪录集。
    国外许多网站对此进行过考证,因为第一:Recordset.nextrecord具有这种方法的ADO.游表不是最快的火线游表,第二,许多人认为采用recordset.nextrecord方法输出时其实等于和服务器端交互了一次,所以这种方法属于那种当许多人并发访问数据库时,能导致数据库访问量成倍增。。。 
             
列举程序:(作者:bigeagle)
if exists(select * from sysobjects where ID = object_id("up_TopicList"))
   drop proc up_TopicList
go

create proc up_TopicList 
            @a_ForumID int , @a_intDays int , @a_intPageNo int , @a_intPageSize tinyint
   as
       declare @m_intRecordNumber int
       declare @m_intStartRecord  int
       select @m_intRecordNumber = @a_intPageSize * @a_intPageNo
       select @m_intStartRecord = @a_intPageSize * (@a_intPageNo - 1) + 1

       if @a_intDays = 0                      --如果不限定天数
          begin
                /*求符合条件记录数*/
                select "RecordCount" = count(*)                         
                       from BBS where Layer=1 and ForumID = @a_ForumID 

               /*输出纪录*/
               /*首先定义可滚动光标*/
               set rowcount @m_intRecordNumber
               declare m_curTemp Scroll cursor 
                       for
                          select a.ID ,a.Title , d.UserName , a.FaceID ,
                                'ContentSize' = datalength(a.Content) , 
                                'TotalChilds' = (select sum(TotalChilds) 
                                                        from BBS as b 
                                                        where a.RootID = b.RootID) ,
                                'LastReplyTime' = (select max(PostTime) 
                                                          from BBS as c 
                                                          where a.RootID = c.RootID)
                                from BBS as a 
                                     join BBSUser as d on a.UserID = d.ID 
                                where Layer=1 and ForumID = @a_ForumID 
                                order by RootID desc , Layer , PostTime
               open m_curTemp
               fetch absolute @m_intStartRecord from m_curTemp
               while  @@fetch_status = 0 
                      fetch next from m_curTemp

               set rowcount 0 
               /*清场*/       
               CLOSE m_curTemp
               DEALLOCATE m_curTemp
          end                      
                          
       else                                --如果限定天数          

          begin
                /*求符合条件记录数*/
                select "RecordCount" = count(*)                         
                       from BBS where Layer=1 and ForumID = @a_ForumID 
                                      and dateadd(day , @a_intDays , PostTime) > getdate() 

               /*输出纪录*/
               /*首先定义可滚动光标*/
               set rowcount @m_intRecordNumber
               declare m_curTemp Scroll cursor 
                       for
                          select a.ID ,a.Title , d.UserName , a.FaceID ,
                                'ContentSize' = datalength(a.Content) , 
                                'TotalChilds' = (select sum(TotalChilds) 
                                                        from BBS as b 
                                                        where a.RootID = b.RootID) ,
                                'LastReplyTime' = (select max(PostTime) 
                                                          from BBS as c 
                                                          where a.RootID = c.RootID)
                                from BBS as a 
                                     join BBSUser as d on a.UserID = d.ID 
                                where Layer=1 and ForumID = @a_ForumID 
                                      and dateadd(day , @a_intDays , PostTime) > getdate() 
                                order by RootID desc , Layer , PostTime
               open m_curTemp
               fetch absolute @m_intStartRecord from m_curTemp
               while  @@fetch_status = 0 
                      fetch next from m_curTemp

               set rowcount 0 
               /*清场*/       
               CLOSE m_curTemp
               DEALLOCATE m_curTemp
          end                                                
go


注:若在asp中调用存储过程的command对象为cm,则set rs=cm.execute,然后用set rs=rs.nextrecordset取下一条记录。
三:测试结果。

看到了这么多的分页方法。那么那种最好呢,最好的分页方法是什么呢?
还是做个测试吧。
测试工具:Microsoft Web Application Stress Tool 1.1
测试平台:Win2000 server 中文版 + IIS5.0 + sql server 7.0
数据纪录:8000条  (非相同的股票历史纪录集)
模拟环境:56K model / 2M专线 / 10兆专线 
测试次数:3次


测试结果:服务器游标 >== 存储过程分页 > > Ado分页 
(符号 >== :表示基本上相同,但有时稍大, 符号:> > 远远大于 )
看来,前两者差别不大,而且在多纪录集时,服务器端游标比存储过程稍大一些。但都比Ado游标分页效率要好的多。

那么什么是最好的分页方法呢,我们理想的分页方法是什么呢?
其实就是:客户端传递一个页码过去,然后服务器端直接通过一次查询就生成所需的一页的记录集,并且以一个纪录集的形式返回给客户端。那么这种放法有没有呢?我可以告诉大家,有,而且经过我的测试,确实是效率最好的一种方法。下次我们就谈谈这种理论上最好的分页方法。。。。。。。。。

reply[F0040460]
 



 
 re [1] 最佳的数据库分页方法ASP forum  
- miles03-01-02 22:43  

放到文档中心岂不更好?期待下一期哦!

reply[F0040556]
 



 
 re [2] 最佳的数据库分页方法ASP forum  
- 真的很菜03-01-08 12:07  

老大,我看不懂上面的东东也~~

reply[F0041945]
 



 
 re [3] 最佳的数据库分页方法ASP forum  
- miles03-01-08 13:08  

呵呵,就是把一页的内容做一个临时表,这样就可以不用rs来分页啦。其实没什么啦。

reply[F0041956]
 



 
 re [4] 最佳的数据库分页方法ASP forum  
- 真的很菜03-01-08 14:39  

那我的那个分页是属于哪种的?

reply[F0041986]
 



 
 re [5] 最佳的数据库分页方法ASP forum  
- yiruoyun03-01-08 16:43  

现在的大点应用基本上都会用到类似 内存管理的 快表 思想


reply[F0042020]
 



 
 re [5] 最佳的数据库分页方法ASP forum  
- miles03-01-08 23:00  

一般都是第一种——用ado的recordset提供的方法。

reply[F0042096]
 



 
 re [6] 最佳的数据库分页方法ASP forum  
- 真的很菜03-01-09 10:34  

那不是很笨咯 ???

是不是要改第三种方法?

reply[F0042190]
 



 
 re [7] 最佳的数据库分页方法ASP forum  
- miles03-01-09 10:41  

没必要啊。除非你的程序效率很低。

reply[F0042195]
 



 
 re [8] 最佳的数据库分页方法ASP forum  
- yunfeng04-01-05 10:16  

那呢?
更好的在那呢?

reply[F0101414]
 



 
 re [9] 最佳的数据库分页方法ASP forum  
- miles04-01-05 10:23  

嗯?

reply[F0101417]
 



您的位置
  (c)2000-2022 Yup Studio, all rights reserved.  
205.0781