实现上一篇下一篇文章的方法

本文专门为网站http://www.3net.com/BLOG博客所写：

 

 

'获取当前记录id89,url89和idt是常量字段，为了防止语法报错而准备的。
id89=trim(request.querystring("id"))
url89=trim("showartic")
idt=trim("id")

'获取上一条记录id sql88="select top 1 * from TTTT where id<"&id&" order by id desc"
'获取下一条记录id sql99="select top 1 * from TTTT where id>"&id&" order by id"
'记得要判断sql88和SQL99是否为空，并记得释放此两个记录集

Set Rs88 = Server.CreateObject("ADODB.Recordset")
Rs88.Open "Select top 1 * From [news] where id < "&id89&" order by id desc",Conn,1,3
If rs88.eof or rs88.bof Then
pre88 = "没有了"
Else
pre88 = "<a href="&url89&".asp?"&idt&"="&rs88(0)&">"&rs88(1)&"</a>"
End If

 

淘宝网精品女装:http://www.3netgo.com

原创博客：http://www.3netgo.com/blog

Set Rs99 = Server.CreateObject("ADODB.Recordset")
Rs99.Open "select top 1 * from [news] where id > "&id89&" order by id",Conn,1,3
If rs99.eof or rs99.bof Then
pre99 = "没有了"
Else
pre99 = "<a href="&url89&".asp?"&idt&"="&rs99(0)&">"&rs99(1)&"</a>"
End If

 

页面中的具体引用方法：

 

较新一篇文章：<%=pre99%>
较早一篇文章：<%=pre88%>

 

记得关闭两个记录集，养成好习惯：

          rs88.close
          set rs88=nothing
          rs99.close
          set rs99=nothing