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

您现在的位置： ASP技术网 >> ASP学习 >> 数据库 >> 文章正文

没有公告

热门文章

	在ASP中使用SQL 任何熟悉SQL和关系数据库的人都遇见过大量的连接类型。最简……
	十天学会ASP之第学习目的：掌握ACCESS数据库的连接和读取记录……
	十天学会ASP之第学习目的：学会ACCEES数据库的使用，并建立一……
	十天学会ASP之第学习目的：学会用表单元素向服务器传送变量，然后显……

专题栏目

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

作者：本网收集文章来源：本站原创点击数：更新时间：2004-9-17

三、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

%>

<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>

<% = Session("Bookmark") %>

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

<A href=rs15.asp?sel=prev>上一条</A>

<% end if %>

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

<A href=rs15.asp?sel=next>下一条</A>

<% end if %>

<% rs2.Close %>

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

由Session("Bookmark")储存这个使用者RecordSet 的bookmark（书签）位置，当按下 [上一条] 超级连接时，由<A href=rs15.asp?sel=prev>上一条</A>，将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")储存书签记号的名称。

当按下 [下一条] 超级连接时，由<A href=rs15.asp?sel=next>下一条</A>，将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 %>

<A href=rs15.asp?sel=prev>上一条</A>

<% end if %>

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

<A href=rs15.asp?sel=next>下一条</A>

<% end if %>

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

中国论坛网说明：
本站所有文章均来源于网络，因各种原因，原作者未知，如果您认为该文章侵犯了您的版权，请来信给我们，我们会在第一时间内删除。mail: webmaster@luntan.com.cn

【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

文章录入：admin 责任编辑：admin

上一篇文章：对数据库中的记录用上一条下一条显示（二）

下一篇文章：数据库查询中的特殊字符的问题

>>>关键词列表
域名注册申请	.cn域名注册	.com域名注册	虚拟主机	asp空间	域名空间代理	深圳虚拟主机	深圳网站建设
英文域名申请注册	中文域名申请	[域名主机]申请	[ASP空间]申请	HTML虚拟主机申请	ASP.Net虚拟主机申请	学生虚拟主机[ASP空间]申请	FTP空间申请
MS SQL数据库空间申请	个人主页空间申请	网站建设	网站推广	3721网络实名	虚拟主机管理系统	域名空间代理	域名空间

网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

去论坛聊聊

站内文章搜索