以下代码直接复制即可使用。 @. W$ y# B" a3 H% @
<%dim newsid newsid=Request("showid")
, D9 Y$ O$ k& D5 Z) Q& N3 Wsql="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 . C, {0 j; _: U6 H, L
%> 3 T% z- j; ?- q5 o6 v8 c3 g5 t( Y
% Z, R: W% S0 n# R6 l
[此贴子已经被作者于2012-8-8 15:23:51编辑过]
7 o5 @0 L7 r1 h( t |