上下条代码

<%
Set rs1=Server.CreateObject("Adodb.RecordSet")
rs1.Open "Select top 1 * from products where ID < "&dbid1;&" order by id desc",conn,1,1
IF not rs1.eof and not rs1.bof Then
response.write"上一条：<a href='display_products_id_.html"&rs1;("id")&"&type;_id="&rs1;("typeid")&"'>"&rs1;("name")&"</a><br>"
else
response.write"没有上一条<br>"
end if
rs.close
set rs1=nothing
Set rs1=Server.CreateObject("Adodb.RecordSet")
rs1.Open "Select top 1 * from products where ID > "&dbid1;&" order by id",conn,1,1
IF not rs1.eof and not rs1.bof Then
response.write"下一条：<a href='display_products_id_.html"&rs1;("id")&"&type;_id="&rs1;("typeid")&"'>"&rs1;("name")&"</a>"
else
response.write" 没有下一条"
end if
rs1.close
set rs1=nothing%>