<%
Function fcounts(fcounterFile)
Dim objFSO, objTS
Application.Lock
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath(fcounterFile), 1, True)
If Not objTS.AtEndOfStream Then '检查是否到达文件结尾
fcounts = CLng(objTS.ReadLine)
End If
fcounts = fcounts + 1
objTS.Close
Set objTS = objFSO.OpenTextFile(Server.MapPath(fcounterFile), 2, True)
objTS.WriteLine(fcounts)
objTS.Close
Application.Unlock
End Function
If Session("fcounter") = Empty Then
Session("fcounter") = fcounts("fcounter.txt")
End If

%>

我首页的一段统计在线人数的代码如上··
结果在我这台机器上··发生页面错误··说·
Set objTS = objFSO.OpenTextFile(Server.MapPath(fcounterFile), 2, True)
有错误

而在另一台机器上·则没有毛病··
怎么搞的？
是不是我机器的设置上有问题？


可同时那页还有个访问人数统计共多少人访问过··
这个就可以执行··也是FSO的阿？？