以下代码直接复制即可使用。 6 D0 d+ V5 N \4 y
<%dim newsid newsid=Request("showid")
% G8 n( H v8 e$ A p. w$ qsql="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 7 w* W/ X ^. ?9 Q% q$ a
%> 7 Q9 ^+ I3 ~% p0 E8 T/ E2 B- _$ l1 W
( G( ^$ B8 F# I6 H7 z[此贴子已经被作者于2012-8-8 15:23:51编辑过] ; S; ]0 b+ Q( [ S* f9 m, _& @
|