通过 ASP 记录进行分页

转载 2004年08月20日 16:05:00
J.D. Meier

目录


1、简介
2、问题
3、解决方案
4、示例代码
5、分析
6、结论

简介

在 Active Server Pages (ASP) 应用程序中显示大型记录集,很可能是您熟悉的一个问题。本文对此问题及其解决方案和示例代码进行了深入探讨,这个示例代码经过简单修改,就可以应用于您的具体情况。该示例代码被设计成服务器端的解决方案,它与浏览器无关。另外,我会指出您在设计自己的解决方案时需要考虑的问题。

问题

您的查询返回了一个大型记录集。需要提供一个简便方法来浏览这些结果,即在每页上只显示结果的子集。要有效的完成此项工作,需要对 ActiveX(R) 数据对象 (ADO) 和数据库如何协同工作有深入的了解。

解决方案

如何将您的记录集分成“页”,而不用大型的结果?所谓页,基本上就是您指定应当显示在一起的许多记录。例如,如果您的记录集中有 100 条记录,可能每页显示 10 条记录。

ADO 提供了两种方法,PageSizeAbsolutePage。这些方法使您能够指定每页要显示的记录数,以及将游标定位于一页的开始。

打开记录集之后,基本步骤就是:

  1. 为该记录集指定 PageSize。它表示每页要显示的记录数。
  2. 指定该记录集的 AbsolutePage。这将记录指针移到页的序列中,给定页的开始处。
  3. 显示记录页。要完成这一步,您要用设置的 PageSize 次数循环整个记录集,或者直到到达文件的末尾。

示例代码

下列示例代码说明了页面建立过程。借助它,您可以建立自己的解决方案的原型。在您自己的代码中,确保要完成下列步骤:

  • 添加错误处理。
  • 添加对查询返回的记录数的限制。
  • 用条件过滤记录。(如,建立 WHERE 子句)。
  • 使用存储过程或视图。

一定要通过更改连接字符串和 SQL 语句来修改我的示例代码,以指向您的数据库。由于代码使用 ADO 常数,如 adUserServer,一定要在您的 Global.asa 文件中引用 ADO TypeLibrary,或在 ASP 页中包括 ADOVBS.INC 文件。请注意,在将项目引用设置为 Microsoft ADO 时,Visual InterDev(R) 会为您自动生成 TypeLibrary 引用。

注意该示例有两种方法可以提供导航栏:

  • ShowNavBar。 它为用户提供了带着记录计数一起跳到指定页的方法(见图 1)。为实现这一步,它使用了 RecordCountPageCount 属性。
  • ShowNavBarFast。 该方法不提供跳转到指定页的能力,也不提供记录计数,但可以通过 CacheSize 属性控制取回的记录数(见图 2)。

PageThroughRs.Asp

