Microsoft VBscript 运行时错误 错误 '800a0046' 没有权限
作者:蛛蛛虎 日期:2010-07-24
解决办法：
一、在开始里运行：regsvr32.exe scrrun.dll ，这是注册FSO组件的命令。（删除fso: 在运行中输入:regsvr32/u scrrun.dll 即可）
二、找到网站目录，对应要删除文件的上级文件夹设置权限，经过我测试“iusr_计算机名”用户，只要设置“修改、读取和运行、列出文件夹目录、读取、写入”为允许就OK。当然设置完全控制当然也是可以的。
三、一般到此问题都能解决。网上还有句关于代码修改的意见：fso.deletefile 文件完整路径,true；这里的true，表示包括只读指令的文件也将被删除！
附删除文件代码：
复制内容到剪贴板
程序代码
程序代码<% ''文件删除函数
function deletefile(filename)
if filename<>"" then
set fso=server.CreateObject("scripting.filesystemobject")
if fso.FileExists(filename) then
fso.DeleteFile filename,true
else
Response.Write "<script>alert(''该文件不存在'');</script>"
end if
end if
end function
%>
function deletefile(filename)
if filename<>"" then
set fso=server.CreateObject("scripting.filesystemobject")
if fso.FileExists(filename) then
fso.DeleteFile filename,true
else
Response.Write "<script>alert(''该文件不存在'');</script>"
end if
end if
end function
%>
调用方法 :
复制内容到剪贴板 程序代码
程序代码<%'删除文件
strfile=server.MapPath("../"+fileName) '注意这个路径
deletefile(strfile) %>
strfile=server.MapPath("../"+fileName) '注意这个路径
deletefile(strfile) %>
[本日志由 蛛蛛虎 于 2010-07-24 09:44 AM 编辑]
上一篇: 把mssql server所有表的所有者改为dbo
下一篇: css中filter:alpha透明度总结
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: 
相关日志:
评论: 2 | 引用: 0 | 查看次数: -
回复
手机视频监控[2010-09-01 02:44 PM | 
| 
| 广东省东莞市 电信| 
| 通过审核]
发表评论