神马品牌网陀螺仪平衡原理:asp移动到指定记录
来源：百度文库 编辑：神马品牌网 时间：2024/04/28 03:23:14
文章管理系统中，我选择了一个记录集，包含未知条记录，但知道其中一条的记录的id（类型：自动编号）是220，我如何移动到该记录呢？~~``
我的目的是输出上一篇和下一篇文章~~`但id号都是不连续的~~大家帮忙，谢谢~！
我的目的是输出上一篇和下一篇文章~~`但id号都是不连续的~~大家帮忙，谢谢~！
<%
id=Cint(request.QueryString("id"))
set rs1=server.createobject("adodb.recordset")
sqltext="select * from table where id="&id&" order by idate desc"
rs1.open sqltext,conn,1,1
a1=rs1("id")
%>
<%
'后一条记录
newrs=server.CreateObject("adodb.recordset")
sql="select top 1 id from table where id>"&a1&" order by id"
set newrs=conn.execute(sql)
%>
<%
'前一条记录
headrs=server.CreateObject("adodb.recordset")
sql="select top 1 id from table where id<"&a1&" order by id desc"
set headrs=conn.execute(sql)
%>
调用时，先判断前一条或后一条是否为空，不为空则后一条的ID：headrs(0)
前一条ID为：newrs(0)
先移动到这条记录
set rs=server.createobject("adodb.recordset")
sql="select * from table where id=220"
rs.open sql,conn,1,1
rs.movenext '移动到下一条
rs.moveprevious '上移