ASP实现上一篇，下一篇

Tags:网络编程  

上一篇 下一篇功能整理出来与大家分享
比较简单，但是经常需要使用，希望能给你带来帮助

'数据库链接
set rs2=server.CreateObject("adodb.recordset")
'此SQL查出来的记录为当前记录的上一条记录,rs("id")为当前记录的id
 sql2="select id,name from photo where id<"&rs("id")&" order by id desc"
 rs2.Open sql2,conn,1,1
 if not rs2.eof then
 pageupid=rs2("id")
 pageuptitle=rs2("name")
 pageupstr="上一篇：<a href='"&pageupid&".html'>"&pageuptitle&"</a>"
 else
 pageupstr="上一篇：无"
 end if
 response.write pageupstr
 rs2.close
 set rs2=nothing
 
 '----------下一篇标签----------
'数据库链接
 set rs2=server.CreateObject("adodb.recordset")
'此SQL查出来的记录为当前记录的下一条记录,rs("id")为当前记录的id
 sql2="select top 1 id,name from photo where id>"&rs("id")&" "
 rs2.Open sql2,conn,1,1
 if not rs2.eof then
 pagedownid=rs2("id")
 pagedowntitle=rs2("name")
 pagedownstr="下一篇：<a href='"&pagedownid&".html'>"&pagedowntitle&"</a>"
 else
 pagedownstr="下一篇：无"
 end if
response.write pagedownstr
 rs2.close
 set rs2=nothing

最新评论及回复

最近发表

最新评论及回复