高分求解一个小疑问

2007-09-13 10:34:27 132 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

数学建模竞赛实战：从随机规划到Python求解的完整框架解析数学建模是将现实世界复杂问题抽象为数学语言，并利用计算工具求解的关键技术。其核心原理在于通过建立变量、约束与目标函数之间的数学关系，构建可量化分析的模型。在工程实践中，数学建模的价值在于为资源分配、路径优化、需求预测等决策问题提供科学依据。尤其在处理带有不确定性的优化问题时，随机规划与样本平均近似（SAA）等方法展现出强大能力。本文以一次典型的数学建模竞赛实战为背景，深入剖析了从问题抽象、模型构建（如混合整数非线性规划MINLP）到算法实现（结合SARIMA预测与Bootstrap方法生成场景）的完整技术链阅读详情

rs1.open ......,conn,1,３
rs1("")=request("")
rs1.update

response.Redirect "xxx.asp"

rs1.close
set rs1=nothing
conn.close
set conn=nothing

response.Redirect "xxx.asp"后面的关闭操作到底有没有生效？如果不起作用，该如何修改程序呢？放在response.Redirect "xxx.asp"之前是肯定不行的，程序会出错。

...全文

浪潮“源”AI大模型如何求解数学应用题浪潮“源”AI大模型如何求解数学应用题阅读详情

freeweb

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

freeweb 2007-09-13

打赏
举报

再次感谢一下！

freeweb 2007-09-13

打赏
举报

问题解决！！！

总结一下：

１、记录集关闭操作必须放置在response.Redirect之前，才有可能执行。
２、在关闭记录集之前，必须判断一下：rs.state<>0

多谢各位朋友的热心帮助！让我更正一个大问题～结贴！！！

littlelam 2007-09-13

打赏
举报

if IsObject(rs1) then
rs1.close
set rs1=nothing
end if
if IsObject(conn) then
conn.close
set conn=nothing
end if

toury 2007-09-13

打赏
举报

直接用SQL吧

sql="UPDATE 表 SET 某字段='"&request("传值")&"' WHERE ...."
conn.execute sql
if conn.state<>0 then conn.close
set conn=nothing

response.Redirect "xxx.asp"

toury 2007-09-13

打赏
举报

"这样的方式还是会出错，Insert_log 是SQL在存储过程，插入日志操作...."
---------------------------------------------------------------------
终于明白你的意思了.

我分析,这个错误是由于你用ADO和SQL语句同时操作一个表的更新才产生的;你可以做个测试:用ADO的rs记录集打开一个表,然后用conn.execute "..."语句去更新这个表,接下来你rs.close这个记录集, 这样的环境ADO是一定要报错的;

解决办法:不要交叉操作一个表的更新,或者用RECORDSET,用后关掉;或者直接用SQL语句

jingxiaoping 2007-09-13

打赏
举报

看来问题原因不是出在跳转页面上面了。

toury 2007-09-13

打赏
举报

不好意思,打错字了,更正:

这样处理:
(1): if rs1.state<>0 then rs1.close
或
(2):
rs1.open ......,conn,1,３
rs1("")=request("")
rs1.update

sql="UPDATE 表 SET 某字段='"&request("传值")&"' WHERE ...."
conn.execute sql
if conn.state<>0 then conn.close
set conn=nothing

response.Redirect "xxx.asp"

freeweb 2007-09-13

打赏
举报

set rs3=server.CreateObject("adodb.recordset")
Sqlstr3="exec Insert_log '"&session("Zovy_user")&"','"&now()&"','添加网络广告 - "&request("Title")&"'"
rs3.open Sqlstr3,conn,1,1
response.Write "<script>alert('网站广告添加成功！');window.location='Admin_GG.asp';</script>"
rs3.close
set rs3=nothing

这样的方式还是会出错，Insert_log 是SQL在存储过程，插入日志操作
错误代码：
ADODB.Recordset (0x800A0E78)
对象关闭时，不允许操作。

toury 2007-09-13

打赏
举报

[都会出现以下错误：
ADODB.Recordset (0x800A0E78)
对象关闭时，不允许操作。]
----------
那是由于 rs1根本没打开,所以你在rs1.close时报错

这样处理:
(1): if rs1.close<>0 then rs1.close
或
(2):
rs1.open ......,conn,1,３
rs1("")=request("")
rs1.update

sql="UPDATE 表 SET 某字段='"&request("传值")&"' WHERE ...."
conn.execute sql
conn.close
set conn=nothing

response.Redirect "xxx.asp"

freeweb 2007-09-13

打赏
举报

不过不理解的就是你的response.redirect放到最下面为什么会出错。

我怀疑是数据库在更新时候有一个时间延迟，所以关闭数据库过快，可能会出现这样的问题。我用的数据库是SQL　2000 　几乎都会出现上述错误。

freeweb 2007-09-13

打赏
举报

闷了很久的一个小问题，那位兄弟答复一下。在线等候　立马结贴！

jingxiaoping 2007-09-13

打赏
举报

你可以改成

rs1.open ......,conn,1,３
rs1("")=request("")
rs1.update

response.write "<script>location.href='xxx.asp';</script>"

rs1.close
set rs1=nothing
conn.close
set conn=nothing

这样的话下面的语句是会执行的。
不过不理解的就是你的response.redirect放到最下面为什么会出错。

freeweb 2007-09-13

打赏
举报

多谢楼上回答，response.Redirect "xxx.asp"　放到最后，会出问题的。我经过反复测试过。

都会出现以下错误：
ADODB.Recordset (0x800A0E78)
对象关闭时，不允许操作。

孟子E章 2007-09-13

打赏
举报

response.Redirect "xxx.asp"

放最后

高分求解一个小疑问

相关推荐