asp用fso复制文件到另一个文件夹下在上传到服务器上执行事出现权限问题。
Server 对象 错误 'ASP 0178 : 80070005'
Server.CreateObject 访问错误
/shop/copyfile.asp,行 15
检查权限时,对 Server.CreateObject 的调用失败。拒绝对此对象的访问。
源代码:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>睿方CMS模板商城</title>
<link href="skin/style.css" rel="stylesheet" type="text/css" />
</head>
<body>
<%=CopyMyFolder("Database","db") %>
</body>
</html>
<%
Function CopyMyFolder(FolderName,FolderPath)
set fso=server.createobject("scripting.filesystemobject")
if fso.folderexists(server.mappath(FolderName)) Then'检查原文件夹是否存在
if fso.folderexists(server.mappath(FolderPath)) Then'检查目标文件夹是否存在
fso.copyfolder FolderName,FolderPath
Else '目标文件夹如果不存在就创建
CreateNewFolder = Server.Mappath(FolderPath)
fso.CreateFolder(CreateNewFolder)
fso.copyfolder FolderName,FolderPath
End if
CopyMyFolder="复制文件夹["&server.mappath(FolderName)&"]到["&server.mappath(FolderPath)&"]成功!"
Else
CopyMyFolder="错误,原文件夹["&FolderName&"]不存在!"
End If
set fso=nothing
End Function
%>
在本地测试是可以执行的,服务器上文件夹属性跟msvbvm60.dll权限都改过了,还是不行是什么问题??
[解决办法]
scripting.filesystemobject 是对应 scrrun.dll 吧, 是不是对此做了特别的设置