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

本文专门为网站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

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值