欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2022-04-02 22:40:29
二、用bookmark(书签)bookmark(书签)对recordset的一条记录做一个记号。使用时先移动到那条资料,然后给予bookmark属性一个名称,即书签记号的名称,当要...
二、用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