求asp上篇，下篇的代码

asp中实现上篇与下篇文章
http://zhidao.baidu.com/question/17729590.html?si=2

http://zhidao.baidu.com/question/17729590.html

-------------------------------------------
ASP:文章系统中“上篇、下篇”效果的制作
以前曾经参考过一个网站的源码，是使用ID+1和ID-1的办法来判断上下篇的。在实际使用过程中，发现一个问题：当删除数据库中的一篇文章时，就会造成ID不连续，如果用ID+1和ID-1来判断就会出现找不到记录。所以程序并不是非常的完美。
在我们所介绍的ASP代码中，是通过查询大于当前ID的第一条记录来找出下一篇的ID，查询小于当前ID的第一条记录来找出上一篇的ID，这样就算ID不连续也可以正常显示了。（程序代码也是参阅过经典论坛相关贴子提示所制作的）
简单介绍方法：
数据表articles中有id（文章ID）、title（文章标题）、content（文章内容）、addtime（文章发布时间）等其它各相关字段。
<!--数据库连接文件-->
<!--#include file="conn.asp"-->
<%
`定义一个nextrs函数来找出下一篇的ID
function nextrs
nextrsd=server.CreateObject("adodb.recordset")
sql="select top 1 * from arti