asp连接oracle，在 movenext 时才出错 80004005

最新推荐文章于 2024-08-11 22:29:54 发布
原创 最新推荐文章于 2024-08-11 22:29:54 发布 · 520 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#iis #asp #oracle

本文分享了一次程序运行异常的经历，通过重新分配Windows TEMP文件夹的访问和修改权限给IUSER，成功解决了问题。提醒开发者注意权限设置对程序运行的影响。

程序之前能正常使用，不知道为什么突然不行了

查了一大堆文章，都没解决

后来想想，是执行过一个BAT，清除日志，打开看看，发现里面有个删除 windows 下 temp文件夹的操作

好象以前对这个文件夹做过什么操作的

然后把temp文件夹的访问、修改权限加给IUSER，故障解决

shongyu
关注
ASP实现注册邮箱激活代码范例 [转载需保留出处 - 青岛星网]
03-31
ASP实现注册邮箱激活代码范例 [转载需保留出处 - 青岛星网] ASP实现注册邮箱激活代码范例：http___www.qdxw.net_xwhtml_425.html.rar
php+access留言板
12-02
php+access留言板 可以去lichao032100.313424.cn 看看
【Docker报错解决】Docker.Installer.InstallWorkflow.MoveNext() 启用或关闭windows功能为空，已解决
qq_43473997的博客
08-11 5458
docker异常中断，安装报错解决
怎样用ASP统计查询记录的总数--记录集对象的方法
06-05 2099
怎样用ASP统计查询记录的总数用ASP实现的一个小检索系统,要求每次对检索到的记录进行统计,怎样实现 生成记录集，之后统计记录数。如：objrs.open sql,conn,1,1之后统计记录的时候就这样：objrs.recordcount -----------------------------------------------------------------------------关于
ASP常用命令
思科网络
03-25 1603
常用命令： rs.movenext 将记录指针从当前的位置向下移一行 rs.moveprevious 将记录指针从当前的位置向上移一行 rs.movefirst 将记录指针移到数据表第一行 rs.movelast 将记录指针移到数据表最后一行 currentpage 第几页 rs.absoluteposition=N 将记录指针移到数据表第N行 rs.absolutepage=N 将
asp的rs的循环语句在php的处理办法
dieqi9270的博客
06-17 247
asp中的语句rs.movenext的语句，要取20行数据，它是这样的： <% dim conn,rs, sqlset conn=getconn()set rs=getRs() sql = "select top 20 * from [table] order by id desc"n = 0rs.open sql,conn,3,3while not rs.eof n ...
asp recordset 教程
asp、.net专栏
06-08 4177
ASP入门基础教程-Recordset 对象　一、Recordset 对象简述　　Recordset 对象表示的是来自基本表或命令执行结果的记录全集。在任何情况下，该对象所指的当前记录均为集合内的单条记录。使用 Recordset 对象可以操作来自提供程序的数据，通过该对象几乎可以对所有数据进行操作。所有 Recordset 对象均使用记录（行）和字段（列）进行构造。Recordset 对象实
MovePrevious和MoveNext的用法
yanhuaju9的专栏
06-05 2471
Private Sub Command2_Click(Index As Integer)Dim n As Integern = Index  Select Case n    Case 0          rs.MoveFirst        Case 1                      上一个          rs.MovePrevious          If rs.BO
ASP与相关数据库技术指南
05-19
在处理数据库操作时，ASP还支持事务处理，确保一系列数据库操作要么全部成功，要么全部失败。此外，ASP的错误处理机制可以帮助开发者捕获和处理可能出现的问题，提高程序的健壮性。 ```vbscript On Error Resume ...
.Net 面试题整理(一)
热门推荐
fuchenxuan blog
05-22 1万+
.Net 面试题整理(一) 好久的资料了，拿出来分享给大家，主要是记录一些面试题整理。Main函数是什么？在程序中使用Main函数有什么需要注意的地方？ Q：程序的入口函数！函数名字不能改变；一个程序中有且只有一个Main函数。 CLR是什么？程序集是什么？当运行一个程序集的时候，CLR做了什么事情？ Q:Common Language RunTime 公共语言运行时。 编译后代码的集合
<script language="JavaScript"> <!-- javascript:window.history.forward(1); //--> </script> <style type="text/css"> <!-- body { background-image: url(images/11-07.gif); } .style2 { font-family: "黑体"; font-size: 20px; } .style4 { font: lighter bold 12px "Arial", "Helvetica", "sans-serif"; color: #333333; } --> </style> <html> <link href="images/cssexamin.css" rel="stylesheet" type="text/css"> <title>考试成绩信息</title> <% Set conn=server.createObject("ADODB.Connection") strconnection="DRIVER={microsoft odbc for oracle};SERVER=//10.224.141.134:1521/FP2DB;UID=f2cim;PWD=eagle;" conn.open strconnection function sqlstr(data) sqlstr="'" & replace(data,"'","''") & "'" end function %> <body class="banquan" background="images/11-07.gif"> <div id="layertitle" style="position:absolute; width:100%; height:300px; z-index:2; top: 1px;"> <% Dim sqlMain sqlMain = " WITH table1 AS ( " & _ " SELECT DISTINCT no, eqptype, diff " & _ " FROM certify_tb_3monthlimit " & _ " WHERE no LIKE '%V%' AND diff > '60' " & _ " ), table2 AS ( " & _ " SELECT DISTINCT a.eqptype, b.item " & _ " FROM certify_tb_type_mapping a " & _ " JOIN certify_tb_item_mapping b ON a.objid = b.objid " & _ " ), table3 AS ( " & _ " SELECT DISTINCT a.empno, b.COURSE_NAME " & _ " FROM mfg_tb_newtraining_final_result a " & _ " JOIN mfg_tb_newtraining_course b ON a.COURSE_ID = b.COURSE_ID " & _ " WHERE a.WR_CERTIFY = '1' " & _ " AND a.GROUP_NAME <> 'Basic' " & _ " AND a.empno LIKE '%V%' " & _ " ) " & _ " SELECT DISTINCT a.no, b.item " & _ " FROM table1 a " & _ " JOIN table2 b ON a.eqptype = b.eqptype " & _ " JOIN table3 c ON b.item = c.COURSE_NAME AND a.no = c.empno " Dim rsMain Set rsMain = conn.Execute(sqlMain) If Not rsMain.EOF Then Do While Not rsMain.EOF Dim noValue, itemValue noValue = rsMain("no") itemValue = rsMain("item") ' 更新 mfg_tb_newtraining_final_result 表 Dim sqlUpdate sqlUpdate = " UPDATE mfg_tb_newtraining_final_result " & _ " SET WR_CERTIFY = '0' " & _ " WHERE empno = '" & noValue & "' " & _ " AND COURSE_ID IN ( " & _ " SELECT COURSE_ID " & _ " FROM mfg_tb_newtraining_course " & _ " WHERE COURSE_NAME = '" & itemValue & "' " & _ " ) " On Error Resume Next conn.Execute(sqlUpdate) If Err.Number <> 0 Then Response.Write "更新失败: " & noValue & " - " & itemValue & "，错误: " & Err.Description & "<br/>" Err.Clear Else Response.Write "更新成功: " & noValue & " - " & itemValue & "<br/>" End If On Error GoTo 0 rsMain.MoveNext Loop Else Response.Write "没有符合条件的数据需要更新。<br/>" End If rsMain.Close Set rsMain = Nothing %> </div> </body> </html> 这个代码再执行时在 76行报 对象关闭无法操作
10-30
你提供的代码在执行时提示 **“对象关闭无法操作”**，这个错误通常出现在你试图操作一个 **已经关闭或释放的 ADO 对象（如 `Recordset` 或 `Connection`）**。 --- ### 问题定位 你提到的 **第 76 行** 应该是这...
<script language="JavaScript"> <!-- javascript:window.history.forward(1); //--> </script> <style type="text/css"> <!-- body { background-image: url(images/11-07.gif); } .style2 { font-family: "黑体"; font-size: 20px; } .style4 { font: lighter bold 12px "Arial", "Helvetica", "sans-serif"; color: #333333; } --> </style> <html> <link href="images/cssexamin.css" rel="stylesheet" type="text/css"> <title>考试成绩信息</title> <% Set conn=server.createObject("ADODB.Connection") strconnection="DRIVER={microsoft odbc for oracle};SERVER=//10.224.141.134:1521/FP2DB;UID=f2cim;PWD=eagle;" conn.open strconnection function sqlstr(data) sqlstr="'" & replace(data,"'","''") & "'" end function %> <body class="banquan" background="images/11-07.gif"> <div id="layertitle" style="position:absolute; width:100%; height:300px; z-index:2; top: 1px;"> <% Dim sqlMain sqlMain = " WITH table1 AS ( " & _ " SELECT DISTINCT no, eqptype, diff " & _ " FROM certify_tb_3monthlimit " & _ " WHERE no LIKE '%V%' AND diff > '60' " & _ " ), table2 AS ( " & _ " SELECT DISTINCT a.eqptype, b.item " & _ " FROM certify_tb_type_mapping a " & _ " JOIN certify_tb_item_mapping b ON a.objid = b.objid " & _ " ), table3 AS ( " & _ " SELECT DISTINCT a.empno, b.COURSE_NAME " & _ " FROM mfg_tb_newtraining_final_result a " & _ " JOIN mfg_tb_newtraining_course b ON a.COURSE_ID = b.COURSE_ID " & _ " WHERE a.WR_CERTIFY = '1' " & _ " AND a.GROUP_NAME <> 'Basic' " & _ " AND a.empno LIKE '%V551773%' " & _ " ) " & _ " SELECT DISTINCT a.no, b.item " & _ " FROM table1 a " & _ " JOIN table2 b ON a.eqptype = b.eqptype " & _ " JOIN table3 c ON b.item = c.COURSE_NAME AND a.no = c.empno " Response.Write "SQL: " & sqlMain & "<br/>" Set rsMain = conn.Execute(sqlMain) If Not rsMain.EOF Then Do While Not rsMain.EOF Dim noValue, itemValue noValue = rsMain("no") itemValue = rsMain("item") ' 更新 mfg_tb_newtraining_final_result 表 Dim sqlUpdate sqlUpdate = " UPDATE mfg_tb_newtraining_final_result " & _ " SET WR_CERTIFY = '0' " & _ " WHERE empno = '" & noValue & "' " & _ " AND COURSE_ID IN ( " & _ " SELECT COURSE_ID " & _ " FROM mfg_tb_newtraining_course " & _ " WHERE COURSE_NAME = '" & itemValue & "' " & _ " ) " On Error Resume Next conn.Execute(sqlUpdate) If Err.Number <> 0 Then Response.Write "更新失败: " & noValue & " - " & itemValue & "，错误: " & Err.Description & "<br/>" Err.Clear Else Response.Write "更新成功: " & noValue & " - " & itemValue & "<br/>" End If On Error GoTo 0 rsMain.MoveNext Loop Else Response.Write "没有符合条件的数据需要更新。<br/>" End If rsMain.Close Set rsMain = Nothing %> </div> </body> </html> 我现在该了 你在检查一下
最新发布
10-30
你已经根据之前的建议进行了修改，将原来的 `rsq` 改为了 `rsMain`，并且在遍历、更新和关闭 Recordset 的过程中使用了正确的变量名。 ✅ **从你提供的代码来看，你并没有提前关闭 `rsMain`，也没有提前释放它，...
效率极高的分类算法
blotemj.blog.youkuaiyun.com
07-01 2144
效率极高的分类算法 　　在网站建设中，分类算法的应用非常的普遍。在设计一个电子商店时，要涉及到商品分类；在设计发布系统时，要涉及到栏目或者频道分类；在设计软件下载这样的程序时，要涉及到软件的分类；如此等等。可以说，分类是一个很普遍的问题。 　　我常常面试一些程序员，而且我几乎毫无例外地要问他们一些关于分类算法的问题。下面的举几个我常常询问的问题。你认为你可以很轻松地回答么^_^. 　　1、分类...
Asp错误信息总汇
5410的专栏
01-05 963
1.错误信息 Microsoft OLE DB Provider for ODBC Drivers error 80004005 [Microsoft][ODBC Microsoft Access 97 Driver] The Microsoft Jet database engine cannot open the file (unknown). It is already opened
asp记录集指针操作
weixin_34090643的博客
03-25 581
rs.movenext 将记录指针从当前的位置向下移一行 rs.moveprevious 将记录指针从当前的位置向上移一行 rs.movefirst 将记录指针移到数据表第一行 rs.movelast 将记录指针移到数据表最后一行 rs.absoluteposition=N 将记录指针移到数据表第N行 rs.absolutepage=N 将记录指针移到第N页的第一行 rs.pagesi...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值