以下代码直接复制即可使用。
' @2 r3 }7 _1 O7 n$ F<%dim newsid newsid=Request("showid")
+ J5 o H/ L& I. N* j6 ssql="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 5 O( H" i7 k* m
%> 8 w- X' i: ^$ e8 \# f7 s
3 B8 P9 j l0 [2 S) C/ N[此贴子已经被作者于2012-8-8 15:23:51编辑过]
+ s6 Z5 y0 ]' c$ ?" J |