Question

对象关闭时，不允许操作。(asp)

<%
dim Result
Result=request.QueryString("Result")
dim ID,PicName,BigPic,mMemName
ID=request.QueryString("ID")
call PicEdit()
%>

<table width="664" border="0" cellspacing="0" cellpadding="1">
<form name="editForm" method="post" action="MemberPic.asp?Action=SaveEdit&Result=<%=Result%>&ID=<%=ID%>">
<tr>
<td align="right">图片介绍：</td>
<td><input name="PicName" type="text" class="TextBox" id="PicName" style="WIDTH: 240;" maxlength="100" value="<% =PicName %>"> 不少于3个字符</td>
</tr>
<tr>
<td align="right">选择图片：</td>
<td><input name="BigPic" type="text" class="TextBox" id="BigPic" style="WIDTH: 240;" maxlength="100" value="<% =BigPic %>"> <a href="javaScript:OpenScript('UpFileForm.asp?Result=BigPic',460,180)"><img src="../System/Images/Upload.gif" width="30" height="16" border="0" align="absmiddle"></a></td>
</tr>
<tr>
<td align="right"></td>
<td valign="bottom"><input name="submitSaveEdit" type="submit" class="button" id="submitSaveEdit" value="保存" style="WIDTH:50;"></td>
</tr>
</form>
</table>

<%
sub PicEdit()
dim Action,rs,sql
Action=request.QueryString("Action")
if Action="SaveEdit" then '保存编辑信息
set rs = server.createobject("adodb.recordset")
if len(trim(request.Form("PicName")))<3 then
response.write ("<script language=javascript> alert('图片介绍不少于3个字符！');history.back(-1);</script>")
response.end
end if
if trim(request.Form("BigPic"))="" then
response.write ("<script language=javascript> alert('请选择图片！');history.back(-1);</script>")
response.end
end if
if Result="Add" then '创建
sql="select * from NwebCn_Members"
rs.open sql,conn,1,3
rs.addnew
rs("PicName")=trim(Request.Form("PicName"))
rs("BigPic")=trim(Request.Form("BigPic"))
rs("AddTime")=now()
end if
if Result="Modify" then '修改
sql="select * from NwebCn_Members where ID="&ID
rs.open sql,conn,1,3
rs("PicName")=trim(Request.Form("PicName"))
rs("BigPic")=trim(Request.Form("BigPic"))
end if
rs.update '这里报错！！！
rs.close
set rs=nothing
response.write "<script language=javascript> alert('成功上传图片！');changeAdminFlag('好友圈');location.replace('MemberInfo.asp');</script>"
else '提取
if Result="Modify" then
set rs = server.createobject("adodb.recordset")
sql="select * from NwebCn_Members where ID="& ID
rs.open sql,conn,1,1
PicName=rs("PicName")
BigPic=rs("BigPic")
rs.close
set rs=nothing
end if
end if
end sub
%>

MemberPic就是本页，图片可以成功上传，就是一点完成按钮就报对象关闭时，不允许操作！正常应该提交数据库成功接着跳转到MemberInfo.asp这一页，请高手帮忙看下，谢谢，本人QQ 397400125 在线等 渴望您的指点！解决问题必追分！

Answer 1

你的代在码中有二个:
rs.close
set rs=nothing
这句话就是关闭了数据库,下面的无法打开了,这种关闭代码写一个就行了,放在最后执行

<%
.............

.rs("PicName")=trim(Request.Form("PicName"))
rs("BigPic")=trim(Request.Form("BigPic"))
end if
rs.update '这里报错！！！
response.write "<script language=javascript> alert('成功上传图片！');changeAdminFlag('好友圈');location.replace('MemberInfo.asp');</script>"
else '提取
if Result="Modify" then
set rs = server.createobject("adodb.recordset")
sql="select * from NwebCn_Members where ID="& ID
rs.open sql,conn,1,1
PicName=rs("PicName")
BigPic=rs("BigPic")
rs.close
set rs=nothing
end if
end if
end sub
%>

Answer 2

<%
sub PicEdit()
set rs = server.createobject("adodb.recordset")
dim Action,rs,sql
Action=request.QueryString("Action")
if Action="SaveEdit" then '保存编辑信息

。。。。。。。。。。。。。。。。。
%>

把 set rs = server.createobject("adodb.recordset")
放在sub PicEdit() 后下一行

Answer 3

if Result="Add" then '这个判断里没有关闭记录集

你这里面有三个sql语句都用 rs 做记录集，

换个名字每个不一样就可以啦,

Answer 4

别急，带回家看下