网站访问量统计

1 protected void Application_Start(Object sender, EventArgs e)
 2 {
 3     Application("Online") = 0
 4     
 5     string txtFilePath = System.Web.HttpContext.Current.Server.MapPath("/web.DF");
 6     
 7     StreamReader fileStream = new StreamReader(txtFilePath,Encoding.Default);
 8     Application("Counter") = fileStream.ReadToEnd();
 9     fileStream.Close();
10 
11 }
12         
13 protected void Session_Start(Object sender, EventArgs e)
14 {
15     Application.Lock()
16   Application("Online") = int.Parse(Application("Online")) + 1
17   Application("Counter") = int.Parse(Application("Counter")) + 1
18   Application.UnLock()
19   
20 }
21         
22 protected void Session_End(Object sender, EventArgs e)
23 {
24     Application.Lock()
25   Application("Online") = int.Parse(Application("Online")) - 1
26   Application.UnLock()
27   
28 }
29 
30 protected void Application_End(Object sender, EventArgs e)
31 {
32     string txtFilePath = System.Web.HttpContext.Current.Server.MapPath("/web.DF");
33     
34     StreamWriter fileWrite = new StreamWriter(txtFilePath,false,Encoding.Default);
35     fileWrite.Write(Application("Counter"));
36     fileWrite.Close();
37 
38 }

 1 <SCRIPT   Language="vbscript"   RunAt="server">  
 2    
 3   Sub   Application_OnStart  
 4    
 5     'global.asa   一定是放在网站的虚拟根目录下的  
 6     '在根目录下有一个   counter.txt   记录访问总量  
 7    
 8     'Application("Counter")   '计数器的变量名  
 9   'Application("Online")     '在线人数的变量名  
10    
11   dim   objFSO,objTS  
12   set   objFSO   =   Server.CreateObject("Scripting.FileSystemObject")  
13   set   objTS     =   objFSO.OpenTextFile(Server.MapPath("counter.txt"),1,false)  
14   if   not   objTS.atendofstream   then  
15   Application("Counter")   =   CLng(objTS.ReadLine)     '网站计数器  
16   end   if  
17   objTS.close   :   set   objTS=nothing   :   set   objFSO   =   Nothing  
18   Application("Online")   =   0     '在线人数  
19   End   Sub  
20    
21   Sub   Session_OnStart  
22    
23   Application.Lock  
24   Application("Online")     =   Application("Online")   +   1     '在线人数累加  
25   Application("Counter")   =   Application("Counter")+   1     '计数器累加  
26   Application.UnLock  
27   End   Sub  
28    
29   Sub   Session_OnEnd  
30    
31   Application.Lock  
32   Application("Online")   =   Application("Online")   -   1     '在线人数累减  
33   Application.UnLock  
34   End   Sub  
35    
36   Sub   Application_OnEnd  
37    
38   dim   objFSO,objTS  
39   set   objFSO=Server.CreateObject("Scripting.FileSystemObject")  
40   set   objTS=objFSO.OpenTextFile(Server.MapPath("counter.txt"),2,true)  
41   objTS.writeline(Application("Counter"))     '将计数器记录到文本中  
42   objTS.close   :   set   objTS=nothing   :   set   objFSO   =   Nothing  
43   End   Sub  
44   </SCRIPT>
45