UC知道高手帮我看看我的代码那里错了？0x80004005错误
来源：百度知道 编辑：UC知道 时间：2024/09/24 05:29:37
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/newstesting.asp" -->
<%
Dim Recordset_hot
Dim Recordset_hot_numRows
Set Recordset_hot = Server.CreateObject("ADODB.Recordset")
Recordset_hot.ActiveConnection = MM_newstesting_STRING
Recordset_hot.Source = "SELECT * FROM news"
Recordset_hot.CursorType = 0
Recordset_hot.CursorLocation = 2
Recordset_hot.LockType = 1
Recordset_hot.Open()
Recordset_hot_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 10
Repeat1__index = 0
Recordset_hot_numRows = Recordset_hot_numRows + Repeat1__numRows
%>
<%
Dim MM_paramName
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepB
<!--#include file="Connections/newstesting.asp" -->
<%
Dim Recordset_hot
Dim Recordset_hot_numRows
Set Recordset_hot = Server.CreateObject("ADODB.Recordset")
Recordset_hot.ActiveConnection = MM_newstesting_STRING
Recordset_hot.Source = "SELECT * FROM news"
Recordset_hot.CursorType = 0
Recordset_hot.CursorLocation = 2
Recordset_hot.LockType = 1
Recordset_hot.Open()
Recordset_hot_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 10
Repeat1__index = 0
Recordset_hot_numRows = Recordset_hot_numRows + Repeat1__numRows
%>
<%
Dim MM_paramName
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepB
实践证明 在关掉DW过一段时间后 程序自动运行正确 虽然不知道是什么原因.....每次都是这样
不能使用 ''；文件已在使用中(80004005)
Microsoft JET Database Engine 错误 '80004005'
不能使用 ''；文件已在使用中。
产生错误可能原因：
1.文件可能正被占用：上传、压缩、打包。
2.可能程序代码中形成了嵌套包含，重复包含的数据库调用文件。
news/left.asp, 第 8 行
先看这个文件的这句