查看完整版本: 一个统计在线人数的问题，急！！

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

global.asp的内容  
<Script  Language=Vbscript  RUNAt=Server>  
Sub  Application_OnStart  
       Application.Lock  
     set  FSO  =  Server.CreateObject("Scripting.FileSystemObject")  
     file=Server.MapPath("counter.txt")  
     if  FSO.FileExists(file)  =  true  then  
     set  CTO    =  FSO.OpenTextFile(file,1,false)  
     Application("Counter")  =  CTO.ReadLine   
     else  
     Set  CTO  =  FSO.CreateTextFile(file,false,flase)  
     Application("Counter")  =  1  
     end  if         
     CTO.close  
       Application.Unlock  
End  Sub  
Sub  Session_OnStart  
       Session.Timeout  =  1  
       Application.Lock  
       Application("curUsers")=Application("curUsers")+1  
       Application("Counter")  =  Application("Counter")+1  
       Application.Unlock  
End  Sub  
Sub  Session_OnEnd  
       Application.Lock  
       Application("curUsers")=Application("curUsers")-1  
       Application.Unlock  
End  Sub  
Sub  Application_OnEnd  

     set  FSO=Server.CreateObject("Scripting.FileSystemObject")  
     set  CTO=FSO.OpenTextFile(file,2,false)  
           CTO.writeline  Application("Counter")      
     CTO.close   
End  Sub  
</script>

你的FSO组件是否成功,你可以另外建立一个网页写入下面的代码  
<%  
     set  FSO=Server.CreateObject("Scripting.FileSystemObject")  
     set  CTO=FSO.OpenTextFile(file,2,false)  
           CTO.writeline  Application("Counter")  
     CTO.close   
%>  

看能否成功,如果不能成功,则代表你的FSO组件不能使用,这样就无法写入文件

无为什么我们都用
global.asa 文件呢？
你们却用  global.asp呢？