asp如何实现文章的上下篇功能?

来源：百度知道 编辑：UC知道 时间：2024/06/16 00:21:37
我看很多站最后都有上一篇下一篇文章的连接
请问是怎么实现的呢?
+i-i要是文章被删除了就断掉了...还有什么其他实现方法呢?

newrs=server.CreateObject("adodb.recordset")
newrssql="select top 1 * from wen where id>"&id&" and type1="&type1&" and type2="&type2&" order by id asc"
set newrs=conn.execute(newrssql)
if newrs.eof then
response.Write("这是本栏目第一篇文章！")
else
if len(newrs("title"))>15 then
response.Write("<a href='detail.asp?type1="&type1&"&type2="&type2&"&id="&newrs("id")&"' pop='"&newrs("title")&"'>"&left(newrs("title"),15)&"..</a>")
else
response.Write("<a href='detail.asp?type1="&type1&"&type2="&type2&"&id="&newrs("id")&"'>"&newrs("title")&"</a>")
end if
end if

newrs=server.CreateObject("adodb.recordset")
newrssql="select top 1 * from we