| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 664 人关注过本帖
标题:一个百思不得其解的错误。第279行 rs.close 的时候就会出错,我明明创建了对 ...
只看楼主 加入收藏
isbn0000
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2009-3-21
结帖率:75%
收藏
已结贴  问题点数:10 回复次数:6 
一个百思不得其解的错误。第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">&nbsp;&nbsp;<b><%=i+1%><%=rs("question")%></b></td>
    </tr>
    <%
  if trim(rs("text1"))<>"" then
  %>
    <tr>
      <td width="100%">&nbsp;&nbsp;&nbsp;&nbsp;<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%">&nbsp;&nbsp;&nbsp;&nbsp;<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%">&nbsp;&nbsp;&nbsp;&nbsp;<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%">&nbsp;&nbsp;&nbsp;&nbsp;<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%">&nbsp;&nbsp;&nbsp;&nbsp;<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%">&nbsp;&nbsp;&nbsp;&nbsp;<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
%>
搜索更多相关主题的帖子: 对象 
2011-03-20 23:26
isbn0000
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2009-3-21
收藏
得分:0 
现在不是279行了,是代码的倒数第三行,rs.close 语句。
2011-03-20 23:27
hams
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:18
帖 子:912
专家分:3670
注 册:2008-7-30
收藏
得分:10 
sql="select * from exam_database where ID="&subject_id(i)
set rs=server.createobject("adodb.recordset")

把这段放到循环外边

俺不高手,俺也是来学习的。
俺的意见不一定就对,当你不认同时请点忽视按钮。
当走到十字路口不知该如何走时,可在论坛问下路,但你若希望别人能一路把你送到目的地,显然是不现实的,因为别人也有自己要走的路。
2011-03-21 08:14
isbn0000
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2009-3-21
收藏
得分:0 
回复 3楼 hams
为什么我前面这样用可以,而同一文件里第二次这样语序就不可以额?
2011-03-21 11:58
hams
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:18
帖 子:912
专家分:3670
注 册:2008-7-30
收藏
得分:0 
为什么前面能用我不知道,唯一的解释是只进行了一次循环,执行第二次就出错。

俺不高手,俺也是来学习的。
俺的意见不一定就对,当你不认同时请点忽视按钮。
当走到十字路口不知该如何走时,可在论坛问下路,但你若希望别人能一路把你送到目的地,显然是不现实的,因为别人也有自己要走的路。
2011-03-21 14:47
isbn0000
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2009-3-21
收藏
得分:0 
回复 4楼 isbn0000
是不是可以用exit关键字来终止每次循环。
2011-03-21 18:55
hams
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:18
帖 子:912
专家分:3670
注 册:2008-7-30
收藏
得分:0 
这和循环没关系,在对象关闭前不要再打开

俺不高手,俺也是来学习的。
俺的意见不一定就对,当你不认同时请点忽视按钮。
当走到十字路口不知该如何走时,可在论坛问下路,但你若希望别人能一路把你送到目的地,显然是不现实的,因为别人也有自己要走的路。
2011-03-22 08:09
快速回复:一个百思不得其解的错误。第279行 rs.close 的时候就会出错,我明明创 ...
数据加载中...
 
   



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

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