Question

ASP错误：对象关闭时,不允许操作！！

<%
sub NewsEdit()
dim Action,rsCheckAdd,rs,sql
Action=request.QueryString("Action")
if Action="SaveEdit" then
set rs = server.createobject("adodb.recordset")
if len(trim(request.Form("NewsName")))<1 then
response.write ("<script language=javascript> alert('新闻标题为必填项目！');history.back(-1);</script>")
response.end
end if
if Result="Add" then
sql="select * from NwebCn_News"
rs.open sql,conn,1,3
rs.addnew
rs("NewsName")=trim(Request.Form("NewsName"))
rs("Content")=Request.Form("Content")
GroupIdName=split(Request.Form("GroupID"),"┎╂┚")
rs("GroupID")=GroupIdName(0)
rs("Exclusive")=trim(Request.Form("Exclusive"))
if Request.Form("ChildFlag")=1 then
rs("ChildFlag")=Request.Form("ChildFlag")
rs("Sequence")=999
else
rs("ChildFlag")=0
rs("Sequence")=99
end if
rs("AddTime")=now()
rs("UpdateTime")=now()
end if
if Result="Modify" then
sql="select * from NwebCn_News where ID="&ID
rs.open sql,conn,1,3
rs("NewsName")=trim(Request.Form("NewsName"))
rs("Content")=Request.Form("Content")
GroupIdName=split(Request.Form("GroupID"),"┎╂┚")
rs("GroupID")=GroupIdName(0)
rs("Exclusive")=trim(Request.Form("Exclusive"))
if Request.Form("ChildFlag")=1 then
rs("ChildFlag")=Request.Form("ChildFlag")
rs("Sequence")=100
else
rs("ChildFlag")=0
end if
rs("UpdateTime")=now()
end if
rs.update ----------运行的时候这行报错：对象关闭时,不允许操作
rs.close
set rs=nothing
response.write "<script language=javascript> alert('成功编辑新闻信息！');changeAdminFlag('新闻信息列表');location.replace(NewsList.asp');</script>"
else
if Result="Modify" then
set rs = server.createobject("adodb.recordset")
sql="select * from NwebCn_News where ID="& ID
rs.open sql,conn,1,1
NewsName=rs("NewsName")
GroupID=rs("GroupID")
Exclusive=rs("Exclusive")
Content=rs("Content")
ChildFlag=rs("ChildFlag")
rs.close
set rs=nothing
end if
end if
end sub
%>
--------------------------
高手帮忙看下，是什么原因，感谢。。
<%
dim Result
Result=request.QueryString("Result")
dim ID,NewsName,Content
dim GroupID,GroupIdName,Exclusive,ChildFlag,Source
ID=request.QueryString("ID")
call NewsEdit()
%>
有Result=Request.QueryString("Result")这句的。虽然添加不了，但可以修改，就是说Modify的值是可以取到的，那为什么不能添加呢？下面这句应该正确吧？<form action="NewsEdit.asp?Action=SaveEdit&Result=<%=Result%>&ID=<%=ID%>">

Answer 1

楼上说的对，不要偷懒！ 错误原因在于你传来的result 值 既不是add 也不是Modify 所以数据库根本没有打开，你就update 肯定出错的

你根本没有给Result赋值桐搜 ？袜轮顷？？？告陆

Answer 2

不要偷懒嘛~！！！
把rs.update那三行分别放到那两裤羡袜个块后面
<%
sub NewsEdit()
dim Action,rsCheckAdd,rs,sql
Action=request.QueryString("Action")
if Action="SaveEdit" then
set rs = server.createobject("adodb.recordset")
if len(trim(request.Form("NewsName")))<1 then
response.write ("<script language=javascript> alert('新闻标题为必填项目！');history.back(-1);</script>")
response.end
end if
if Result="Add" then
sql="select * from NwebCn_News"
rs.open sql,conn,1,3
rs.addnew
rs("NewsName")=trim(Request.Form("NewsName"))
rs("Content")=Request.Form("Content")
GroupIdName=split(Request.Form("GroupID"),"┎╂┚")
rs("GroupID")=GroupIdName(0)
rs("Exclusive")=trim(Request.Form("Exclusive"))
if Request.Form("ChildFlag")=1 then
rs("ChildFlag")=Request.Form("ChildFlag")
rs("Sequence")=999
else
rs("ChildFlag")=0
rs("Sequence")=99
end if
rs("AddTime")=now()
rs("UpdateTime")=now()
rs.update
rs.close
set rs=nothing

end if
if Result="Modify" then
sql="select * from NwebCn_News where ID="&ID
rs.open sql,conn,1,3
rs("NewsName")=trim(Request.Form("NewsName"))
rs("Content")=Request.Form("Content")
GroupIdName=split(Request.Form("GroupID"胡激),"┎╂┚")
rs("GroupID")=GroupIdName(0)
rs("Exclusive")=trim(Request.Form("Exclusive"))
if Request.Form("ChildFlag")=1 then
rs("ChildFlag")=Request.Form("ChildFlag")
rs("Sequence")=100
else
rs("ChildFlag")=0
end if
rs("UpdateTime")=now()
rs.update
rs.close
set rs=nothing
end if

response.write "<script language=javascript> alert('成功编辑新闻信息！');changeAdminFlag('新闻信息列表');location.replace(NewsList.asp'派纳);</script>"
else
if Result="Modify" then
set rs = server.createobject("adodb.recordset")
sql="select * from NwebCn_News where ID="& ID
rs.open sql,conn,1,1
NewsName=rs("NewsName")
GroupID=rs("GroupID")
Exclusive=rs("Exclusive")
Content=rs("Content")
ChildFlag=rs("ChildFlag")
rs.close
set rs=nothing
end if
end if
end sub
%>

补充：看了你代码，你只取了Action，没取Result啊。。。。
if Result="Add" then
在这句之前没有Result的取值语句。在前面加上一句
Result=Request.QueryString("Result")

Answer 3

if 真复杂，你整理一下估计就知道怎么错了，橡穗仔估计是这种情况了

if ****
set rs=
。。。梁汪。。
end if
rs.update
rs.close

rs相族竖关语句写到一块就行了

Answer 4

当 Result 不是那液好两个值时 Rs就没被打开 是不是？

最好把
rs.update
rs.close
分闹春铅别放到 IF 块里面森岩去

Answer 5

测测试网页的时候要关闭数据库的编辑页面