欢迎光临爱时尚女性网
 

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

2012-7-9 编辑:knwz 来源:爱时尚女性网 阅读次数:798
  导读:三、Bookmark/MoveNext/MovePRevious例子 让我们看一个asp程式码当中使用Bookmark/MoveNext/MovePrevious做到上一条下一条功能的例子。 譬如ASP程式码rs15.asp如下: 书名 出版 图片 简介 ...
三、Bookmark/MoveNext/MovePRevious例子


让我们看一个asp程式码当中使用Bookmark/MoveNext/MovePrevious做到上一条下一条功能的例子。


譬如ASP程式码rs15.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


BkStart = rs2.Bookmark


BkEnd = rs2.Bookmark + rs2.RecordCount - 1


rs2.MoveNext


if Request("sel") = "prev" then


rs2.Bookmark = session("Bookmark")


rs2.MovePrevious


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


rs2.Bookmark = Session("Bookmark")


rs2.MoveNext


end if


Session("Bookmark") = rs2.Bookmark


%>






































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



<% = Session("Bookmark") %>


<% if Session("Bookmark") > BkStart then %>


上一条


<% end if %>


<% if Session("Bookmark") < BkEnd then %>


下一条


<% end if %>


<% rs2.Close %>


以上的 ASP程式码rs15.asp,在用户端使用浏览器,浏览执行的结果,显示上一条下一条的功能。


由Session("Bookmark")储存这个使用者RecordSet 的bookmark(书签)位置,当按下 [上一条] 超级连接时,由上一条,将sel设定为prev,并重新执行rs15.asp的asp码。由以下的程式部份,首先将Bookmark 属性设为所设定书签记号的名称Session("Bookmark")回到上次书签的位置,然后使用MovePrevious移动到上一条的位置:


if Request("sel") = "prev" then


rs2.Bookmark = Session("Bookmark")


rs2.MovePrevious


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


rs2.Bookmark = Session("Bookmark")


rs2.MoveNext


end if


Session("Bookmark") = rs2.Bookmark


然后使用Session("Bookmark") = rs2.Bookmark设定书签,Session("Bookmark")储存书签记号的名称。


当按下 [下一条] 超级连接时,由下一条,将sel设定为next,并重新执行rs15.asp的asp码。由以上的程式部份,回到上次书签的位置,然后使用MoveNext移动到下一条的位置。


由<% = Session("Bookmark") %>显示书签的位置,请注意第一条记录的位置并非为0而是1792,因此我们必须取得第一条和第末条的书签位置值,以判断是否要显示 [上一条] [下一条] 超级连接。


为了判断是否要显示 [上一条] [下一条] 超级连接,由以下的程式部份,我们设定了两个书签,由BkStart = rs2.Bookmark设定第一条的位置,由BkEnd = rs2.Bookmark + rs2.RecordCount - 1设定第末条的位置:


<%


SqlStr = "SELECT * From 着作"


rs2.Open SqlStr,conn1,1,1


BkStart = rs2.Bookmark


BkEnd = rs2.Bookmark + rs2.RecordCount - 1


if Session("Bookmark") > BkStart then %>


上一条


<% end if %>


<% if Session("Bookmark") < BkEnd then %>


下一条


<% end if %>


就可以使用if Session("Bookmark") > BkStart、if Session("Bookmark") < BkEnd,比较当前的位置Session("Bookmark")和第一条BkStart、第末条BkEnd的位置,来判断是否要显示 [上一条] [下一条] 的超连结。

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

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