对数据库中的记录用上一条下一条显示（二）

二、用bookmark（书签）

bookmark（书签）对recordset的一条记录做一个记号。

使用时先移动到那条资料，然后给予bookmark属性一个名称，即书签记号的名称，当要回到该条记录时，将bookmark 属性设为所设定书签记号的名称即可。

bookmark例子

如何使用bookmark（书签）呢？让我们看一个於asp程式码当中使用bookmark的例子。

譬如asp程式码rs13.如下：

<%

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 着作"

rs2.open sqlstr,conn1,1,1

rs2.movenext

if request("sel") = "last" then

rs2.movelast

elseif request("sel") = "first" then

rs2.movefirst

elseif 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")

elseif request("sel") = "set" then

rs2.move session("position")

session("bk") = rs2.bookmark

elseif request("sel") = "go" then

rs2.bookmark = session("bk")

else

session("position") = 0

end if

%>

<table colspan=8 cellpadding=5 border=0>

<tr>

<td align=center bgcolor="#008080"><font color="#ffffff">书名</font></td>

<td align=center bgcolor="#008080"><font color="#ffffff">出版</font></td>

<td align=center bgcolor="#008080"><font color="#ffffff">图片</font></td>

<td align=center bgcolor="#008080"><font color="#ffffff">简介</font></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>

</tr>

</table>

<a href=rs13.asp?sel=first>第一条</a>

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

<a href=rs13.asp?sel=prev>上一条</a>

<% end if %>

<% if session("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>设定bookmark</a>

<a href=rs13.asp?sel=go>到bookmark</a>

<% rs2.close %>

由session("bk")储存这个使用者recordset 的bookmark（书签）位置，当按下 [设定bookmark] 超级连接时，由<a href=rs13.asp?sel=set>设定bookmark</a>，将sel设定为set，并重新执行rs13.asp的asp码。由以下的程式部份，首先rs2.move session("position")回到上次的位置，然后使用session("bk") = rs2.bookmark设定书签，session("bookmark")储存书签记号的名称：

if request("sel") = "last" then

rs2.movelast

elseif request("sel") = "first" then

rs2.movefirst

elseif 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")

elseif request("sel") = "set" then