asp中 上一篇 下一篇 实现方法。

happyxp

以下代码直接复制即可使用。

+ I! ]. o" Z6 x L

<%dim newsid
newsid=Request("showid")

' r ?2 C2 x6 F/ [1 ], b: m

sql="select top 1 title,id from cnnew where id<"&newsid&" order by id desc"
set rsnews=conn.execute(sql)
if rsnews.eof then
response.write "上一篇文章: 已经是首篇文章了"
else
response.write "上一篇文章: <a href=news-cn.asp?showid="&rsnews("id")&">"&rsnews("title")&"</a>"
end if
response.Write"<p>"
sql="select top 1 title,id from cnnew where id>"&newsid&" order by id"
set rsnews=conn.execute(sql)
if rsnews.eof then
response.write "下一篇文章: 请等待更新"
else
response.write "下一篇文章: <a href=news-cn.asp?showid="&rsnews("id")&">"&rsnews("title")&"</a>"
end if

6 r. T+ b: q# e \2 j' f$ C

%>

1 x. p: C: G9 _" D- P5 H

 

8 ]$ Z, w% K) [! q( H( Z

[此贴子已经被作者于2012-8-8 15:23:51编辑过]