以下代码直接复制即可使用。
2 K0 ^6 X8 A7 D& v# d: s<%dim newsid newsid=Request("showid") " v( W9 K0 w" J: d/ g
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
; m$ c' m, g0 H7 M) r3 k: }" I%>
% g" H' l! ^/ M% v: R& r% r8 F 1 J( i. e# S5 o
[此贴子已经被作者于2012-8-8 15:23:51编辑过]
. N& H* |6 F" s" e) F |