asp用fso复制文件到另一个文件夹下在上传到服务器上执行事出现权限有关问题

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 吧, 是不是对此做了特别的设置

asp用fso复制文件到另一个文件夹下在上传到服务器上执行事出现权限有关问题

相关推荐