對數(shù)據(jù)庫中的記錄用上一條下一條顯示（二）

1、    二、用Bookmark（書簽）Bookmark（書簽）對RecordSet的一條記錄做一個記號。使用時(shí)先移動到那條資料，然后給予Bookmark屬性一個名稱，即書簽記號的名稱，當(dāng)要回到該條記錄時(shí)，將Bookmark 屬性設(shè)為所設(shè)定書簽記號的名稱即可。Bookmark例子如何使用Bookmark（書簽）呢？讓我們看一個於ASP程式碼當(dāng)中使用Bookmark的例子。譬如ASP程式碼rs13.asp如下：<% Set conn1 = Server.CreateObject("ADODB.Connection") conn1.O

2、pen "DBQ="& Server.MapPath("ntopsamp.mdb") &"Driver=Microsoft Access Driver (*.mdb);DriverId=25;FIL=MS Access;" Set rs2 = Server.CreateObject("ADODB.Recordset")SqlStr = "SELECT * From 著作"rs2.Open SqlStr,conn1,1,1rs2.MoveNextif Request("s

3、el") = "last" then rs2.MoveLastelseif Request("sel") = "first" then rs2.MoveFirstelseif Request("sel") = "prev" thenSession("position") = Session("position") - 1rs2.Move Session("position")elseif Request("sel&q

4、uot;) = "next" thenSession("position") = Session("position") + 1rs2.Move Session("position")elseif Request("sel") = "set" then rs2.Move Session("position")Session("bk") = rs2.Bookmark elseif Request("sel") = &q

5、uot;go" then rs2.Bookmark = Session("bk")elseSession("position") = 0end if%><TABLE COLSPAN=8 CELLPADDING=5 BORDER=0><TR><TD ALIGN=CENTER BGCOLOR="#008080"><FONT COLOR="#FFFFFF">書名</FONT></TD><TD ALIGN=CENTER BGCOL

6、OR="#008080"><FONT COLOR="#FFFFFF">出版</FONT></TD><TD ALIGN=CENTER BGCOLOR="#008080"><FONT COLOR="#FFFFFF">圖片</FONT></TD><TD ALIGN=CENTER BGCOLOR="#008080"><FONT COLOR="#FFFFFF">簡介<

7、/FONT></TD><TR><TD BGCOLOR="f7efde" ALIGN=CENTER><%= rs2("書名")%></TD><TD BGCOLOR="f7efde" ALIGN=CENTER><%= rs2("出版")%></TD><TD BGCOLOR="f7efde" ALIGN=CENTER><%= rs2("圖片")%></

8、TD><TD BGCOLOR="f7efde" ALIGN=CENTER><%= rs2("簡介")%></TD></TR> </TABLE><A href=rs13.asp?sel=first>第一條</A><% if Session("position") > 0 then %><A href=rs13.asp?sel=prev>上一條</A><% end if %><% if Se

9、ssion("position") < rs2.RecordCount -1 then %><A href=rs13.asp?sel=next>下一條</A><% end if %><A href=rs13.asp?sel=last>最末條</A><A href=rs13.asp?sel=set>設(shè)定Bookmark</A><A href=rs13.asp?sel=go>到Bookmark</A><% rs2.Close %>由Session(

10、"bk")儲存這個使用者RecordSet 的bookmark（書簽）位置，當(dāng)按下 設(shè)定Bookmark 超級連接時(shí)，由<A href=rs13.asp?sel=set>設(shè)定Bookmark</A>，將sel設(shè)定為set，并重新執(zhí)行rs13.asp的asp碼。由以下的程式部份，首先rs2.Move Session("position")回到上次的位置，然后使用Session("bk") = rs2.Bookmark設(shè)定書簽，Session("Bookmark")儲存書簽記號的名稱：if Re

11、quest("sel") = "last" then rs2.MoveLastelseif Request("sel") = "first" then rs2.MoveFirstelseif Request("sel") = "prev" thenSession("position") = Session("position") - 1rs2.Move Session("position")elseif Reques

12、t("sel") = "next" thenSession("position") = Session("position") + 1rs2.Move Session("position")elseif Request("sel") = "set" then rs2.Move Session("position")Session("bk") = rs2.Bookmark elseif Request("sel") = "go" then rs2.Bookmark = Session("bk")elseSession("pos