3 对数据库中的记录用上一条下一条显示


3 对数据库中的记录用上一条下一条显示

文章插图
3 对数据库中的记录用上一条下一条显示

文章插图

三、Bookmark/MoveNext/MovePRevious例子
让我们看一个asp程式码当中使用Bookmark/MoveNext/MovePrevious做到上一条下一条功能的例子 。
譬如ASP程式码rs15.asp如下:


书名
出版
图片
简介








上一条

下一条

以上的 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")
【3 对数据库中的记录用上一条下一条显示】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移动到下一条的位置 。
由显示书签的位置,请注意第一条记录的位置并非为0而是1792,因此我们必须取得第一条和第末条的书签位置值,以判断是否要显示 [上一条] [下一条] 超级连接 。
为了判断是否要显示 [上一条] [下一条] 超级连接,由以下的程式部份,我们设定了两个书签,由BkStart = rs2.Bookmark设定第一条的位置,由BkEnd = rs2.Bookmarkrs2.RecordCount - 1设定第末条的位置:
上一条

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



    推荐阅读