<tr>
     <td>
<%
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open "select id,title from news where id>"&trim(request("id"))&" order by id desc",conn,1,1
if rs.eof or rs.bof then
response.write ("上一主题为空了!")
else
response.write ("上一主题:<a href='onews.asp?id="&rs("id")&"&type="&rs("id")&"'>"&rs("title")&"</a>")
end if
%></td>
    </tr>
    <tr>
     <td>
     <%
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open "select id,title from news where id<"&trim(request("id"))&" order by id desc",conn,1,1
if rs.eof or rs.bof then
response.write ("下一主题为空了!")
else
response.write ("下一主题:<a href='onews.asp?id="&rs("id")&"&type="&rs("id")&"'>"&rs("title")&"</a>")
end if
%>
     </td>
    </tr>