请教：对象关闭时，不允许操作
ADODB.Recordset 错误 '800a0e78' 对象关闭时，不允许操作。
/search/order/my_RL/orders.asp，行 97
<%
'on error resume next
dim myTotalMoney,myOrderStr
myTotalMoney=0
mem_id=trim(request.cookies("mem_login"))
oRderStatus=request("oRderStatus")
set rs=server.CreateObject("adodb.recordset")
sql="select * from tmember where mem_loginname ='"&mem_id&"'"
rs.open sql,conn,1,1
if rs.eof then
call msginfor("请登陆","../memlogin.asp")
else
mem_id=rs("mem_id")
mem_name=rs("mem_name")
mem_sex=rs("mem_sex")
mem_money=rs("mem_money")
mem_email=rs("mem_email")
mem_mobile=rs("mem_mobile")
Mem_LoginName=rs("Mem_LoginName")
Mem_LoginPasd=rs("Mem_LoginPasd")
Mem_Biming=rs("Mem_Biming")
Mem_City=rs("Mem_City")
Mem_Addr=rs("Mem_Addr")
Mem_Tel=rs("Mem_Tel")
Mem_CardID=rs("Mem_CardID")
Mem_IDcard=rs("Mem_IDcard")
Mem_Grade=rs("Mem_Grade")
Mem_Status=rs("Mem_Status")
Mem_RegistDate=rs("Mem_RegistDate")
Mem_Remark=rs("Mem_Remark")
mem_province=rs("mem_province")
mem_zip=rs("mem_zip")
mem_power=rs("mem_power")
mem_fax=rs("mem_fax")
mem_both=rs("mem_both")
mem_cid=rs("mem_cid")
mem_company=rs("mem_company")
mem_ifActive=rs("mem_ifActive")
ipagesize=rs("ipagesize")
oRderStatus=rs("oRderStatus")
if mem_sex="F" THEN
mem_call="女士"
else
mem_call="先生"
END IF
end if
rs.close
%>
<html>
<HEAD>
<TITLE><%=ZXLCompanyStr&"-- 我的行程"%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="Microsoft FrontPage 5.0" name=GENERATOR>
<LINK href="../smallPic/newdef.css" rel=stylesheet>
<link href="RLimages/user.css" rel="stylesheet" type="text/css">
<script language="javascript" src="../../js/Page1.js"></script>
<style type="text/css">
.un {
font-size: 13px;
font-style: normal;
line-height: 20px;
color: #FFFFFF;
text-decoration: none;
font-weight: bold;
}
.unnamed1 {
font-size: 14px;
font-style: normal;
color: #000000;
text-decoration: none;
}
</style>
</HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0 >
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" bgcolor="#FFFFFF">
<div class="pageHeading">我的行程 </div>
<table width="100%" border="0" cellpadding="0" cellspacing="1">
<tr>
<td height=25 width="13%" align="center" bgcolor="#709DDE" class="un">订单号</td>
<td width="18%" align="center" bgcolor="#709DDE" class="un">行程</td>
<td width="14%" align="center" bgcolor="#709DDE" class="un">预订日期</td>
<td width="14%" align="center" bgcolor="#709DDE" class="un">支付状态</td>
<td width="13%" align="center" bgcolor="#709DDE" class="un">订单状态</td>
<td width="15%" align="center" bgcolor="#709DDE" class="un">支付方式</td>
<td width="13%" align="center" bgcolor="#709DDE" class="un">总额</td>
</tr>
<%if rs.eof and rs.bof then%> （ 97行）
<tr bgcolor="#eff3f7">
<td align="center" colspan="7"><div align="center">您暂时没有预订记录</div></td></tr>
<%else
redim payStauts(4),OrderTypeName(6)
payStauts(1)="未支付"
payStauts(2)="已支付"
payStauts(3)="未支付"
OrderTypeName(1)="新订单"
OrderTypeName(2)="订单已确定"
OrderTypeName(3)="订单已生效"
OrderTypeName(4)="订单已成交"
OrderTypeName(5)="订单已取消"
i=1
rs.pagesize=ipagesize
irecordset=rs.recordcount
pagecounts=rs.pagecount
if ipagenow>pagecounts-1 then
ipagenow=pagecounts
end if
rs.absolutepage=ipagenow
records=ipagesize
do while not rs.eof
payStatusNum=rs("网上扣款标志")
if isnull(payStatusNum) or payStatusNum="" then payStatusNum=1
payStatusShow=payStauts(payStatusNum)
oRderStatus=rs("网上订单状态")
paywayname=payname(rs("支付方式"))
webmoney=ReOpResult(rs("订单编号"),rs("网上结算金额"))
if oRderStatus=0 or isnull(oRderStatus) or oRderStatus="" then oRderStatus="1"
state1=OrderTypeName(Cint(oRderStatus))
if Cint(oRderStatus)=4 then
payStatusShow="已支付"
myTotalMoney=myTotalMoney+webmoney
end if
if rs("TravelType")="单程" then
TTakeOffTime=rs("TakeOffTime")
TFromCityCode=rs("FromCityCode")
TToCityCode=rs("ToCityCode")
FromCityName=rs("FromCity")
ToCityName=rs("ToCity")
showsee="->"
else
TTakeOffTime=split(rs("TakeOffTime"),"|")(0)
TFromCityCode=split(rs("FromCityCode"),"|")(0)
TToCityCode=split(rs("ToCityCode"),"|")(0)
FromCityName=split(rs("FromCity"),"|")(0)
ToCityName=split(rs("ToCity"),"|")(0)
showsee="<->"
end if
if isdate(TTakeOffTime) then
TTakeOffTime=formatdatetime(TTakeOffTime,1)
end if
OrderTime=rs("接收时间")
[ 本帖最后由 asbj 于 2010-6-8 00:44 编辑 ]
