|
以下代码直接复制即可使用。
* n8 N2 o/ P! ~8 G. ^- e4 c+ p<%dim newsid newsid=Request("showid")
' }9 x) {! [- Z0 s; L$ Xsql="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 ! B" E- \9 v( u# x& E+ K
%>
& \- c, {. I) d" I% ~0 C* p 6 j9 Y* ]6 y3 B; P2 f* j
[此贴子已经被作者于2012-8-8 15:23:51编辑过]
$ R# Y0 t3 V0 A |