对数据库中的记录用上一条下一条显示(二)
程序员文章站
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
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
上一篇: 小米手机外观被吐槽 雷军:2019年一定会有巨大进步
下一篇: 用ASP+XML打造留言本(3)