求助：运行时rs.close缺少对象（在线考试随机抽题）

[复制链接]

青苹果

电梯直达

1^#

发表于 2010-1-15 01:24:15 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

搞不懂，单选题部分就可以，可判断却不行单选和判断题在同一个表里
麻烦各位朋友帮忙看下，谢谢了
错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象
/mdb/test.asp, 第 231 行 ‘该行为rs.close 判断题部分
单选题部分：
<%
dim i,sql,rs,count,temp,strid1,strid2
strid1=""
strid2=""
randomize
for i=1 to session("singlenumber") ’单选题数目
set rs=server.createobject("adodb.recordset")
sql="select * from test_tm where belong='"&session("selectbelong") & "'and category=1 and haveselect=0 " 'belong为科目 category为题目类型-单选 haveselect为是否已经选过
rs.open sql,conn,3,2
count=rs.recordcount
temp=fix(count*rnd(10))
rs.move temp
rs("haveselect")=1
strid1=strid1 & rs("ID") & ","
%>
<td width="100%" bgcolor="#EFEFEF" height="20">  <b><%=i%>、<%=rs("test_tm")%></b></td></tr> '取题
<%
if rs("A")<>"" then
%>
<tr><td width="100%">    <input type="radio" name="NO<%=rs("id")%>" value="A">A、<%=rs("A")%></td></tr>
<%
end if
%>
……
……
<%
rs.update
next
rs.close ’184行运行时没提示有什么问题
set rs=nothing
%>
…………………………
判断题部分：
<%
randomize
for i=1 to session("judgenumber")
set rs=server.createobject("adodb.recordset")
sql="select * from test_tm where belong='"&session("selectbelong") & "'and category=2 and haveselect=0 "
rs.open sql,conn,3,2
count=rs.recordcount
temp=fix(count*rnd(10))
rs.move temp
rs("haveselect")=1
strid2=strid2 & rs("ID") & ","
%>
…… '同上
……
<%
rs.update
next
rs.close ‘ 第231行此处运行提示缺少对象！
response.write("<input type='hidden' name='hidQuestID1' value=" & strID1 & ">")
response.write("<input type='hidden' name='hidQuestID2' value=" & strID2 & ">")
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="select * from test_tm where haveselect=1 "
rs.open sql,conn,3,2
rs.movefirst
do while not rs.eof
rs("haveselect")=0
rs.update
rs.movenext
loop
rs.close
set rs=nothing
call endConnection()
'response.write(strid1)
'response.write(strid2)
%>

收藏0