加我扣扣4479812，你的程序我已调试成功。 这上面说话不太方便。
---------------------------------------------------------------
第一个问题你的FSO可能没注册，你在“开始”---“运行”中输入“regsvr32.exe %windir%/system32/scrrun.dll”然后回车，重新注册一下FSO控件。
第二段程序代码有几个拼写错误：修改后的程序代码如下：
------------------------代码开始-------------------------
无标题文档 <%
dim fso,ts,counter'声明变量
'建立一个服务器文件存取组件的实例,名称为:FSO
set fso=server.createobject("scripting.filesystemobject")
'建立一个可以打开的文本文件的方法
'这个文本文件只读,如果没有这个文件,就建立
set ts=fso.opentextfile(server.mappath("counter.txt"),1,true)
'从COUNTER.TXT这个文件里取出值,赋给COUNTER
'判断文本文件是否为空,(如果超出文件尾,就是空)
if not ts.atendofstream then'如果没有到达文本文件夹的结尾说明有数据
counter=ts.readline'给里面的数据赋值给COUNTER
else
counter=1'没有数据，说明是刚刚建立的，那么，给COUNTER个初值
end if
ts.close
set ts=nothing
'如果第一个访问了,COUNTER就有初值,是1
'然后再将1写入COUNTER.TXT这个文本文件就行啦
'现在我要写入文件，那么参数就是2
set ts2=fso.opentextfile(server.mappath("counter.txt"),2,true)
'写入之前，做个累计即可
counter=counter+1
ts2.write(counter)'写入COUNTER最新的统计值
ts2.close
set ts2=nothing
response.write"目前有"&counter&"个访问者"
set fso=nothing
%>
-------------------代码结束--------------------------------
