|
|
|
7i24.Com不停为您服务
动态网站设计十八般武艺——ASP篇(十六)
作者:天骄创作室：书生
《动态网站设计十八般武艺--ASP篇》一文从第一期至今已和朋友们一起度过了大半个年头，相信通过在这一段时间中的学习、实践到再学习、再实践，大家已经能够熟练运用ASP的内建对象、ActiveX组件去编写一些基本的ASP应用程序。从我收到的朋友们的来信中可以明显的感觉到，大家的ASP功力正不断地提升。最近很多朋友来信希望我写一些ASP在现实运用中的实例。因此，从本期开始我决定将《动态网站设计十八般武艺--ASP篇》的定位从介绍和学习ASP基础知识转向到ASP实际运行的探讨和深化。应朋友们的要求，在本期中我将给大家着重谈一谈“ADO存取数据库时如何分页显示”的问题。
什么是ADO存取数据库时的分页显示？如果你使用过目前众多网站上的电子公告板程序的话，那你应该会知道电子公告板程序为了提高页面的读取速度，一般不会将所有的帖子全部在一页中罗列出来，而是将其分成多页显示，每页显示一定数目的帖子数，譬如20条。这就是数据库查询的分页显示，如果你还不明白，去看看yahoo等搜索引擎的查询结果就会明白了。
那么究竟如何才能做到将数据库的查询结果分页显示呢？其实方法有很多，但主要有两种：
一、将数据库中所有符合查询条件的记录一次性的都读入recordset中，存放在内存中，然后通过ADORecordset对象所提供的几个专门支持分页处理的属性：PageSize(页大小)、PageCount(页数目)以及AbsolutePage(绝对页)来管理分页处理。
二、根据客户的指示，每次分别从符合查询条件的记录中将规定数目的记录数读取出来并显示。
两者的主要差别在于前者是一次性将所有记录都读入内存然后再根据指示来依次做判断分析从而达到分页显示的效果，而后者是先根据指示做出判断并将规定数目的符合查询条件的记录读入内存，从而直接达到分页显示的功能。
我们可以很明显的感觉到，当数据库中的记录数达到上万或更多时，第一种方法的执行效率将明显低于第二种方法，因为当每一个客户查询页面时都要将所有符合条件的记录存放在服务器内存中，然后在进行分页等处理，如果同时有超过100个的客户在线查询，那么ASP应用程序的执行效率将大受影响。但是，当服务器上数据库的记录数以及同时在线的人数并不是很多时，两者在执行效率上是相差无几的，此时一般就采用第一种方法，因为第一种方法的ASP程序编写相对第二种方法要简单明了得多。
在这里作者就以我们常见的ASPBBS程序为例，来给大家分析一下如何在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属性
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属性
这也是一个非常常用和重要的属性，我们常用RecordCount属性来找出一个Recordset对象包括多少条记录。如：<%totle=RS.RecordCount%>
在了解了Recordset对象的以上属性和方法后，我们来考虑一下，如何运用它们来达到我们分页显示的目的。首先，我们可以为PageSize属性设置一个值，从而指定从记录组中取出的构成一个页的行数；然后通过RecordCount属性来确定记录的总数；再用记录总数除以PageSize就可得到所显示的页面总数；最后通过AbsolutePage属性就能完成对指定页的访问。好象很并不复杂呀，下面让我们来看看程序该如何实现呢？
我们建立这样一个简单的BBS应用程序，它的数据库中分别有以下五个字段：“ID”，每个帖子的自动编号；“subject”，每个帖子的主题；“name”，加帖用户的姓名；“email”，用户的电子邮件地址；“postdate”，加帖的时间。数据库的DSN为“bbs”。我们将显示帖子分页的所有步骤放在一个名为“ShowList()”的过程中，方便调用。程序如下：
'----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><fontcolor='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"<TRBGCOLOR=#FFFFFF>"
ELSE
Response.Write"<TRBGCOLOR=#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=SUBMI TNAME='ScrollAction' VALUE='下一页'>"
end if
response.write"</FORM>"
End if
%>
<%End Sub%>
相信大家都应该能完全读懂上面的程序，因此作者就不在此详细解释了。值得注意的是在这段程序中运用了一个小技巧<INPUT TYPE="HIDDEN" NAME="pageno" VALUE="<%=PageNo%>">，这是用来在每次调用该ASP文件时传递数据的“暗道”，由于我们需要在每次调用程序时传递代表当前页码的参数，可能大家会想到使用session，但是从节省系统资源和通用性来讲，用这样一个隐藏的form来传递数据将会达到更好的效果。
好了，又到了说再见的时候了，如果你没完全看懂本篇中所列的程序，那你必须加把油，看一看VbScript的语法；如果你还有某些疑问，可以“妹儿”我，我将尽力解答；如果你有什么更好的建议也千万要来信告诉我哦:)
|
|
|
