新版狄仁杰电视剧:ASP+SQL中,如何移动到下一条纪录

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/30 13:01:00
一个新闻显示页面,
<%
dim strSql,rs,id
id=request("id")

strSql="select * from [news] where id="&id&" "
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open strSql,conn,3,3

<tr>
<td height="36"> <div align="center"><strong><font size="3"><%=title%></font></strong></div></td>

<tr>
<td valign="top"><%=rs("content")%></td>
</tr>
上一条 下一条
<%rs.close
set rs=nothing%>
想在"上一条"和" 下一条"的文字加加入链接,链接地址分别为数据库中的上一条纪录和下一条纪录.怎么实现呢?
如果数据库里面的纪录并不完整,比如中间有的纪录被删除了,ID不连续,那用I+1的方法就不到真正的下一条纪录了,而且会出错.那该怎么办呢?

在此页定义一个变量,指定当前是第几条记录。假设为i,值为10;
此页面是ts.asp
<a href="ts.asp?count=<%=i+1%>">下一页</a>
<a href="ts.asp?count=<%=i-1%>">上一页</a>
在此页的上方写:
<%dim i
i=1
i=request("count")
if i<=0 or i>=rs.recordcount then
response.write("最后一条记录")
response.end()
end if
rs.absoluteposition=i'将记录移到第i条
%>

All rights reserved