上一篇及下一篇的asp实现

在文章系统中，我们在浏览文章的时候总能看到下部一个

上一篇：******

下一篇：******

这样的东西，一直在想怎么实现的，上次也找到了相关代码，一直没有去看，今天一看，那人还真厚道，原版代码给我。汗！最后发现其实就是一句话: sql="select top 1 * from articles where id>"& a1 &" order by id"

其中a1是当前的id，这里的奥妙全在top 1和where id>"& a1 &" 以及order by id了，以前还在考虑删除问题、加减一的手法。埃，思想是多么重要。

下面是两个函数，方便使用，任君选择。哈哈

<%

'定义一个thenext函数来找出下一篇的ID，如果当前记录已经是最前面的一条记录，则输出文字“没有了”
function thenext(a1)
newrs=server.CreateObject("adodb.recordset")
sql="select top 1 * from articles where id>"&a1&" order by id"
set newrs=conn.execute(sql)
if newrs.eof then
response.Write("没有了")
else
a2=newrs("id")
response.Write("<a href='view.asp?id="&a2&"'>下一篇</a>")
end if
end function

'定义一个thehead函数来找出下一篇的ID，如果当前记录已经是最前面的一条记录，则输出文字“没有了”
 
function thehead(a1)
headrs=server.CreateObject("adodb.recordset")
sql="select top 1 * from articles where id<"&a1&" order by id desc"
set headrs=conn.execute(sql)
if headrs.eof then
response.Write("没有了")
else
a0=headrs("id")
response.Write("<a href='view.asp?id="&a0&"'>上一篇</a>")
end if
end function

%>