對數據庫中的記錄用上一條下一條顯示（一）

2019-11-18 22:34:14

字體：大中小

來源：轉載

供稿：網友

若要讓RecordSet移動到上一條下一條的位置，讓我們先學會以下RecordSet對象的屬性和方法：

BOF屬性：當前游標指到RecordSet的第一條記錄。
EOF屬性：當前游標指到RecordSet的最后一條記錄。
Move方法：移動游標到RecordSet中的某一個記錄。
AbsolutePosition屬性：當前游標在RecordSet中的位置。
bookmark（書簽）屬性：對RecordSet的一條記錄做一個記號。

詳細介紹如下：

BOF與EOF屬性

可以編寫程式碼來檢查BOF與EOF屬性，來得知當前游標RecordSet的位置：

BOF與EOF都為False：表示游標位于RecordSet當中。
BOF為True：當前游標指到RecordSet的第一條記錄。
EOF為True：當前游標指到RecordSet的最后一條記錄。
BOF與EOF都為True：在RecordSet里沒有任何的資料記錄。
Move方法

您可以用Move方法移動游標到RecordSet中的某一條記錄：

MoveFirst方法：移至第一條記錄。
MoveLast方法：移至最后一條記錄。
MoveNext方法：移至下一條記錄。
MovePRevious方法：移至上一條記錄。
Move [n]方法：移動游標到第n條記錄，n由0算起。
AbsolutePosition屬性

若您需要確定當前游標在RecordSet中的位置，您可以用AbsolutePosition屬性。

AbsolutePosition屬性的數值為當前游標相對于第一條的位置，由1算起，即第一條的AbsolutePosition為1。

然而，不要誤以為AbsolutePosition是資料記錄的編號，如果當前RecordSet處于未定的狀態，則

AsolutePosition的數值為1。

另外，在存取RecordSet時，無法保證RecordSet每次都以同樣的順序出現。

若要啟用AbsolutePosition，必須先設定為使用用戶端cursor，asp碼如下：

rs2.CursorLocation = 3

一、Move/AbsolutePosition的例子

讓我們看一個於ASP程式碼當中使用Move/AbsolutePosition做到上一條下一條記錄功能的例子。

譬如ASP程式碼rs14.asp如下：

<%

Set conn1 = Server.CreateObject("ADODB.Connection")

conn1.Open "DBQ="& Server.MapPath("ntopsamp.mdb") &";Driver={Microsoft access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

Set rs2 = Server.CreateObject("ADODB.Recordset")

SqlStr = "SELECT * From 著作"

'Enable AbsolutePosition

rs2.CursorLocation = 3 'adUseClient

rs2.Open SqlStr,conn1,1,1

if Request("sel") = "prev" then

session("position") = Session("position") - 1

rs2.Move Session("position")

elseif Request("sel") = "next" then

Session("position") = Session("position") + 1

rs2.Move Session("position")

else

Session("position") = 0

end if

%>

<% = Session("position") %>

<TABLE COLSPAN=8 CELLPADDING=5 BORDER=0>

<TR>

<TD ALIGN=CENTER BGCOLOR="#008080">書名</TD>

<TD ALIGN=CENTER BGCOLOR="#008080">出版</TD>

<TD ALIGN=CENTER BGCOLOR="#008080">圖片</TD>

<TD ALIGN=CENTER BGCOLOR="#008080">簡介</TD>

<TD ALIGN=CENTER BGCOLOR="#008080">AbsolutePosition</TD>

<TR>

<TD BGCOLOR="f7efde" ALIGN=CENTER><%= rs2("書名") %></TD>

<TD BGCOLOR="f7efde" ALIGN=CENTER><%= rs2("出版") %></TD>

<TD BGCOLOR="f7efde" ALIGN=CENTER><%= rs2("圖片") %></TD>

<TD BGCOLOR="f7efde" ALIGN=CENTER><%= rs2("簡介") %></TD>

<TD BGCOLOR="f7efde" ALIGN=CENTER><%= rs2.AbsolutePosition %></TD>

</TR>

</TABLE>

<% if Session("position") > 0 then %>

<A href=rs14.asp?sel=prev>上一條</A>

<% end if %>

<% if Session("position") < rs2.RecordCount -1 then %>

<A href=rs14.asp?sel=next>下一條</A>

<% end if %>

<% rs2.Close %>

 以上的 ASP程式碼rs14.asp，在用戶端使用瀏覽器，瀏覽執行的結果，顯示上一條下一條的功能。

 由Session("position")儲存這個使用者的RecordSet游標位置，當按下 [上一條] 超級連接時，由<A href=rs14.asp?sel=prev>上一條</A>，將sel設定為prev，并重新執行rs14.asp的asp碼。由以下的程式部份，

將Session("position")減一：

if Request("sel") = "prev" then

Session("position") = Session("position") - 1

rs2.Move Session("position")

elseif Request("sel") = "next" then

Session("position") = Session("position") + 1

rs2.Move Session("position")

else

Session("position") = 0

end if

然后使用Move Session("position")方法，將移動游標到第Session("position")個記錄，第一條記錄的Session("position")值為0。

當按下 [下一條] 超級連接時，由<A href=rs14.asp?sel=next>下一條</A>，將sel設定為next，并重新執行rs14.asp的asp碼。由以上的程式部份，將Session("position")加一，然后使用Move Session("position")方法，將移動指標到第Session("position")個記錄。

AbsolutePosition部份，首先由rs2.CursorLocation = 3設定為使用用戶端cursor，以啟用AbsolutePosition，即可由<%= rs2.AbsolutePosition %>顯示AbsolutePosition的值。

為了判斷是否要顯示 [上一條] [下一條] 超級連接，由以下的程式部份：

<% if Session("position") > 0 then %>

<A href=rs14.asp?sel=prev>上一條</A>

<% end if %>

<% if Session("position") < rs2.RecordCount -1 then %>

<A href=rs14.asp?sel=next>下一條</A>

<% end if %>

就可以使用if Session("position") > 0、if Session("position") < rs2.RecordCount -1，比較當前的位置Session("position")和第一條0、第末條RecordCount -1的位置，來判斷是否要顯示 [上一條] [下一條] 的超級連接。

上一篇：對數據庫中的記錄用上一條下一條顯示（二）

下一篇：聊天室建設詳解五