请教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
%>

不成功,请教正确用法
...全文
394 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
%>
  • 打赏
  • 举报
回复
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
  • 打赏
  • 举报
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

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