<%
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 out=fs.CreateTextFile(whichfile)有错，为什么！提示没有权限，是不是我的服务器还要装一组件？