ADO存取數(shù)據(jù)庫(kù)時(shí)實(shí)現(xiàn)分頁(yè)顯示的分析說(shuō)明

    若當(dāng)前記錄的位置是在一個(gè) Recordset 對(duì)象第一行記錄之前時(shí)， BOF 屬性返回 true，反之則返回 false。

    若當(dāng)前記錄的位置是在一個(gè) Recordset 對(duì)象最后一行記錄之后時(shí)， EOF 屬性返回 true，反之則返回 false。

    BOF 與 EOF 都為 False：表示指標(biāo)位于 RecordSet 的當(dāng)中。

     BOF 為 True：目前指標(biāo)指到 RecordSet 的第一筆記錄。 EOF 為 True：目前指標(biāo)指到 RecordSet 的最后一筆記錄。

     BOF 與 EOF 都為 True：在 RecordSet 里沒(méi)有任何記錄。

     二、 Move 方法

您可以用 Move 方法移動(dòng)指標(biāo)到 RecordSet 中的某一筆記錄，語(yǔ)法如下：

　　  rs.Move NumRecords,Start

     這里的“rs”為一個(gè)對(duì)象變量，表示一個(gè)想要移動(dòng)當(dāng)當(dāng)前記錄位置的 Recordset 對(duì)象；“NumRecords”是一個(gè)正負(fù)數(shù)運(yùn)算式，設(shè)定當(dāng)前記錄位置的移動(dòng)數(shù)目；“start”是一個(gè)可選的項(xiàng)目，用來(lái)指定記錄起始的標(biāo)簽。

      所有的 Recordset 對(duì)象都支持 Move 方法，如果 NumRecords 參數(shù)大于零，當(dāng)前記錄位置向末尾的方向移動(dòng)；如果其小于零，則當(dāng)前記錄位置向開(kāi)頭的方向移動(dòng)；如果一個(gè)空的 Recordset 對(duì)象調(diào)用 Move 方法，將會(huì)產(chǎn)生一個(gè)錯(cuò)誤。

MoveFirst 方法：將當(dāng)前記錄位置移至第一筆記錄。

MoveLast 方法：將當(dāng)前記錄位置移至最后一筆記錄。

MoveNext 方法：將當(dāng)前記錄位置移至下一筆記錄。 MovePrevious 方法：將當(dāng)前記錄位置移至上一筆記錄。

Move [n] 方法：移動(dòng)指標(biāo)到第 n 筆記錄， n 由 0 算起。

       三、 AbsolutePage 屬性

       AbsolutePage 屬性設(shè)定當(dāng)前記錄的位置是位于哪一頁(yè)的頁(yè)數(shù)編號(hào)；使用 PageSize 屬性將 Recordset 對(duì)象分割為邏輯上的頁(yè)數(shù)，每一頁(yè)的記錄數(shù)為 PageSize( 除了最后一頁(yè)可能會(huì)有少于 PageSize 的記錄數(shù) )。這里必須注意并不是所有的數(shù)據(jù)提供者都支持此項(xiàng)屬性，因此使用時(shí)要小心。

       與 AbsolutePosition 屬性相同， AbsolutePage 屬性是以 1 為起始的，若當(dāng)前記錄為 Recordset 的第一行記錄， AbsolutePage 為 1�？梢栽O(shè)定 AbsolutePage 屬性，以移動(dòng)到一個(gè)指定頁(yè)的第一行記錄位置。

      四、 AbsolutePosition 屬性

      若您需要確定目前指標(biāo)在 RecordSet 中的位置，您可以用 AbsolutePosition 屬性。

AbsolutePosition 屬性的數(shù)值為目前指標(biāo)相對(duì)於第一筆的位置，由 1 算起，即第一筆的 AbsolutePosition 為 1。

注意 , 在存取 RecordSet 時(shí)，無(wú)法保證 RecordSet 每次都以同樣的順序出現(xiàn)。

若要啟用 AbsolutePosition，必須先設(shè)定為使用用戶端 cursor( 指針 )， asp 碼如下：

