欢迎光临爱时尚女性网
 

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

2012-7-9 编辑:knwz 来源:爱时尚女性网 阅读次数:769
  导读:二、用Bookmark(书签) Bookmark(书签)对RecordSet的一条记录做一个记号。 使用时先移动到那条资料,然后给予Bookmark属性一个名称,即书签记号的名称,当要回到该条记录时,将Bookmark 属性设为所设定书签记号的名称即可。 Bookmark例子 如何使用Bookmark...
二、用Bookmark(书签)


Bookmark(书签)对RecordSet的一条记录做一个记号。


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


Bookmark例子


如何使用Bookmark(书签)呢?让我们看一个於asp程式码当中使用Bookmark的例子。


譬如ASP程式码rs13.asp如下:


<%


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


%>






































书名 出版 图片 简介
<%= rs2("书名")%> <%= rs2("出版")%> <%= rs2("图片")%> <%= rs2("简介")%>



第一条


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


上一条


<% end if %>


<% if Session("position") < rs2.RecordCount -1 then %>


下一条


<% end if %>


最末条


设定Bookmark


到Bookmark


<% rs2.Close %>


由Session("bk")储存这个使用者RecordSet 的bookmark(书签)位置,当按下 [设定Bookmark] 超级连接时,由设定Bookmark,将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


rs2.Move Session("position")


Session("bk") = rs2.Bookmark


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


rs2.Bookmark = Session("bk")


else


Session("position") = 0


end if


当按下 [到Bookmark] 超级连接时,由到Bookmark,将sel设定为go,并重新执行rs13.asp的asp码。由以上的程式部份,由rs2.Bookmark = Session("bk")回到上次书签记号的位置。

文章出自:爱时尚女性网www.aspjc.com,尊重版权是美德,转载请保留原地址,感谢合作!

 
 
链接交换请联系:QQ:790646582 首页链接要求百度快照在一周以内,不符合以上要求的各站,我们将定期把友情连接转入内页,谢谢合作。
Copyright @ 2012-2015 爱时尚女性网 保留所有权利吉ICP备14005127号-1 服务QQ:175529508 e-mail:zk8312@163.com
本站部分资源来自网友上传,如果无意之中侵犯了您的版权,请联系本站,本站将在3个工作日内删除。