二、用Bookmark（书签）
Bookmark（书签）对RecordSet的一条记录做一个记号。
使用时先移动到那条资料，然后给予Bookmark属性一个名称，即书签记号的名称，当要回到该条记录时，将Bookmark 属性设为所设定书签记号的名称即可。
Bookmark例子
如何使用Bookmark（书签）呢？让我们看一个於A 程式码当中使用Bookmark的例子。
譬如A 程式码rs13.a 如下：
<%
Set co 1 = Server.CreateObject("ADODB.Co ectio quot;)
co 1.Open "DBQ=" am Server.Ma ath(" to amp.md quot;) &am quot Driver={Microsoft Acce Driver (*.mdb)};DriverId=25;FIL=MS Acce quot;
Set rs2 = Server.CreateObject("ADODB.Recordset")
SqlStr = " ELECT * From 着作"
rs2.Open SqlStr,co 1,1,1
rs2.MoveNext
if Request(" el") = "last" then
rs2.MoveLast
elseif Request(" el") = "first" then
rs2.MoveFirst
elseif Request(" el") = " rev" then
Se ion(" ositio quot;) = Se ion(" ositio quot;) - 1
rs2.Move Se ion(" ositio quot;)
elseif Request(" el") = " ext" then
Se ion(" ositio quot;) = Se ion(" ositio quot;) + 1
rs2.Move Se ion(" ositio quot;)
elseif Request(" el") = " et" then
rs2.Move Se ion(" ositio quot;)
Se ion(" k") = rs2.Bookmark
elseif Request(" el") = "go" then
rs2.Bookmark = Se ion(" k")
else
Se ion(" ositio quot;) = 0
end if
%>
<TABLE COL AN=8 CELLPADDING=5 BORDER=0>
<TR>
<TD ALIGN=CENTER BGCOLOR="#008080" gt lt;FONT COLOR="#FFFFFF" gt;书名</FONT> lt;/TD>
<TD ALIGN=CENTER BGCOLOR="#008080" gt lt;FONT COLOR="#FFFFFF" gt;出版</FONT> lt;/TD>
<TD ALIGN=CENTER BGCOLOR="#008080" gt lt;FONT COLOR="#FFFFFF" gt;图片</FONT> lt;/TD>
<TD ALIGN=CENTER BGCOLOR="#008080" gt lt;FONT COLOR="#FFFFFF" gt;简介</FONT> lt;/TD>
<TR>
<TD BGCOLOR="f7efde" ALIGN=CENTER> lt;%= rs2("书名")%> lt;/TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER> lt;%= rs2("出版")%> lt;/TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER> lt;%= rs2("图片")%> lt;/TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER> lt;%= rs2("简介")%> lt;/TD>
</TR>
</TABLE>
<A href=rs13.a ?sel=first>第一条</A>
<% if Se ion(" ositio quot;) > 0 then %>
<A href=rs13.a ?sel=prev>上一条</A>
<% end if %>
<% if Se ion(" ositio quot;) < rs2.RecordCount -1 then %>
<A href=rs13.a ?sel=next>下一条</A>
<% end if %>
<A href=rs13.a ?sel=last>最末条</A>
<A href=rs13.a ?sel=set>设定Bookmark</A>
<A href=rs13.a ?sel=go>到Bookmark</A>
<% rs2.Close %>
由Se ion(" k")储存这个使用者RecordSet 的bookmark（书签）位置，当按下 [设定Bookmark] 超级连接时，由<A href=http://www.knowsky.com/rs13.a ?sel=set>设定Bookmark</A>，将sel设定为set，并重新执行rs13.a 的a 码。由以下的程式部份，首先rs2.Move Se ion(" ositio quot;)回到上次的位置，然后使用Se ion(" k") = rs2.Bookmark设定书签，Se ion(" ookmark")储存书签记号的名称：
if Request(" el") = "last" then
rs2.MoveLast
elseif Request(" el") = "first" then
rs2.MoveFirst
elseif Request(" el") = " rev" then
Se ion(" ositio quot;) = Se ion(" ositio quot;) - 1
rs2.Move Se ion(" ositio quot;)
elseif Request(" el") = " ext" then
Se ion(" ositio quot;) = Se ion(" ositio quot;) + 1
rs2.Move Se ion(" ositio quot;)
elseif Request(" el") = " et" then
rs2.Move Se ion(" ositio quot;)
Se ion(" k") = rs2.Bookmark
elseif Request(" el") = "go" then
rs2.Bookmark = Se ion(" k")
else
Se ion(" ositio quot;) = 0
end if
当按下 [到Bookmark] 超级连接时，由<A href=http://www.knowsky.com/rs13.a ?sel=go>到Bookmark</A>，将sel设定为go，并重新执行rs13.a 的a 码。由以上的程式部份，由rs2.Bookmark = Se ion(" k")回到上次书签记号的位置。
