asp中实现上篇与下篇文章

来源:百度知道 编辑:UC知道 时间:2024/05/22 06:54:47
<%
'上一篇
function backrs(id)
backrsd=server.CreateObject("adodb.recordset")
sql="select top 1 * from article where id>"&id&" order by id DESC"
set backrsd=conn.execute(sql)
if backrsd.eof then
response.Write "[上一篇]:这是本分类下的第一篇文章"
else
a0=backrsd("id")
response.Write "[上一篇]:<a href=show_article.asp?id="& a0 &">"&backrsd("title")&"</a>"
end if
end function
%>

<%
'下一篇
function nextrs(id)
nextrsd=server.CreateObject("adodb.recordset")
sql="select top 1 * from article where id>"&id&" order by id"
set nextrsd=conn.execute(sql)
if nextrsd.eof then
response.Write "[下一篇]:这是本分类下的最后一篇文章"
else
a2=nextrsd("id")
response.Write "[下一篇]:<a href=show_article.asp?id="& a2 &&q

把sql="select top 1 * from article where id>"&id&" order by id DESC"
改成:sql="select top 1 * from article where id<"&id&" order by id DESC"

关于补充:其实可以通过union语句直接返回多个表的记录在一个记录集里的,但是这样做比较麻烦,通常还是建立多个记录集。速度是肯定有影响的,但是影响很小,基本没什么差别。(除非真的建了非常多的RS,但是一般没有需要用这么多RS的情况)