以下代码直接复制即可使用。
! s" M% n* P, g. {4 u" i<%dim newsid newsid=Request("showid")
* z; h" ?0 K1 _( F7 e0 P# t8 qsql="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
& C- j, Y, t& V! j0 J: {9 s%>
6 W( i# @6 v( c2 Q' j
1 w! f; m6 h0 B$ x2 d[此贴子已经被作者于2012-8-8 15:23:51编辑过]
/ Y/ @- Z/ Q, q% s( B |