<%@ Language=VBScript %>
<% Option Explicit %>
<SCRIPT LANGUAGE=VBScript RUNAT=SERVER>
  '确保引用 ADO Typelib 或使用 ADOVBS.Inc
  Dim iPageNum, iRowsPerPage

  Main
    Sub Main()
   Dim rst
   Dim sSQL, sConnString

   If Request.QueryString("iPageNum") = "" Then
     iPageNum = 1
   Else
     iPageNum = Request.QueryString("iPageNum")
     iPageNum = CInt(iPageNum)
   End If

   iRowsPerPage = 10


   sConnString = "Provider=SQLOLEDB.1;password=Xyz123;user id=WebUser;" & _ 
         "Initial Catalog=NorthWind;Data Source=MySQLServer;" & _ 
         "network=dbmssocn;" 

   '下列 SQL 从 SQL 视图中检索所有列。
   '要优化性能:
   '- 使用存储过程、视图或在 SELECT 中指定列
   '- 使用限制返回的记录的条件(例如,WHERE 子句)
   sSQL = "SELECT CategoryName, ProductName, QuantityPerUnit,"
   sSQL = sSQL & "UnitsInStock, Discontinued"
      sSQL = sSQL & " FROM [Products By Category]"

   Set rst = GetRecords(sConnString, sSQL)

   WriteTableHeader rst
   WriteTableBody rst, iRowsPerPage, iPageNum
   ShowNavBar rst

   'ShowFastNavBar 方法不使用 RecordCount
   '或 PageCount,所以它重试的记录数仅等于
   '记录集的 CacheSize 指定的数量。

   'ShowFastNavBar rst

   CleanUp rst
  End Sub

  Function GetRecords(sConnString, sSQL)
  Dim cnn
  Dim rst

    set cnn = Server.CreateObject("ADODB.CONNECTION")
    cnn.ConnectionString = sConnString
    nn.Open

    Set rst = Server.CreateObject("ADODB.RECORDSET")

    Set rst.ActiveConnection = cnn

     '当记录集打开时,adUseClient 的 CursorLocation
     ' 将检索所有的记录。
     'adUseServer 允许沿用 CacheSize
     rst.CursorLocation = adUseServer

     '在使用服务器端游标时,CacheSize  
     '限制了取回的行数。我们将只抓取正在显示的
     '的记录的数目 - iRowsPerPage
     rst.CacheSize = iRowsPerPage

     rst.Open sSQL,,adOpenStatic, adLockReadOnly牋?
     Set GetRecords = rst
    end Function

    Sub WriteTableHeader(rst)
    Dim fld

     Response.Write "<TABLE WIDTH=80% BORDER=1>"
     Response.Write "<TR>"

     '建立表的列标题
      For Each fld in rst.Fields
       Response.Write "<TD><B>" & fld.Name & "</B></TD>"
    Next
    Response.Write "</TR>"
   End Sub

   Sub WriteTableBody(rst, iRowsPerPage, iPageNum)
   Dim iLoop
   Dim fld

   iLoop = 1

   rst.PageSize = iRowsPerPage
   rst.AbsolutePage = iPageNum

   '写出记录的当前页
   Do While (Not rst.EOF) and (iLoop <= iRowsPerPage)
     Response.Write "<TR>"
      For Each fld in rst.Fields
       Response.Write "<TD>" & fld.value & "</TD>"
        Next
         iLoop = iLoop + 1
         rst.MoveNext
         Response.Write "</TR>"
     Loop
     Response.Write "</TABLE>"
   End Sub

   Sub ShowNavBar(rst)
   Dim iPageCount
   Dim iLoop
   Dim sScriptName

    '本版本提供了更丰富的用户导航,但是
    '依赖于 RecordCount 和 PageCount,
    '它抵消了为服务器端游标
    '指定 CacheSize 的好处。

    Response.Write "<BR><BR>"
    sScriptName = Request.ServerVariables("SCRIPT_NAME")

    If iPageNum > 1 Then
      Response.Write " <a href=" & sScriptName & "?iPageNum="
      Response.Write (iPageNum -1) & "><< Previous</a>"
    End If

    iPageCount = rst.PageCount
    Do Until iLoop > iPageCount
    f iLoop = iPageNum Then
       Response.Write " <B>" & CStr(iLoop) & "</B>"
      Else
       Response.Write " <a href=" & sScriptName & "?iPageNum=" & _
       Cstr(iLoop) & ">" & iLoop & "</a>"
       End If
       iLoop = iLoop + 1
    Loop

    If Not rst.EOF Then
     Response.Write " <a href=" & sScriptName & "?iPageNum="
     Response.Write (iPageNum +1) & "> Next >></a><BR>"
    Else
       Response.Write "<BR>"
    End If

    Response.Write "Page " & iPageNum & " of " & iPageCount & "<BR>"
    Response.Write rst.RecordCount & " Records" 牋?
   End Sub

   Sub ShowFastNavBar(rst)
   Dim iPageCount
   Dim iLoop
   Dim sScriptName

     '在指定 CacheSize 和使用服务器端游标时,
     '该方法特别有效,因为它不使用 RecordCount 
     '和 PageCount。需要用户具有经验。

     Response.Write "<BR><BR>"
     sScriptName = Request.ServerVariables("SCRIPT_NAME")

     If iPageNum > 1 Then
      Response.Write " <a href=" & sScriptName & "?iPageNum="
      Response.Write (iPageNum -1) & "><< Previous</a>"
    End If

    If Not rst.EOF Then
      Response.Write " <a href=" & sScriptName & "?iPageNum="
      Response.Write (iPageNum +1) & "> Next >></a><BR>"
    Else
      Response.Write "<BR>"
    End If

    Response.Write "Page " & iPageNum

   End Sub

   Sub CleanUp(rst)
     If Not rst Is Nothing then
       If rst.state = adStateOpen then rst.close
       set rst = nothing
     End If
   End Sub

</SCRIPT>

分析

