一个百思不得其解的错误。第279行 rs.close 的时候就会出错,我明明创建了对象,硬说我没有。。。
程序代码:
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3"> <tr> <td width="100%" height="25"><b><font color="#000080" size="3">二、多项选择题(每题<%=multiper%>分,共<%=multicount%>题。每题至少有2项正确的答案,少选每答对一题得<%=multiper/4%>分,多选不得分)</font></b></td> </tr> </table> <% for i=singlecount to multicount+singlecount-1 sql="select * from exam_database where ID="&subject_id(i) set rs=server.createobject("adodb.recordset") rs.open sql,conn,3,2 if not rs.eof then %> <table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2"> <tr> <td width="100%" bgcolor="#EFEFEF" height="20"> <b><%=i+1%>、<%=rs("question")%></b></td> </tr> <% if trim(rs("text1"))<>"" then %> <tr> <td width="100%"> <input type="checkbox" name="NO<%=rs("id")%>" value="A">A、<%=rs("text1")%></td> </tr> <% end if %> <% if trim(rs("text2"))<>"" then %> <tr> <td width="100%"> <input type="checkbox" name="NO<%=rs("id")%>" value="B">B、<%=rs("text2")%></td> </tr> <% end if %> <% if trim(rs("text3"))<>"" then %> <tr> <td width="100%"> <input type="checkbox" name="NO<%=rs("id")%>" value="C">C、<%=rs("text3")%></td> </tr> <% end if %> <% if trim(rs("text4"))<>"" then %> <tr> <td width="100%"> <input type="checkbox" name="NO<%=rs("id")%>" value="D">D、<%=rs("text4")%></td> </tr> <% end if %> <% if trim(rs("text5"))<>"" then %> <tr> <td width="100%"> <input type="checkbox" name="NO<%=rs("id")%>" value="E">E、<%=rs("text5")%></td> </tr> <% end if %> <% if trim(rs("text6"))<>"" then %> <tr> <td width="100%"> <input type="checkbox" name="NO<%=rs("id")%>" value="F">F、<%=rs("text6")%></td> </tr> <% end if %> </table> <% end if next rs.close set rs=nothing %>