
程序代码
<%
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.asp?id="&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.asp?id="&rs1("id")&"&type_id="&rs1("typeid")&"'>"&rs1("name")&"</a>"
else
response.write" 没有下一条"
end if
rs1.close
set rs1=nothing%>
]>