Microsoft VBScript 运行时错误 错误 '800a01a8' 缺少对象:‘’

来源:百度知道 编辑:UC知道 时间:2024/06/25 17:13:22
<%
set rs=conn.execute("SELECT top 11 id,musicname,hits FROM musiclist order by Hits desc")
if not Rs.eof then
do while not rs.eof
%>
<div id=toptr><img src="images/ico_bang.jpg" width="12" height="7" /><a href='../play/xfd8_<%=rs(0)%>.htm' title='舞曲名称:<%=Rs("MusicName")%>' target="c"><%=left(rs("musicname"),10)%><% if len(rs("musicname"))>10 then Response.Write ".." %></a>
</div>
<%
rs.movenext
loop
else
response.write "尚无收录"
end if
rs.close
%>
这是第61行 set rs=conn.execute("SELECT top 11 id,musicname,hits FROM musiclist order by Hits desc")

conn 呢?conn怎么丢了,在最前面加下面的代码,当然要连你的数据库。

dbpath="data/XXXX.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbpath)
'connstr="Driver={SQL Server};server=127.0.0.1;database=xxxx;uid=sa;pwd=111111;" ' 这个是连SQL SERVER
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr