请教MoveNext用法

5icool 2004-08-01 12:14:03
set rs=server.createobject("adodb.recordset")
sql="select id,title from joke where id="&id&""
rs.open sql,conn,1,1
rs.MoveNext
nextid=rs("id")
if nextid="" then
%>
<li>上篇：<font color="#FF0000">已经没有了</font>
<%else%>
<li>上篇：<a href="go.asp?id=<%=nextid%>"><font color="#FF0000"><%=rs("title")%></font></a>
<%
end if
rs.close
set rs=nothing
%>

不成功，请教正确用法
...全文
406 17 点赞 打赏 收藏 举报
写回复
17 条回复
切换为时间正序
当前发帖距今超过3年，不再开放新的回复
发表回复
5icool 2004-08-01
还是不行
  • 打赏
  • 举报
 回复 赞
ShiningstarHu 2004-08-01
rs.open sql,conn,1,1
rs.MoveNext
if rs.EOF Then
%>
<li>上篇：<font color="#FF0000">已经没有了</font>
<%
else
nextid=rs("id")
%>
<li>上篇：<a href="go.asp?id=<%=nextid%>"><font color="#FF0000"><%=rs("title")%></font></a>
<%
end if
rs.close
set rs=nothing
%>
  • 打赏
  • 举报
 回复 赞
5icool 2004-08-01
楼上的，不行哦

不过也谢谢你
  • 打赏
  • 举报
 回复 赞
aspczlover 2004-08-01
rs.open sql,conn,1,1
do while not rs.eof
nextid=rs("id")
if nextid="" then
%>
<li>上篇：<font color="#FF0000">已经没有了</font>
<%else%>
<li>上篇：<a href="go.asp?id=<%=nextid%>"><font color="#FF0000"><%=rs("title")%></font></a>
<%
end if
rs.MoveNext
loop
rs.close
set rs=nothing

  • 打赏
  • 举报
 回复 赞
aspczlover 2004-08-01
rs.open sql,conn,1,1
do while not rs.eof
nextid=rs("id")
if nextid="" then
%>
<li>上篇：<font color="#FF0000">已经没有了</font>
<%else%>
<li>上篇：<a href="go.asp?id=<%=nextid%>"><font color="#FF0000"><%=rs("title")%></font></a>
<%
end if
rs.MoveNextloop
rs.close
set rs=nothing
  • 打赏
  • 举报
 回复 赞
5icool 2004-08-01
帮忙啊
  • 打赏
  • 举报
 回复 赞
hzqq 2004-08-01
rs.open sql,conn,1,1
rs.MoveFirst'***********加上这个试试！

1,1方式打开的好像只能Movenext
用1,3就问题都解决了
  • 打赏
  • 举报
 回复 赞
stephen_wang 2004-08-01
<%
set rs=server.createobject("adodb.recordset")
sql="select id,title from joke where id="&id&""
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "数据库中无记录"
else
rs.MoveNext
nextid=rs("id")
if nextid="" then
%>
<li>上篇：<font color="#FF0000">已经没有了</font>
<%
else
%>
<li>上篇：<a href="go.asp?id=<%=nextid%>"><font color="#FF0000"><%=rs("title")%></font></a>
<%
end if
rs.close
end if
set rs=nothing
%>
  • 打赏
  • 举报
 回复 赞
SonicX 2004-08-01
2次查询不就行了

下一条
sql="select id,title from joke where id>(select id from joke where id="&id&") order by id"

上一条
sql="select id,title from joke where id<(select id from joke where id="&id&") order by id desc"

  • 打赏
  • 举报
 回复 赞
ghy412 2004-08-01
set rs=server.createobject("adodb.recordset")
sql="select id,title from joke where id="&id&""
rs.open sql,conn,1,1
rs.MoveFirst'***********加上这个试试！
rs.MoveNext
nextid=rs("id")
if nextid="" then
%>
<li>上篇：<font color="#FF0000">已经没有了</font>
<%else%>
<li>上篇：<a href="go.asp?id=<%=nextid%>"><font color="#FF0000"><%=rs("title")%></font></a>
<%
end if
rs.close
set rs=nothing
%>
  • 打赏
  • 举报
 回复 赞
一声雷响老子闪亮登场 2004-08-01
set rs=server.createobject("adodb.recordset")
sql="select top 1 id from joke where id<"&id&""
rs.open sql,conn,1,1
nextid=rs("id")
if nextid="" then
%>
<li>上篇：<font color="#FF0000">已经没有了</font>
<%else%>
<li>上篇：<a href="go.asp?id=<%=nextid%>"><font color="#FF0000"><%=rs("title")%></font></a>
<%
end if
rs.close
set rs=nothing
%>
  • 打赏
  • 举报
 回复 赞
