首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 网站开发 > ASP >

ADODB.Recordset 异常 '800a0e79' 对象打开时,操作不被允许

2012-04-17 
ADODB.Recordset 错误 800a0e79 对象打开时,操作不被允许。!--#includefile conn.asp --htmlhead

ADODB.Recordset 错误 '800a0e79' 对象打开时,操作不被允许。
<!--#include   file= "conn.asp "   --> <html>
<head>
<meta   http-equiv= "Content-Type "   content= "text/html;   charset=gb2312 ">
<title> 订单查询 </title>
<style   type= "text/css ">
<!--
body   {
background-color:   #CCCCCC;
}
body,td,th   {
font-size:   12px;
}
-->
</style> </head>

<body>
  <div   align= "center "> 我的订单   </div> <br> <%set   rm=server.CreateObject( "adodb.recordset ")
      set   rs=server.createobject( "adodb.recordset ")
      set   rr=server.createobject( "adodb.recordset ")
      rm.open "select   *   from   tdwy   where   hyname= ' "&session( "userid ")& " '   order   by   time   desc ",conn,1,1
      if   not   rm.eof   then
%>
<table   width= "100% "   border= "1 "   align= "center "   cellpadding= "5 "   cellspacing= "0 "   bordercolordark= "#FFFFFF "   bordercolorlight= "#666666 ">
    <tr>
        <td   width= "11% "   align= "center "> 订单号 </td>
        <td   width= "10% "   align= "center "> 姓名 </td>
        <td   width= "26% "   align= "center "> 地址 </td>
        <td   width= "14% "   align= "center "> 订单金额 </td>
        <td   width= "14% "   align= "center "> 支付方式 </td>
        <td   width= "15% "   align= "center "> 订单时间 </td>
        <td   width= "10% "   align= "center "> 详细信息 </td>
    </tr> <%do   while   not   rm.eof
          rs.open "select   tdid,sum(sum)   as   mm   from   tgcp   where   tdid= ' "&rm( "id ")& " '   Group   By   tdid   order   by   tdid   desc ",conn,1,3
      if   not   rs.eof   then
    rr.open "select   zfhs   from   tdwy   where   id= ' "&rm( "id ")& " ' ",conn,1,3   %>
    <tr>
        <td   align= "center "> <%=rs( "tdid ")%> </td>
            <td   align= "center "> <%=rm( "name ")%> </td>
            <td   align= "center "> <%=rm( "addr ")%> </td>
            <td   align= "center "> <%=rs( "mm ")%> </td>
            <td   align= "center "> <%=rr( "zfhs ")%>
        <%rr.close%> </td>
            <td   align= "center "> <%=rm( "time ")%> </td>


            <td   align= "center "> <a   href= "# "   onClick= "javascript:window.open( 'cxzl.asp?id= <%=rs( "tdid ")%> ', ' ', 'menubar=no,scrollbars=yes,resizable=yes,lcation=no,toolbar=no,width=650px,height=500px ') "   style= "cursor:pointer "> 详细资料 </a> </td>
    </tr> <%end   if
    rm.movenext
    loop%>
</table>
    <%
else
response.write( " <center> <font   color=red> 你暂无任何订单 </font> </center> ")
end   if%>
    <br>
    <div   align= "center ">
    <input   type= "button "   name= "Submit "   value= " 关闭  "   onClick= "window.close() ">
</div>
</body>
</html>


我是个新手,麻烦哪个高手解决一下,

[解决办法]
应该是把
<%end if
rm.movenext
loop%>
改成
> <%end if
rs.close
rm.movenext
loop%>

热点排行