| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 772 人关注过本帖
标题:对象不支持 '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
快速回复:对象不支持 'movenext'?????
数据加载中...
 
   



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

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