标题:对象不支持 'movenext'?????
取消只看楼主
lanya1983
Rank: 1
等 级:新手上路
帖 子:96
专家分:0
注 册:2006-3-11
 问题点数:0 回复次数:1 
对象不支持 'movenext'?????

我正在做一个Access&Asp网站
以下代码出现了问题

<%Set connect=Server.CreateObject("ADODB.connection")
Set rs = CreateObject("ADODB.Recordset")
dim s
connect.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(".\lanyadb.MDB") & ";Persist Security Info=False"
s="Select * from music_info where music_new=1 order by music_date desc"
rs=connect.execute(s)

Do

music=Trim(rs("music_chinese"))
picture="musiclib\" & Trim(rs("music_picture"))
file="musiclib\" & Trim(rs("music_file"))

%>
<tr><td><a href=<%=file%>>
<img border=0 src=<%=picture%> alt=<%=music%>></a>

<td><table width=100% border=0>

<tr><td><a href=<%=file%> target=_blank> <%=music%>

<%=Trim(rs("music_english"))%></a>

<td align=right>发行日期:20<%=Trim(rs("music_date"))%>

<tr>
<td colspan=2 align=center> 作曲:<%=Trim(rs("music_writer"))%>&nbsp;&nbsp; 演唱:<%=Trim(rs("music_actor"))%>

<tr><td colspan=2><%=rs("music_brief")%>

<tr><td colspan=2 align=right>出品:<%=Trim(rs("music_producer"))%>

</table>

<%
rs.movenext
Loop until rs.Eof

rs.Close
Set rs=Nothing

%>

调试时显示:

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp,行242

Microsoft VBScript 运行时错误 错误 '800a01b6'

对象不支持此属性或方法: 'movenext'

/lanya/musics_main.asp,行44

怎么回事啊,哥哥帮忙啊

搜索更多相关主题的帖子: movenext 对象 
2006-03-11 16:33
lanya1983
Rank: 1
等 级:新手上路
帖 子:96
专家分:0
注 册:2006-3-11
得分:0 


谢谢斑竹
解决了
谢谢!!!!!!
kiss u


我的网站http:\\\\lanya. http:\\\\leilei. 主要是练练手
2006-03-11 17:19



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-49792-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.377411 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved