把相关代码粘贴一下

dim visitors
whichfile=server.mappath("2count/count.txt")
Set fs = CreateObject("Scripting.FileSystemObject")  就是提示这行出错
Set thisfile = fs.OpenTextFile(whichfile)

visitors=thisfile.readline
thisfile.close

countlen=len(visitors)
for i=1 to countlen
response.write "<img src=2count/" & mid(visitors,i,1) & ".gif></img>"
next

visitors=visitors+1
Set out=fs.CreateTextFile(whichfile)
out.WriteLine(visitors) 
out.close

set fs=nothing

Set fs = CreateObject("Scripting.FileSystemObject")

改为：

Set fs =Server.CreateObject("Scripting.FileSystemObject")

错误类型：
Server 对象, ASP 0178 (0x80070005)
检查权限时，对 Server.CreateObject 的调用失败。拒绝对此对象的访问。

Scripting.FileSystemObject 组件没有权限使用。
你找一下对应的dll文件，是否有足够的权限访问使用。