请教MoveNext用法

[5icool]

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

不成功，请教正确用法

[5icool]

UP

[5icool]

大哥们，我只取下一个ID的值

不是重复循环

[fashchina]

<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>

[fashchina]

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

[5icool]

回复人： 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还需要这个费事吗？

[5icool]

回复人： yxhzj(余华) ( ) 信誉：90 2004-08-01 13:12:00 得分: 0


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



他的做法是循环啊，不是我要的结果

[一声雷响老子闪亮登场]

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

[ghy412]

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

[SonicX]

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"

[stephen_wang]

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

[hzqq]

rs.open sql,conn,1,1
rs.MoveFirst'***********加上这个试试！

1,1方式打开的好像只能Movenext
用1,3就问题都解决了

[5icool]

帮忙啊

[aspczlover]

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

[aspczlover]

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

[5icool]

楼上的，不行哦

不过也谢谢你

[ShiningstarHu]

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]

还是不行