rs2.CursorLocation = 3

       五、 PageCount 屬性

       使用 PageCount 屬性，決定 Recordset 對(duì)象包括多少“頁(yè)”的數(shù)據(jù)。這里的“頁(yè)”是數(shù)據(jù)記錄的集合，大小等于 PageSize 屬性的設(shè)定，即使最后一頁(yè)的記錄數(shù)比 PageSize 的值少，最后一頁(yè)也算是 PageCount 的一頁(yè)。必須注意也并不是所有的數(shù)據(jù)提供者都支持此項(xiàng)屬性。

      六、 PageSize 屬性
      PageSize 屬性是決定 ADO 存取數(shù)據(jù)庫(kù)時(shí)如何分頁(yè)顯示的關(guān)鍵，使用它就可以決定多少記錄組成一個(gè)邏輯上的“一頁(yè)”。設(shè)定并建立一個(gè)頁(yè)的大小，從而允許使用 AbsolutePage 屬性移到其它邏輯頁(yè)的第一條記錄。 PageSize 屬性能隨時(shí)被設(shè)定。

      七、 RecordCount 屬性

      這也是一個(gè)非常常用和重要的屬性，我們常用 RecordCount 屬性來(lái)找出一個(gè) Recordset 對(duì)象包括多少條記錄。如： < % totle=RS.RecordCount %>
在了解了 Recordset 對(duì)象的以上屬性和方法后，我們來(lái)考慮一下，如何運(yùn)用它們來(lái)達(dá)到我們分頁(yè)顯示的目的。首先，我們可以為 PageSize 屬性設(shè)置一個(gè)值，從而指定從記錄組中取出的構(gòu)成一個(gè)頁(yè)的行數(shù)；然后通過(guò) RecordCount 屬性來(lái)確定記錄的總數(shù)；再用記錄總數(shù)除以 PageSize 就可得到所顯示的頁(yè)面總數(shù)；最后通過(guò) AbsolutePage 屬性就能完成對(duì)指定頁(yè)的訪問(wèn)。好象很并不復(fù)雜呀，下面讓我們來(lái)看看程序該如何實(shí)現(xiàn)呢？

      我們建立這樣一個(gè)簡(jiǎn)單的 BBS 應(yīng)用程序，它的數(shù)據(jù)庫(kù)中分別有以下五個(gè)字段：“ID”，每個(gè)帖子的自動(dòng)編號(hào)；“subject”，每個(gè)帖子的主題；“name”，加帖用戶的姓名； “email”，用戶的電子郵件地址；“postdate”，加帖的時(shí)間。數(shù)據(jù)庫(kù)的 DSN 為“bbs”。我們將顯示帖子分頁(yè)的所有步驟放在一個(gè)名為“ShowList()”的過(guò)程中，方便調(diào)用。程序如下：

\'----BBS 顯示帖子分頁(yè)----
< % Sub ShowList() %>
< %
PgSz=20 \'設(shè)定開(kāi)關(guān)，指定每一頁(yè)所顯示的帖子數(shù)目，默認(rèn)為20帖一頁(yè)
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>對(duì)不起，數(shù)據(jù)庫(kù)中沒(méi)有相關(guān)信息！< /center>< /P>"
else
RS.PageSize = Cint(PgSz) \'設(shè)定PageSize屬性的值
Total=INT(RS.recordcount / PgSz * -1)*-1 \'計(jì)算可顯示頁(yè)面的總數(shù)
PageNo=Request("pageno")
if PageNo="" Then
PageNo = 1
else
PageNo=PageNo+1
PageNo=PageNo-1
end if
ScrollAction = Request("ScrollAction")
if ScrollAction = " 上一頁(yè) " Then
PageNo=PageNo-1
end if
if ScrollAction = " 下一頁(yè) " 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>數(shù)據(jù)庫(kù)查詢結(jié)果:< /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>發(fā)布日期< /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=\' 上一頁(yè) \'>"
end if
if RowCount = 0 and PageNo < >Total then
response.write "< INPUT TYPE=SUBMIT NAME=\'ScrollAction\' VALUE=\' 下一頁(yè) \'>"
end if
response.write "< /FORM>"
End if
%>
< % End Sub %>