来源：百度知道编辑：UC知道时间：2024/06/17 14:48:44

<%
set rs = server.CreateObject ("adodb.recordset")
rs.open "select top 1 * from info where rootid=1 order by id desc",conn,1,1

INFO=rs("info")
response.write INFO
rs.close
%>
<%

sql="select top 1 title,id from info where id<"&rs("id")&" order by id desc"
set rs=conn.execute(sql)
if rs.eof then
response.write "上一篇文章:没有了"
else
response.write "上一篇文章: <a href=fenye.asp?id="&rs("id")&">"&rs("title")&"</a>"
end if

sql="select top 1 title,id from info where id>"&rs("id")&" order by id"
set rs=conn.execute(sql)
if rs.eof then
response.write "下一篇文章:没有了"
else
response.write "下一篇文章:<a href=fenye.asp?id="&rs(&q

你后面不能再用Rs("id")的，因为你的rs一直改变呢
你应该这样:
dim ID
ID=request.querystring("id")

获取文章文章：
rs.open "select top 1 * from info where rootid=" & ID & " order by id desc",conn,1,1

上一篇：
<%

sql="select top 1 title,id from info where id<"& ID &" order by id desc"

下一篇：

sql="select top 1 title,id from info where id>"& ID &" order by id"

用同一个变量ID 才是当前文章的ID，不然你的下一篇用的rs("ID")不是你当前文章的ID

建议：
你这个程序效率不高，建议这样写
开始时
dim id1,id2,title1,title2
id1=-1
id2=-1
rs.open "select top 3 * from info where rootid>" & ID-1 & " order by id"
然后用循环判断，
do while not rs.eof
if rs("ID")<ID
ID1=rs("ID")
Title1=rs("Title")
else if rs("ID")=ID then
'当前篇
CurrentTitle=rs("T

ASP的上一篇下一篇怎么实现？ ASP实现页面的“上一篇、下一篇”功能 asp文章上一篇下一篇代码 asp新闻系统的上一篇下一篇功能如何实现? 在ASP里的源代码怎样实现上一篇:或下一篇:的? asp论坛显示上一篇下一篇的问题下一篇下一篇问题？ASP asp怎么做.."上一篇：" "下一篇："呀 asp中的“上一篇”“下一篇”是怎样做出来的请教上一篇下一篇的问题

ASP上一篇下一篇实现不了，高手赐教