ADODB.Recordset 异常 '800a0e79' 对象打开时，操作不被允许
日期：2014-05-17 浏览次数：21012 次
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 ")%>
<!--#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 ")%>
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
