<tr> <% 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> 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 %> |
上一篇
暂无评论
发表评论