一个统计在线人数的问题，急！！

 1<script language="Vbscript" runat="Server">   
 2Sub Application_OnStart   
 3Application.Lock   
 4set FSO = Server.CreateObject("Scripting.FileSystemObject")   
 5file=Server.MapPath("counter.txt")   
 6if FSO.FileExists(file) = true then   
 7set CTO = FSO.OpenTextFile(file,1,false)   
 8Application("Counter") = CTO.ReadLine   
 9else   
10Set CTO = FSO.CreateTextFile(file,false,flase)   
11Application("Counter") = 1   
12end if   
13CTO.close   
14Application.Unlock   
15End Sub   
16Sub Session_OnStart   
17Session.Timeout = 1   
18Application.Lock   
19Application("curUsers")=Application("curUsers")+1   
20Application("Counter") = Application("Counter")+1   
21Application.Unlock   
22End Sub   
23Sub Session_OnEnd   
24Application.Lock   
25Application("curUsers")=Application("curUsers")-1   
26Application.Unlock   
27End Sub   
28Sub Application_OnEnd   
29  
30set FSO=Server.CreateObject("Scripting.FileSystemObject")   
31set CTO=FSO.OpenTextFile(file,2,false)   
32CTO.writeline Application("Counter")   
33CTO.close   
34End Sub   
35</script>

1   
2set FSO=Server.CreateObject("Scripting.FileSystemObject")   
3set CTO=FSO.OpenTextFile(file,2,false)   
4CTO.writeline Application("Counter")   
5CTO.close