5icool 2004-08-01
回复人： yxhzj(余华) ( ) 信誉：90 2004-08-01 13:12:00 得分: 0


或者你改一下
rs.open sql,conn,1,1---》rs.open sql,conn,1,3然后用 aspczlover(执子之手...) 的方法试试



他的做法是循环啊，不是我要的结果
  • 打赏
  • 举报
 回复 赞
5icool 2004-08-01
回复人： yxhzj(余华) ( ) 信誉：90 2004-08-01 13:11:00 得分: 0


<TABLE
style="BORDER-TOP: #000000 1px solid; BORDER-BOTTOM: #000000 1px solid"
height=50 cellSpacing=5 cellPadding=0 width="100%" border=0>
<TBODY><% newsid=request("newsid") '为当前新闻的ID
newsid1=cint(cint(newsid)-1)
newsid2=cint(cint(newsid)+1)
set rs_pro=server.CreateObject("Adodb.RecordSet")
rs_pro.Source="select * from [zxdt] where newsid="&newsid1
rs_pro.Open rs_pro.Source,conn,1,1
if not rs_pro.eof then
url_pro=" <a href='view_yydt.asp?newsid="&rs_pro("newsid")&"' title='查看医药动态的详细内容'>上一篇文章："&rs_pro("title")&"</a>"
else
url_pro=" 上一篇文章：已经没有了"
end if
rs_pro.close
set rs_pro=nothing '释放资源
set rs_next=server.CreateObject("Adodb.RecordSet")
rs_next.Source="select * from [zxdt] where newsid="&newsid2
rs_next.Open rs_next.Source,conn,1,1
if not rs_next.eof then
url_next=" <a href='view_yydt.asp?newsid="&rs_next("newsid")&"' title='查看医药动态的详细内容'>下一篇文章："&rs_next("title")&"</a>"
else
url_next=" 下一篇文章：已经没有了"
end if
%>
<TR>
<TD><li></li><%=url_pro%> <BR>
<li></li>
<%=url_next%></TD>
</TR>
</TBODY>
</TABLE>


如果用ID+1-1还需要这个费事吗？
  • 打赏
  • 举报
 回复 赞
fashchina 2004-08-01
或者你改一下
rs.open sql,conn,1,1---》rs.open sql,conn,1,3然后用 aspczlover(执子之手...) 的方法试试
  • 打赏
  • 举报
 回复 赞
fashchina 2004-08-01
<TABLE
style="BORDER-TOP: #000000 1px solid; BORDER-BOTTOM: #000000 1px solid"
height=50 cellSpacing=5 cellPadding=0 width="100%" border=0>
<TBODY><% newsid=request("newsid") '为当前新闻的ID
newsid1=cint(cint(newsid)-1)
newsid2=cint(cint(newsid)+1)
set rs_pro=server.CreateObject("Adodb.RecordSet")
rs_pro.Source="select * from [zxdt] where newsid="&newsid1
rs_pro.Open rs_pro.Source,conn,1,1
if not rs_pro.eof then
url_pro=" <a href='view_yydt.asp?newsid="&rs_pro("newsid")&"' title='查看医药动态的详细内容'>上一篇文章："&rs_pro("title")&"</a>"
else
url_pro=" 上一篇文章：已经没有了"
end if
rs_pro.close
set rs_pro=nothing '释放资源
set rs_next=server.CreateObject("Adodb.RecordSet")
rs_next.Source="select * from [zxdt] where newsid="&newsid2
rs_next.Open rs_next.Source,conn,1,1
if not rs_next.eof then
url_next=" <a href='view_yydt.asp?newsid="&rs_next("newsid")&"' title='查看医药动态的详细内容'>下一篇文章："&rs_next("title")&"</a>"
else
url_next=" 下一篇文章：已经没有了"
end if
%>
<TR>
<TD><li></li><%=url_pro%> <BR>
<li></li>
<%=url_next%></TD>
</TR>
</TBODY>
</TABLE>
  • 打赏
  • 举报
 回复 赞
5icool 2004-08-01
大哥们，我只取下一个ID的值

不是重复循环
  • 打赏
  • 举报
 回复 赞
5icool 2004-08-01
UP
  • 打赏
  • 举报
 回复 赞
