龙华基础教育在线:Microsoft VBScript 运行时错误 错误 '800a000d'

来源：百度文库 编辑：高校问答 时间：2024/05/03 23:05:36
Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配

/bbs/bbsshow.asp，行 233
附上bbsshow.asp一段代码.
<%
set rs=nothing
%>

<%case"topmoney"
dim allmoney
i=0
set rs=conn.execute("select top 10 userid,name,money,grade,alltopicnum from [user] order by money desc,lasttime desc")

do while not rs.eof
i=i+1
if i>10 then exit do
allmoney=int(allmoney)+rs("money")
rs.movenext
loop
%>

<table align=center border="1" bordercolor="<%=c1%>" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="<%=tbw%>">
<tr>
<td width="100%" class=td1 bgcolor="<%=c1%>" background="<%=tbg%>" height="28">
 论坛十大富翁</td>
</tr>
<tr><td><table align=center border="1" bordercolor=<%=c2%> cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%"> <tr bgcolor="<%=c2%>">
<td width="20%" height="28"> 用户名：</td>
<td width="40%"> 当前金钱：</td>
<td width="25%"> 论坛等级：</td>
<td width="15%"> 发表帖数：</td>
</tr>
大家帮我看看这里有没有问题.
233行就是allmoney=int(allmoney)+rs("money")
2楼的弄完后显示
ADODB.Recordset 错误 '800a0e78'

对象关闭时，不允许操作。

/bbs/bbsshow.asp，行 232

set rs=conn.execute("select top 10 userid,name,money,grade,alltopicnum from [user] order by money desc,lasttime desc")

这个不要这样写,你换一下
set rs=server.createobject("adodb.recordset")
sql="select top 10 userid,name,money,grade,alltopicnum from [user] order by money desc,lasttime desc"
rs.open sql,conn,1,1

换成这样后,你再试试,我以前也碰到过这样的错误,当时就是这样改的,不知道能不能解决你的问题

allmoney=int(allmoney)+rs(money)

Microsoft VBScript Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 microsoft vbscript 编译器错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 (0x800A000D)