没有冰沙机怎么做冰沙:一个关于asp创建对象的问题

<%
CountFile=Server.MapPath("imgcounter.txt")
Set FileObject=Server.CreateObject("Scripting.FileSystemObjectxldf")
Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)
counter=Out.ReadLine
Out.Close
SET FileObject=Server.CreateObject("Scripting.FileSystemObjectxldf")
Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)
Application.lock
counter= counter + 1
Out.WriteLine(counter)
Application.unlock
countlen=len(counter)
if countlen<8 then
for i=1 to 8-countlen
response.write"<img src='image2/0.gif'>"
next
End if
for i=1 to countlen
count=mid(counter,i,1)
response.write"<img src='image2/"& count &".gif'>"

next
Out.Close
%>

程序报错

服务器对象 错误 'ASP 0177 : 800401f3'

Server.CreateObject 失败

/index.asp，行139

我觉得应该是SET FileObject=Server.CreateObject("Scripting.FileSystemObjectxldf")
这个的问题,可是怎么解决呢?我们的100多个网站都是这个对象