以下代码直接复制即可使用。
: L! T' y$ m" L+ v% f# g: R' x<%dim newsid newsid=Request("showid")
, J+ u: x& T1 V9 ?sql="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% G( I5 o1 Y, I1 A%>
) I) ^, v0 L6 _# s, v & P8 C! [4 D% ~; y1 B6 m, w1 a
[此贴子已经被作者于2012-8-8 15:23:51编辑过]
9 L: T" D8 W$ v' k |