设计分页解决方案时,需注意的几个问题:

  • 游标定位问题。如果使用客户端游标,每次打开记录集时,将读取所有的记录。因此,由于读取了所有的记录,以后访问 RecordCountPageCount 属性时将很快。如果您使用服务器端游标,将只检索需要的记录。您可以通过 CacheSize 属性指定一次要读取的记录数来提高性能。然而,如果您使用服务器端游标,和 RecordCountPageCount 属性,则将读取所有的记录,性能得不到提高。必须在具有更多信息和更丰富导航的用户界面,与检索所有记录的性能影响之间折衷。
  • 使用服务器端游标时,CursorType 属性必须是 adOpenStaticadOpenKeyset,才能使用分页。
  • 分页并非总是最好的用户页面。它可能仅适用于用户正从搜索引擎扫描结果或浏览产品目录的情况。
  • 试将记录分类,以使更相关的记录出现在前几页中(例如,使用 SQL 的 ORDER BY 子句)。用户所能做的就这么多。
  • 只检索需要显示的列(即,避免 SELECT *)。
  • 只检索需要显示的记录。确保过滤的条件(即,使用 WHERE 子句)。

以下是需要牢记的几点提示:

  • 将您的逻辑封装在方法中。使用方法可将表示逻辑和数据访问逻辑分离,这就简化了将代码装入 Windows 脚本组件、Visual Basic 脚本编辑 (VBScript) 类或组件的工作。改变功能更容易了,代码维护也得以改进。测试和调试也因可以注释和取消注释方法调用而得到改进。
  • 与包括 ADOVBS.INC 相比,引用 ADO 的 TypeLibrary 是更好的解决方案。这是因为 ASP 在处理包含文件时,是将整个文件读入内存,而不是只读入它需要的部分。

结论

分页是一项通用技术,许多 Web 应用程序用它来提供浏览大量记录的好方法。在设计分页解决方案时,需要考虑一些问题,如,如何检索记录,需要提供什么类型的用户导航。尽管最好的解决方案取决于您的具体的应用程序,使用本文中的技术将帮助您作出更好的设计决策。

 

【ASP】数据库查询的内容分页显示

对于大数据的查询,你不可以一次性地把所有数据中显示出来, 比如一张学生表上面有一百多号人, 那么在页面中就应该一次显示10人左右, 提供翻页功能给用户进行翻阅,不要一次性显示100多号人。 翻页系统是...
  • yongh701
  • yongh701
  • 2014年11月12日 10:23
  • 3928

asp.net使用DataSet数据集插入记录

http://blog.csdn.net/beyondqd/article/details/6724778 http://blog.163.com/da7_1@126/blog/static/104...
  • QZC295919009
  • QZC295919009
  • 2015年01月21日 11:22
  • 1604

Oracle查询前10条记录及分页查询(第5条到第10记录)

如果你想了解Oracle查询前10条记录的相关实际应用方案的话,你就可以点击以下的文章对其在实际相关操作中的正确用法,有一个更加完善的认识,希望你在浏览完以下的文章会以下就是正文的详细内容的介绍。 ...
  • xiaole0313
  • xiaole0313
  • 2015年07月22日 14:09
  • 2774

ASP类+存储过程进行高效数据分页

  • 2007年10月25日 16:29
  • 562KB
  • 下载

asp.net用datalist进行分页

前台代码: 这个是前台代码:必须要先设计号界面 ...
  • lakemen08
  • lakemen08
  • 2012年03月27日 20:31
  • 121

asp如何对access数据库的数据进行分页

  • liushaochan123
  • liushaochan123
  • 2013年04月12日 15:17
  • 353

asp.net 结合mysql存储过程进行分页代码

终于,算是搞出来了,效率可能不是很好,但是我也觉得不错了。贴代码吧直接:也算是对自己学习mysql的一个记录。 复制代码 代码如下: CREATE PROCEDURE p_pageList ...
  • tt2153
  • tt2153
  • 2016年03月21日 14:44
  • 160

asp.net 站内搜索功能的实现及利用datatable绑定数据并进行分页

最近在做公司网站的时候,用到了站内搜索,之前没做过,经过几天的研究和百度,GOOGLE,基本实现了我想达到的效果,在这里记录一下,写的比较乱,有时间再整理一下 首先先看图, 要实现上图的搜索功能,...
  • zx_001
  • zx_001
  • 2015年09月16日 11:21
  • 1090

asp.net中对DataTable数据进行排序、检索、合并、分页、统计

一、排序 1 获取DataTable的默认视图 2 对视图设置排序表达式 3 用排序后的视图导出的新DataTable替换就DataTable (Asc升序可省略,多列排序用","隔开) ...
  • Bychentufeiyang
  • Bychentufeiyang
  • 2012年02月08日 08:59
  • 1666

Asp.net MVC使用MvcPager进行分页

一、数据库表CREATE TABLE [dbo].[T_Class]( [ID] [int] NOT NULL, [Name] [nvarchar](max) COLLATE Chinese_...
  • ruby_matlab
  • ruby_matlab
  • 2011年02月27日 19:31
  • 11777
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:通过 ASP 记录进行分页
举报原因:
原因补充:

(最多只允许输入30个字)