相关推荐
mysql movenext_请教个问题 mysql记录集不支持movenext方法吗 //关闭数据集 } 为什么我在php查询mysql数据库，操作记录集时使用movenext方法一直报错no-object？难道mysql记录集不支持这个方法吗，那该如何实现？另外循环里的数组$tags在循环外能正确返回吗？ 我想将记录集存储...
mysql movenext_请教个问题mysql记录集不支持movenext方法吗 //关闭数据集 } 为什么我在php查询mysql数据库，操作记录集时使用movenext方法一直报错no-object？难道mysql记录集不支持这个方法吗，那该如何实现？另外循环里的数组$tags在循环外能正确返回吗？ 我想将记录集存储...
请教Control.Tag的用法[转载] } } } } 网上说它的用法主要是： 1，Tag这个属性是留给程序员自己用的，也就是说你可以自己做点标记 比如说一个窗体上有N个控件，你让TextBox1.Tag = "123"; Button1.Tag = "123"; 将来你可以遍历窗体的控件...
收集整理 Mysql 的一些用法 21、说明：in 的使用方法 select * from table1 where a [not] in (‘值1','值2','值4','值6') 22、说明：两张关联表，删除主表中已经在副表中没有的信息 delete from table1 where not exists ( select * from ...
MySQL基本使用 21、说明：in 的使用方法 select * from table1 where a [not] in (‘值1’,’值2’,’值4’,’值6’) 22、说明：两张关联表，删除主表中已经在副表中没有的信息 delete from table1 where not exists ( ...
【MySql】MySql基础使用详解 21、说明：in 的使用方法  select * from table1 where a [not] in (‘值1','值2','值4','值6')  22、说明：两张关联表，删除主表中已经在副表中没有的信息  delete from table1 where not exists ( ...
机房收费系统优化之MSHFlexGrid控件的使用  .TextMatrix(.Rows - 2, 6) = Trim(mrc.Fields(12)) & "" '为了避免上机时就查询上机记录，报错:无效使用NULL  .TextMatrix(.Rows - 2, 7) = Trim(mrc.Fields(13)) '显示正常上下机  mrc.MoveNext  Loop  ...
JavaScript 使用小技巧 因为这两篇太安逸了,东西很多,很实用,所以转到我格子里! 总的来说,如果你要找js 的东西,而不看这两篇的话,肯定要多花好多时间!!哈哈!! ...如果你找的javascript的东西的话,建议你 ctrl+F 直接在这个页上找,因为这里...
Mono2.0 对C#闭包 与 donet 不同的实现导致Unity的Bug 及解决方案 //调用由传递的方法说明符指示的方法(Debug::Log(object))。 call void [UnityEngine]UnityEngine.Debug::Log(object) IL_000a: //将整数值 0 作为 int32 推送到计算堆栈上。 ldc.i4.0 IL_000b: //从计算...
在.NET里用XSLT时怎么使用msxsl:script 今天在CSDN论坛上看到一个网友在请教关于msxsl:script的用法。感觉这问题也许有点意思，所以在下面简述一下。在MSXML里，你在msxsl:script里可以使用Javascript和VBScript，参考 Element但在.NET里，你只能使用那些...
请高手指点，简单的几个数组操作方法不知道是否可以有更好的改进方法或者更简单的方法？ 总觉得以下方法写得不是最优化，希望得到高手指点，如何改进代码量最少，运行速度最优？  1 /**//// <summary><br /> 2 /// 判断是否包含的方法  3 /// </summary><br /> 4 ///  name="ids">...
提高 .NET 应用 XML 处理性能的几点开发经验(转载)  主要使用的方法或属性有 LoadXml、CreateNavigator、Select （XPath 查询）、MoveNext 等。这里之所以说是“准 SAX 方式”，是因为这里虽然具备了单向向前和只读以及标签触发的性质，但这毕竟是在使用的 Xml Dom ...
c# java 迭代器 思考(2012 有次，一同事问我关于C#链表的用法（时代久远），由于我使用List比较多（C#的List 相当于Java的ArrayList），没使用过链表（基础差），随机上网搜索了相关资料（还TM现学现卖），便解决了同事的问题（还好没出丑）。...
vc6 ado mysql_关于vc++6.0中 通过ADO连接数据库的问题！！ 以后多请教啊！！ ------------------------------------------------------------------------------------ 你现在不少基础的不会，上来就连接数据库有点难 -----------------------------------------------------...
hugetable和mysql区别_BigData-MySQL总结大全（一）苏暖人 in 的使用方法 select * from table1 where a [not] in (‘值1','值2','值4','值6') 22、说明：两张关联表，删除主表中已经在副表中没有的信息 delete from table1 where not exists ( select * from table2 where ...
新编法兰与管接头选型设计标准速查手册参考.pdf 新编法兰与管接头选型设计标准速查手册参考.pdf
three.js 入门示例，含坐标系、相机参数 three.js 入门示例，含坐标系、相机参数 对应博客地址： https://blog.csdn.net/u010476739/article/details/122597958
USB 描述符介绍资料pdf USB 描述符介绍资料pdf
数学建模-投资组合模型.zip 数学建模-投资组合模型.zip
发帖
ASP
加入

2.8w+

社区成员

35.7w+

社区内容

ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-08-01 12:14
社区公告
暂无公告