以下代码直接复制即可使用。
7 V$ { e5 B+ m: J1 q( t<%dim newsid newsid=Request("showid")
# P! Y5 o6 u" G' N: h6 Psql="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 + P4 Q4 f3 `3 \; I/ @
%> / W3 o: A1 j6 Y6 A3 w. ^
& M+ s6 N$ L( q2 J
[此贴子已经被作者于2012-8-8 15:23:51编辑过]
4 k- k5 S$ b- e: j1 e, v2 g. ] |