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

答案:6 悬赏:50 手机版

解决时间 2021-01-29 07:23

提问者网友：谁的错
2021-01-28 06:50

<% 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%>">

最佳答案

五星知识达人网友：想偏头吻你
2021-01-28 07:55

不要偷懒嘛~！！！ 把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")

全部回答

1楼网友：行雁书
2021-01-28 12:19

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

2楼网友：长青诗
2021-01-28 11:35

可以加个 on Error resume next

3楼网友：动情书生
2021-01-28 10:36

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

4楼网友：爱难随人意
2021-01-28 10:17

当 Result 不是那两个值时 Rs就没被打开是不是？最好把 rs.update rs.close 分别放到 IF 块里面去

5楼网友：从此江山别
2021-01-28 08:39

你好！ if 真复杂，你整理一下估计就知道怎么错了，估计是这种情况了 if **** set rs= 。。。。。 end if rs.update rs.close rs相关语句写到一块就行了打字不易，采纳哦！

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！