当前位置：首页 → 问答吧 → asp中Microsoft VBScript 运行时错误错误 '800a0046' 错误

asp中Microsoft VBScript 运行时错误错误 '800a0046' 错误

时间：2011-06-24

来源：互联网

运行asp代码出现错误如下：
Microsoft VBScript 运行时错误错误 '800a0046'

没有权限

/asptest/writefso.asp，行 13

源代码如下：
<%
Set fs=server.CreateObject("scripting.FileSystemObject")
Set tfile=fs.createtextfile("C:\Documents and Settings\Administrator\桌面\aa.txt")
tfile.write("这是测试的字符串")
tfile.writeline()
tfile.writeline("这是测试写入字符")
tfile.write("这是测试上句代码是否换行了。")
tfile.writeblanklines(5)
tfile.write("这是测试上句换行效果")
tfile.close()

%>
在网上找的说是设置的iis和文件根目录的权限问题，已经把根目录设置为everyone了，可还不行。请各位高手看一下解决

作者: yangxiaonawzy 发布时间: 2011-06-24

你要写C盘的文件，当然没权限了。你只能写你的IIS设置的主目录里面的文件夹

作者: lzp4881 发布时间: 2011-06-24

那我将他写的文件的位置给换一下：
<%
Set fs=server.CreateObject("scripting.FileSystemObject")
Set tfile=fs.createtextfile(server.MapPath("/asptest/")) tfile.write("这是测试的字符串")
tfile.writeline()
tfile.writeline("这是测试写入字符")
tfile.write("这是测试上句代码是否换行了。")
tfile.writeblanklines(5)
tfile.write("这是测试上句换行效果")
tfile.close()
%>
还是出错啊

作者: yangxiaonawzy 发布时间: 2011-06-24

对应的文件夹没有读写的权限。
右键所在文件夹，属性-安全-添加EVERYONE，给一个完全控制的权限。

作者: tcwsyt 发布时间: 2011-06-24

建议路径中最好不要用中文!

作者: yaxiya 发布时间: 2011-06-24

我已经把文件夹的权限给设置成everyone了，还不行

作者: yangxiaonawzy 发布时间: 2011-06-24

大家帮我看看！！谢谢了

作者: yangxiaonawzy 发布时间: 2011-06-24

XP下测试的话用命令行改权限. 假设c:\abc\xxx.txt
命令行 cacls "c:\abc\*.*" /T /E /G Everyone:F

作者: hookee 发布时间: 2011-06-24