上下条代码

程序代码 程序代码
<%
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%>



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

评论: 1 | 引用: 0 | 查看次数: 6210
  • 1
www.wangsula.com [2012-06-27 02:14 PM]
非常感谢您的分享
  • 1
发表评论
昵 称:
密 码: 游客发言不需要密码.
验证码:
内 容:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1000 字 | UBB代码 关闭 | [img]标签 关闭