ADODB.Recordset (0x800A0E78)对象关闭时，不允许操作

Question

<%if Request.Cookies("venshop")("user_type")="" then
zhekou=100
usertype_name=errmes5
else
user_type=Request.Cookies("venshop")("user_type")
set rs=server.createobject("adodb.recordset")
sql="select * from usertype where usertype_id="&user_type&""
rs.open sql,conn,1,1
if rs.eof then
zhekou=100
usertype_name=errmes5
else
zhekou=rs("usertype_zhekou")
usertype_name=rs("usertype_name")
end if
rs.close
set rs=nothing
end If

set rs=server.createobject("adodb.recordset")
sql="select * from sub where sub_name='"&user_name&"' and sub_number='"&sub_number&"'"
rs.open sql,conn,3,3
If rs.eof Then
response.write "无此定单"
rs.close
Set rs=Nothing
Set conn=nothing
response.end
End if
totime=rs("sub_totime")
sub_pay=rs("sub_pay")
sub_ps=rs("sub_ps")
ps_fei=rs("sub_you")

set rsp=server.CreateObject("adodb.recordset")
rsp.open "select * from ps where ps_id="&sub_ps&"",conn,1,1
if rsp.eof and rsp.bof then
pei_name=errmes7
else
ps_name=rsp("ps_name")
end if
rsp.close
'set rsp=nothing
response.write errmes8'收货方式
response.write ps_name

response.write ";目的地：" & request.form("province") & request.Form("city")

response.write errmes9 '运费

set rsp=server.CreateObject("adodb.recordset")
sql="select * from city where shiname like '%" & request.Form("city")&"%'" '计算邮递费率
'response.write sql
rsp.open sql,conn,1,1
If Not rsp.eof then
'response.write "邮寄费用:" & rsp("yj") & "; 快递费用:" & rsp("kd") & "; 空运费用:" & rsp("hk")
If ps_name="邮寄" then
sub_you=rsp("yj")
ElseIf ps_name="快递" Then
sub_you=rsp("kd")
Elseif ps_name="航空" Then
sub_you=rsp("hk")
Else
sub_you=0
End If

Else
response.write "暂无此城市的物流价格"
End If
rsp.close

If IsNull(sub_you) Then sub_you=0

'response.write "Will be confirmed by email"

response.write sub_you
rsp.close
response.write errmes10
totalcash=totalcash*zhekou/100+sub_you '加上了运费哦 ’by小熊 2007-9-2
response.write totalcash
response.write errmes11

rs("sub_you")=sub_you '邮费写入数据库
rs.update

set rs6=server.createobject("adodb.recordset")
sql6="select * from [user] where username='"&user_name &"'"
rs6.open sql6,conn,3,3
if not rs6.eof then
rs6("savemoney")=rs6("savemoney")+totaljifen
rs6.update
end if
'rs6.close
'set rs6=nothing %><===================这是297行=========>

Answer 1

你的错误是对象关闭后 不能接着执行 必须再.open(）才能执行以后的操作。
看你的程序：
例如你的rsp.open()后，的确执行过一次rsp.close 但是你再执行下面的时候没有再打开rsp.open(),所以会报“对象关闭时，不允许操作”
不知道你明白没有？就是说执行完.open操作，要执行.close操作。执行完.close操作后，要及时再执行.open操作才能执行下面的操作。也不知道你听明白没！！！

Answer 2

谁会晓得你的问题会是什么呢?