ASP基础精品教程:ADO存取数据库时如何分页显示

    作者:课课家更新于: 2015-11-09 09:18:43

    大神带你学编程,欢迎选课
    获得知识的途径有很多,现在由小编为大家讲解有关语言编程的文章希望对大家有所帮助

    c语言编程入门什么是 ADO 存取时的分页显示?如果你使用过目前众多网站上的电子公告板程序的话,那你应该会知道电子公告板程序为了提高页面的读取速度,一般不会将所有的帖子全部在一页中罗列出来,而是将其分成多页显示,每页显示一定数目的帖子数,譬如 20 条。这就是数据库查询的分页显示,如果你还不明白,去看看 yahoo 等搜索引擎的查询结果就会明白了。
    那么究竟如何才能做到将数据库的查询结果分页显示呢?其实方法有很多,但主要有两种:
    一、将数据库中所有符合查询条件的记录一次性的都读入 recordset 中,存放在内存中,然后通过 ADO Recordset 对象所提供的几个专门支持分页处理的属性: PageSize( 页大小 )、 PageCount( 页数目 ) 以及 AbsolutePage( 绝对页 ) 来管理分页处理。
    二、根据客户的指示,每次分别从符合查询条件的记录中将规定数目的记录数读取出来并显示。
    两者的主要差别在于前者是一次性将所有记录都读入内存然后再根据指示来依次做判断分析从而达到分页显示的效果,而后者是先根据指示做出判断并将规定数目的符合查询条件的记录读入内存,从而直接达到分页显示的功能。
    我们可以很明显的感觉到,当数据库中的记录数达到上万或更多时,第一种方法的执行效率将明显低于第二种方法,因为当每一个客户查询页面时都要将所有符合条件的记录存放在服务器内存中,然后在进行分页等处理,如果同时有超过 100 个的客户在线查询,那么  应用程序的执行效率将大受影响。但是,当服务器上数据库的记录数以及同时在线的人数并不是很多时,两者在执行效率上是相差无几的,此时一般就采用第一种方法,因为第一种方法的 ASP 程序编写相对第二种方法要简单明了得多。
    在这里作者就以我们常见的 ASP BBS 程序为例,来给大家分析一下如何在 BBS 程序里实现分页显示功能,由于我们一般使用的 BBS 程序的数据库记录数和同时访问的人数都不会太多,所以以下程序实例是使用的先前所介绍的第一种分页显示方法。
    进行 ADO 存取数据库时的分页显示,其实就是对 Recordset 的记录进行操作。所以我们首先必须了解 Reordset 对象的属性和方法:
    BOF 属性:目前指标指到 RecordSet 的第一笔。
    EOF 属性:目前指标指到 RecordSet 的最后一笔。
    Move 方法:移动指标到 RecordSet 中的某一条记录。
    AbsolutePage 属性:设定当前记录的位置是位于哪一页 AbsolutePosition 属性:目前指标在 RecordSet 中的位置。
    PageCount 属性:显示 Recordset 对象包括多少“页”的数据。
    PageSize 属性:显示 Recordset 对象每一页显示的记录数。
    RecordCount 属性:显示 Recordset 对象记录的总数。
    下面让我们来详细认识一下这些重要的属性和方法。
    一、 BOF 与 EOF 属性
    通常我们在 ASP 程序中编写代码来检验 BOF 与 EOF 属性,从而得知目前指标所指向的 RecordSet 的位置,使用 BOF 与 EOF 属性,可以得知一个 Recordset 对象是否包含有记录或者得知移动记录行是否已经超出该 Recordset 对象的范围。
    如:
    < % if not rs.eof then ... %>
    < % if not (rs.bof and rs.eof) %>
    若当前记录的位置是在一个 Recordset 对象第一行记录之前时, BOF 属性返回 true,反之则返回 false。
    若当前记录的位置是在一个 Recordset 对象最后一行记录之后时, EOF 属性返回 true,反之则返回 false。
    BOF 与 EOF 都为 False:表示指标位于 RecordSet 的当中。
    BOF 为 True:目前指标指到 RecordSet 的第一笔记录。 EOF 为 True:目前指标指到 RecordSet 的最后一笔记录。
    BOF 与 EOF 都为 True:在 RecordSet 里没有任何记录。
    二、Move 方法
    您可以用 Move 方法移动指标到 RecordSet 中的某一笔记录,语法如下:
    rs.Move NumRecords,Start
    这里的“rs”为一个对象变量,表示一个想要移动当当前记录位置的 Recordset 对象;“NumRecords”是一个正负数运算式,设定当前记录位置的移动数目;“start”是一个可选的项目,用来指定记录起始的标签。
    所有的 Recordset 对象都支持 Move 方法,如果 NumRecords 参数大于零,当前记录位置向末尾的方向移动;如果其小于零,则当前记录位置向开头的方向移动;如果一个空的 Recordset 对象调用 Move 方法,将会产生一个错误。
    MoveFirst 方法:将当前记录位置移至第一笔记录。
    MoveLast 方法:将当前记录位置移至最后一笔记录。
    MoveNext 方法:将当前记录位置移至下一笔记录。 MovePrevious 方法:将当前记录位置移至上一笔记录。
    Move [n] 方法:移动指标到第 n 笔记录, n 由 0 算起。
    三、AbsolutePage 属性
    C语言教程AbsolutePage 属性设定当前记录的位置是位于哪一页的页数编号;使用 PageSize 属性将 Recordset 对象分割为逻辑上的页数,每一页的记录数为 PageSize( 除了最后一页可能会有少于 PageSize 的记录数 )。这里必须注意并不是所有的数据提供者都支持此项属性,因此使用时要小心。
    与 AbsolutePosition 属性相同, AbsolutePage 属性是以 1 为起始的,若当前记录为 Recordset 的第一行记录, AbsolutePage 为 1。可以设定 AbsolutePage 属性,以移动到一个指定页的第一行记录位置。


    四、AbsolutePosition 属性
    若您需要确定目前指标在 RecordSet 中的位置,您可以用 AbsolutePosition 属性。
    AbsolutePosition 属性的数值为目前指标相对於第一笔的位置,由 1 算起,即第一笔的 AbsolutePosition 为 1。
    注意,在存取 RecordSet 时,无法保证 RecordSet 每次都以同样的顺序出现。
    若要启用 AbsolutePosition,必须先设定为使用用户端 cursor( 指针 ), asp 码如下:
    rs2.CursorLocation = 3
    五、PageCount 属性
    使用 PageCount 属性,决定 Recordset 对象包括多少“页”的数据。这里的“页”是数据记录的集合,大小等于 PageSize 属性的设定,即使最后一页的记录数比 PageSize 的值少,最后一页也算是 PageCount 的一页。必须注意也并不是所有的数据提供者都支持此项属性。
    六、PageSize 属性
    PageSize 属性是决定 ADO 存取数据库时如何分页显示的关键,使用它就可以决定多少记录组成一个逻辑上的“一页”。设定并建立一个页的大小,从而允许使用 AbsolutePage 属性移到其它逻辑页的第一条记录。 PageSize 属性能随时被设定。
    七、RecordCount 属性
    c语言程序设计这也是一个非常常用和重要的属性,我们常用 RecordCount 属性来找出一个 Recordset 对象包括多少条记录。如: <%totle=RS.RecordCount %>在了解了 Recordset 对象的以上属性和方法后,我们来考虑一下,如何运用它们来达到我们分页显示的目的。首先,我们可以为 PageSize 属性设置一个值,从而指定从记录组中取出的构成一个页的行数;然后通过 RecordCount 属性来确定记录的总数;再用记录总数除以 PageSize 就可得到所显示的页面总数;最后通过 AbsolutePage 属性就能完成对指定页的访问。好象很并不复杂呀,下面让我们来看看程序该如何实现呢?
    我们建立这样一个简单的 BBS 应用程序,它的数据库中分别有以下五个字段:“ID”,每个帖子的自动编号;“subject”,每个帖子的主题;“name”,加帖用户的姓名; “email”,用户的电子邮件地址;“postdate”,加帖的时间。数据库的 DSN 为“bbs”。我们将显示帖子分页的所有步骤放在一个名为“ShowList()”的过程中,方便调用。程序如下:

    首先将需要备份的网站文件前的复选框选中,然后点击“添加到压缩文件”超连接,接着在弹出的对话框中输入文件名称,注意一定要输入以zip为后缀的压缩文件格式。确定后稍等片刻,一个文件压缩包就制作完成了。只需要将其下载,放置在安全的地方保存就可以了。
    在管理器主页面的功能菜单中选择“上传文件”按钮,将在网页最下方打开文件上传模块(如图2),点击“浏览”按钮选择本地文件,然后再点击上传即可。程序中的文件容量栏目会自动显示该文件占用网站空间的大小,文件大小会以KB或Byte两种单位显示。我们可以根据此功能方便的对网站文件进行整理归类操作;点击下载超连接可以将网站文件下载到本地硬盘,操作方式与普通下载方式无异,还可以使用迅雷等下载工具进行文件的高速下载;软件还提供了功能强大的编辑器(如图3),点击编辑连接后会显示文件的源代码,它还提供了本地预览与在线预览的功能,使网站文件的调试工作变得非常简单高效;

    文件管理器程序可以进行几乎所有的文件管理操作。它不仅具备一般的上传、下载、新建、重命名文件等功能,还提供了诸多实用的其它功能,根据这些实用功能,我们可以完成对网站的管理维护等相关操作。

    以下为引用的内容:
    \\\\'----BBS 显示帖子分页----
    < % Sub ShowList() %>
    < %
    PgSz=20 \\\\'设定开关,指定每一页所显示的帖子数目,默认为20帖一页
    Set Conn = Server.CreateObject("ADODB.Connection")
    Set RS = Server.CreateObject("ADODB.RecordSet")
    sql = "SELECT * FROM message order by ID DESC"
    \\\\'查询所有帖子,并按帖子的ID倒序排列
    Conn.Open "bbs"
    RS.open sql,Conn,1,1
    If RS.RecordCount=0 then
    response.write "< P>< center>对不起,数据库中没有相关信息!< /center>< /P>"
    else
    RS.PageSize = Cint(PgSz) \\\\'设定PageSize属性的值
    Total=INT(RS.recordcount / PgSz * -1)*-1 \\\\'计算可显示页面的总数
    PageNo=Request("pageno")
    if PageNo="" Then
    PageNo = 1
    else
    PageNo=PageNo+1
    PageNo=PageNo-1
    end if
    ScrollAction = Request("ScrollAction")
    if ScrollAction = " 上一页 " Then
    PageNo=PageNo-1
    end if
    if ScrollAction = " 下一页 " Then
    PageNo=PageNo+1
    end if
    if PageNo < 1 Then
    PageNo = 1
    end if
    n=1
    RS.AbsolutePage = PageNo
    Response.Write "< CENTER>"
    position=RS.PageSize*PageNo
    pagebegin=position-RS.PageSize+1
    if position < RS.RecordCount then
    pagend=position
    else
    pagend= RS.RecordCount
    end if
    Response.Write "< P>< font color=\\\\'Navy\\\\'>< B>数据库查询结果:< /B>"
    Response.Write "(共有"&RS.RecordCount &"条符合条件的信息,显示"&pagebegin&"-"&pagend&")< /font>< /p>"
    Response.Write "< TABLE WIDTH=600 BORDER=1 CELLPADDING=4 CELLSPACING=0 BGCOLOR=#FFFFFF>"
    Response.Write "< TR BGCOLOR=#5FB5E2>< FONT SIZE=2>< TD>< B>主题< /B>< /TD>< TD>< B>用户< /B>< /TD>< TD>< B>Email< /B>< /TD>< TD>< B>发布日期< /B>< /TD>< /FONT>< TR BGCOLOR=#FFFFFF>"
    Do while not (RS is nothing)
    RowCount = RS.PageSize
    Do While Not RS.EOF and rowcount >0
    If n=1 then
    Response.Write "< TR BGCOLOR=#FFFFFF>"
    ELSE
    Response.Write "< TR BGCOLOR=#EEEEEE>"
    End If
    n=1-n %>
    < TD>< span style="font-size:9pt">< A href=\\\\'view.asp?key=< % =RS("ID")%>\\\\'>< % =RS("subject")%>< /A>< /span>< /td>
    < TD>< span style="font-size:9pt">< % =RS("name")%>< /A>< /span>< /td>
    < TD>< span style="font-size:9pt">< a href="mailto:< % =RS("email")%>">< % =RS("email")%>< /a>< /span>< /TD>
    < TD>< span style="font-size:9pt">< % =RS("postdate")%>< /span>< /td>
    < /TR>
    < %
    RowCount = RowCount - 1
    RS.MoveNext
    Loop
    set RS = RS.NextRecordSet
    Loop
    Conn.Close
    set rs = nothing
    set Conn = nothing
    %>
    < /TABLE>
    < FORM METHOD=GET ACTION="list.asp">
    < INPUT TYPE="HIDDEN" NAME="pageno" VALUE="< % =PageNo %>">
    < %
    if PageNo >1 Then
    response.write "< INPUT TYPE=SUBMIT NAME=\\\\'ScrollAction\\\\' VALUE=\\\\' 上一页 \\\\'>"
    end if
    if RowCount = 0 and PageNo < >Total then
    response.write "< INPUT TYPE=SUBMIT NAME=\\\\'ScrollAction\\\\' VALUE=\\\\' 下一页 \\\\'>"
    end if
    response.write "< /FORM>"
    End if
    %>
    < % End Sub %>


    相信大家都应该能完全读懂上面的程序,因此作者就不在此详细解释了。值得注意的是在这段程序中运用了一个小技巧,< INPUT TYPE="HIDDEN" NAME="pageno" VALUE="< % =PageNo %>">,这是用来在每次调用该 ASP 文件时传递数据的“暗道”,由于我们需要在每次调用程序时传递代表当前页码的参数,可能大家会想到使用 session,但是从节省系统资源和通用性来讲,用这样一个隐藏的 form 来传递数据将会达到更好的效果。
    好了,又到了说再见的时候了,如果你没完全看懂本篇中所列的程序,那你必须加把油,看一看 Script 的语法;如果你还有某些疑问,可以“妹儿”我,我将尽力解答;如果你有什么更好的建议也千万要来信告诉我哦。

    看完小编的文章是不是很精彩,更多关于在线教育的文章尽在课课家,希望你们多多关注。

课课家教育

未登录