0

尝试在此处打开第二个文件进行写入时，我一直被拒绝许可。我知道第一个文件可以正常打开，因为我可以将它写到屏幕上，并且我已经为用户设置了写权限。这么简单，我都被它蒙蔽了？？？

css_org = server.MapPath("style.css")
css_new = server.MapPath("new_style.css")           
Set fso = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1 
Const ForWriting = 2        
Set objFile1 = fso.OpenTextFile (css_org, ForReading)
Set objFile2 = fso.OpenTextFile (css_new, ForWriting, True)  ' 500 error on this line
4

2 回答 2

1

您的代码似乎是 ASP，因此您需要将写入权限授予运行代码的用户（通常是运行 IIS 的服务帐户），而不是登录到您的 Web 应用程序的用户。

于 2013-09-18T17:17:08.453 回答
0

您是否尝试过在代码之外写入文件以查看用户上下文是否可以写入？您的代码可能不是问题。如果您尝试使用记事本对其进行写入，您可能会收到更多信息性错误消息。此外，您可以尝试使用 SysInternals 的“进程资源管理器”——他们的“查找句柄”功能来测试该文件以查看是否有某个进程锁定它。

于 2013-09-18T17:15:12.323 回答