网页新闻系统分页网页新闻系统分页

以下是我在新闻系统中实现上下篇功能所用的代码：

......

<%
set backrsd=server.CreateObject("Adodb.recordset")
sql="select top 1 * from table_News where Id<"&sId&" order by Id desc"
set backrsd=oConn.execute(sql)
if backrsd.eof then
response.Write "已经是第一篇"
else
id2=backrsd("Id")
NewTitle2=backrsd("NewTitle")
end If
backrsd.close

set nextrsd=server.CreateObject("adodb.recordset")
sql="select top 1 * from table_News where Id>"&sId&" order by Id"
set nextrsd=oConn.execute(sql)
if nextrsd.eof then
response.Write "已经是最后一篇 "
else
id1=nextrsd("Id")
NewTitle1=nextrsd("NewTitle")
end If
nextrsd.close
%>
<br>上一篇：<a href='/view.asp?newsid=<%=id2%>'><%=NewTitle2%></a>
<br>下一篇：<a href='/view.asp?newsid=<%=id1%>'><%=NewTitle1%></a>