一个新闻显示页面,
<%
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
此页面是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
温馨提示：答案为网友推荐，仅供参考
