|
以下代码直接复制即可使用。 ; ^% y4 k. R/ o# p' J" r( l
<%dim newsid newsid=Request("showid") : U! U* e7 v' t' H& j6 F
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 4 q* J1 M' w' u S6 Z& q) q3 [' K
%>
4 p/ W$ q( ]. g+ \% @& i# g
% x) F0 k v& T3 u& g1 m[此贴子已经被作者于2012-8-8 15:23:51编辑过]
! g* B% c4 y) Y' U' s |