现在的位置： 首页 >> 电脑网络 >> 软件 >> 文章正文

求助 错误类型：ADODB.Recordset (0x800A0E79)对象打开时，不允许操作。

求助 错误类型：ADODB.Recordset (0x800A0E79)对象打开时，不允许操作。
对应代码： <% sub shoucang() if request.cookies(bookshop)(username)= then response.Redirect myuser.asp?action=login response.End end if set rs=server.CreateObject(adodb.recordset) dim rs2 set rs2=server.CreateObject(adodb.recordset) rs2.Open select actionid,bookid from shop_action where username=&request.cookies(bookshop)(username)& and zhuangtai=6,conn,1,1 rs.open select bookname,shichangjia,huiyuanjia,dazhe from shop_books where bookid in(&rs2(bookid)&),conn,1,1 rs.open select shop_action.actionid,shop_action.bookid,shop_books.bookname,shop_books.shichangjia,shop_books.huiyuanjia,shop_books.dazhe from shop_books inner join shop_action on shop_books.bookid=shop_action.bookid where shop_action.username=&request.cookies(bookshop)(username)& and shop_action.zhuangtai=6,conn,1,1 response.write <table width=96% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFFFFF> if action=shoucang then response.write <form action=shopping.asp target=ckxp onsubmit=javascript:window.open(,ckxp,width=632,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes);> else response.write <form name=form1 method=post action=shopping.asp> end if response.write <tr><td width=7% bgcolor=#5F95D3><div align=center><font color=#FFFFFF>选 择</font></div></td> response.Write <td width=45% bgcolor=#5F95D3><div align=center><font color=#FFFFFF>商品名称</font></div></td> response.Write <td width=14% bgcolor=#5F95D3><div align=center><font color=#FFFFFF>市场价</font></div></td> response.Write <td width=13% bgcolor=#5F95D3><div align=center><font color=#FFFFFF>会员价</font></div></td> response.Write <td width=12% bgcolor=#5F95D3><div align=center><font color=#FFFFFF>折 扣</font></div></td> response.Write <td width=9% bgcolor=#5F95D3><div align=center><font color=#FFFFFF>删 除</font></div></td></tr> do while not rs.eof response.write <tr><td bgcolor=#EFF5FE><div align=center><input name=bookid type=checkbox checked value=&rs(bookid)& ></div></td> response.write <td bgcolor=#EFF5FE STYLE=PADDING-LEFT: 5px><div align=left><a href=book.asp?id=&rs(bookid)& target=_blank>&rs(bookname)&</a></div></td> response.write <td bgcolor=#EFF5FE><div align=center>&formatnumber(rs(shichangjia),2)&元</div></td> response.write <td bgcolor=#EFF5FE><div align=center><font color=#FF6600>&formatnumber(rs(huiyuanjia),2)&元</font></div></td> response.write <td bgcolor=#EFF5FE><div align=center>&formatnumber(rs(dazhe)*100,2)&%</div></td> response.write <td bgcolor=#EFF5FE><div align=center> if action<>shoucang then response.Write <a href=shoucang.asp?action=del&actionid=&rs(actionid)&> else response.Write <a href=shoucang.asp?action=del&actionid=&rs(actionid)&&ll=22> end if response.Write <img src=images/trash.gif width=15 height=17 border=0></a></div></td></tr> rs.movenext loop rs.close end sub%>

问题出在第11，12行
rs.open "select bookname,shichangjia,huiyuanjia,dazhe from shop_books where bookid in('"&rs2("bookid")&"')",conn,1,1
rs.open "select shop_action.actionid,shop_action.bookid,shop_books.bookname,shop_books.shichangjia,shop_books.huiyuanjia,shop_books.dazhe from shop_books inner join shop_action on shop_books.bookid=shop_action.bookid where shop_action.username='"&request.cookies("bookshop")("username")&"' and shop_action.zhuangtai=6",conn,1,1

rs open了一次，没有关闭就继续open，肯定错误了

还有第10行
rs2.Open "select actionid,bookid from shop_action where username='"&request.cookies("bookshop")("username")&"' and zhuangtai=6",conn,1,1
下面没有判断数据是否存在，就继续执行，可能会发生不可预料的结果
用if rs2.eof then response.end 来判断

软件相关文章推荐

软件重要提示

软件特别推荐

软件论坛新帖