读书人

ADODB.Recordset 异常 #039;800a0e79#039; 对象

发布时间: 2012-04-17 15:06:33 作者: rapoo

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%>

读书人网 >ASP

热点推荐