<%
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open "select top 1 * from 表单 where id>"&request("id")&" order by id",conn,1,1
if rs.eof or rs.bof then
response.write ("<div class=prenext pdbox><strong>没有上一个了</strong></div>")
else
response.write ("<div class=prenext pdbox><strong>上一个:</strong><a href='prodshow.asp?id="&rs("id")&"'>"&rs("title")&"</a></div>")
end if
rs.close
set rs=nothing
%>
<%
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open "select top 1 * from 表单 where id<"&request("id")&" order by id desc",conn,1,1
if rs.eof or rs.bof then
response.write ("<div class=prenext pdbox><strong>没有下一个了!</strong></div>")
else
response.write ("<div class=prenext pdbox><strong>下一个:</strong><a href='prodshow.asp?id="&rs("id")&"'>"&rs("title")&"</a></div>")
end if
rs.close
set rs=nothing
%>