上下条代码
作者:lyjier 日期:2012-05-23

<%
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%>
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%>
[本日志由 lyjier 于 2012-05-23 06:48 PM 编辑]
文章来自: 本站原创
引用通告地址: http://www.cxblog.net/trackback.asp?tbID=365
Tags:
相关日志:




评论: 1 | 引用: 0 | 查看次数: 1732
- 1

非常感谢您的分享
- 1
发表评论