 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
三、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的位置，来判定是否要显示 [上一条] [下一条] 的超连结。 返回类别: 教程 上一教程: 在网页中实现OICQ里的头像选择的下拉框 下一教程: 为ASP开发者介绍ColdFusion 您可以阅读与"对数据库中的记录用上一条下一条显示（三）"相关的教程: · 对数据库中的记录用上一条下一条显示(一) · 对数据库中的记录用上一条下一条显示（二） · 对数据库中的记录用上一条下一条显示(三) · 对数据库中的记录用上一条下一条显示(二) · 让数据库中的记录用上一条下一条显示 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
