Question

Microsoft VBScript 运行时错误 (0x800A0046) 没有权限: set hf=fso.CreateTextFile(Server.mappath..)

set fso=Server.CreateObject("Scripting.FileSystemObject")
set hf=fso.CreateTextFile(Server.mappath("../Include/Const.asp"),true)
hf.write "<" & "%" & vbcrlf
hf.write "Const SysRootDir = " & chr(34) & ReplaceConstChar(trim(request("SysRootDir"))) & chr(34) & "" & vbcrlf
hf.write "Const SiteDataPath = " & chr(34) & ReplaceConstChar(trim(request("SiteDataPath"))) & chr(34) & "" & vbcrlf
hf.write "Const EnableStopInjection = " & ReplaceConstChar(trim(request("EnableStopInjection"))) & "" & vbcrlf.
修改权限后还是不行。

Answer 1

如果 ../Include/Const.asp 被包含在当前文件,那么在执行到这段代码时,文件是打开状态并且具有写保护.会拒绝对该文件使用写模式打开.
如果不是NTFS权限的问题,应该考虑是不是上述情况引起的.

追问

哦，就是代码本身设置了写保护，拒绝对该文件使用写模式打开？.

追答

不是代码设置了写保护,而是IIS正在使用该文件,IIS是以写锁定的方式打开的文件,所以你以读方式打开文件就可以,以写方式打开就会出错.