以下代码直接复制即可使用。
0 w3 B; T" }2 q4 [% Y<%dim newsid newsid=Request("showid")
; d4 @" \' W+ G; F* {( F: Msql="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 % A# L5 H/ D: S4 a, H
%>
4 H% w- G5 A Y+ _) h8 o( L
+ K8 O$ ]; g& s. [[此贴子已经被作者于2012-8-8 15:23:51编辑过] d9 E3 `2 e# J3 `6 c8 N
|