其他文件都可以改 就是ACCESS文件不能覆盖 在等 谁告诉我

[hawl2004]

其他文件都可以改 就是ACCESS文件不能覆盖 谁告诉我怎么回事（自己单独租用的服务器）用CUTEFUP 7。1上传的

服务器提示
Request denied.
Verify that the file or folder exists and that you have the necessary permissions on the server to perform the requested operation

[life360]

数据库被缩死了

[life360]

数据库被锁死了，改一下名字传上去就可以了

[wangwm]

ACCESS数据库在打开的情况下，是不能覆盖的

[zhangxian_gege]

换一个上传的软件工具.或是向空间那边的公司反映情况

[位流]

呵呵，有可能写的程序和我的想法类似。我给你看看我的代码。

<%
option explicit
dim conn, dbname
set conn = nothing
dbname = "db.asp.mdb"
dim maintain '维护
maintain = true
sub openconn
'on error resume next
if maintain then
set conn = createobject("adodb.connection")
'conn.connectionstring = "Driver={Microsoft Access Driver (*.mdb) };dbq=" & server.MapPath(dbname)
conn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath(dbname)
conn.open
if err.number>0 then
set conn = nothing
response.write "数据库错误"
response.end
end if
if isobject(application("conn")) then
application.Lock
set application("conn") = nothing
application.UnLock
end if
else
dim isobj
if isobject(application("conn")) then
if not application("conn") is nothing then
set conn = application("conn")
isobj = true
else
isobj = false
end if
else
isobj = false
end if
if not isobj then
set conn = createobject("adodb.connection")
'conn.connectionstring = "Driver={Microsoft Access Driver (*.mdb) };dbq=" & server.MapPath(dbname)
conn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath(dbname)
conn.open
if err.number>0 then
set conn = nothing
response.write "数据库错误"
response.end
end if
application.lock
set application("conn") = conn
application.unlock
end if
end if
end sub
openconn
sub closeconn
if not maintain then
exit sub
end if
if not conn is nothing then
conn.close
set conn = nothing
end if
end sub
%>