Server.CreateObject 访问错误,对此对象的访问被拒

[jb2008]

服务器对象 错误 'ASP 0178 : 80070005'

Server.CreateObject 访问错误

检查权限时Server.CreateObject 的调用失败。对此对象的访问被拒。

[jb2008]

代码如下，运行一直没出过错，今天却发现了上面的问题。不知从哪里修改这个权限?
<%
CountFile=Server.MapPath("count.txt")
'文件aspconter.txt是用来储存数字的文本文件
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)
counter=Out.ReadLine
'读取计数器文件中的值
Out.Close
'关闭文件
SET FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)
Application.lock
'方法Application.lock禁止别的用户更改计数器的值
counter= counter + 3
'计数器的值增加1
Out.WriteLine(counter)
'把新的计数器值写入文件
Application.unlock
'使用方法Application.unlock后，允许别的用户更改计数器的值
Response.Write("访问人次：")
Response.Write("<font color=red>")
Response.Write(counter)
'把计数器的值传送到浏览器，以红(red)色显示给用户
Response.Write("</font>")
Out.Close
'关闭文件
%>

[zorou_fatal]

看看你的iuser帐户对于你的目录的权限。

[jb2008]

对了，在我自己机上调试没问题，
我用了人家的虚拟主机出现上面的问题.

[captain2651]

我测试过了，在我机子上可以执行，应该是你的虚拟目录的问题，另外，application应该在读文件之前锁定，否则起不到作用

[Jaron]

1、虚拟主机一般IUSR可写的目录是专门指定在一个目录的。
2、有些虚拟主机不支持FSO

你应该是属第一种情况。

[mygoodbuy]

可能你的空间根本就不支持FSO，请先查清楚

[jb2008]

以前一直没问题，今天才发现问题，
的IUSR在哪修改，我与系统管理员联系。