asp vb.net ÔÚÏßͳ¼Æ ¼òµ¥°æ±¾ ºÍ¾«È·°æ±¾

 ¼òµ¥
ÔÚGlobal.asaÎļþÖмÓÈëÈçϵĴúÂ룺
Java´úÂë
1. <SCRIPT LANGUAGE="VBScript" RUNAT="Server">
2.
3. Sub Application_OnStart
4.
5. 'µ±·þÎñÆ÷¿ªÆôʱ£¬ÉèÖÃÔÚÏßÓû§¼ÆÊýÆ÷Ϊ0
6. Application("ActiveUsers") = 0
7.
8. 'ÉèÖÃÿÌì·ÃÎÊÁ¿Îª0
9. Application("EveryDayUsers") = 0
10. '·ÃÎʵÄʱ¼äΪ
11. Application("RecordDate") = "2009-01-01"
12.
13. End Sub
14.
15. Sub Session_OnStart
16.
17. 'ÉèÖÃSession¶ÔÏóµÄÓÐЧʱ¼äΪ20·ÖÖÓ£¨Ò²¿ÉÒÔ¸ü³¤£¬µ«ÊÇÔ½³¤¶Ô·þÎñÆ÷µÄ×ÊÔ´'Õ¼ÓÃÔ½¶à£¬ÒòΪ·þÎñÆ÷²»½ÓÊÜÉÙÓÚ20·ÖÖÓµÄÓÐЧʱ¼ä£¬ËùÒÔÉèÖÃÉÙÓÚ20·ÖÖÓµÄ'ÓÐЧʱ¼äÊÇÎÞЧµÄ£©
18. Session.Timeout = 30
19.
20. ' µ±¿ªÊ¼Ò»¸öSessionʱÔÚÏßÓû§¼ÆÊýÆ÷¼Ó1
21. Application.Lock
22. Application("ActiveUsers") = Application("ActiveUsers") + 1
23.
24. 'ÿÌìµÄ·ÃÎÊÁ¿¼Ó1
25. if Application("RecordDate") <> Date() Then
26. Application.Lock
27. Application("RecordDate") = Date()
28. Application("EveryDayUsers") = 1
29. Application.UnLock
30. else
31. Application.Lock
32. Application("EveryDayUsers") = Application("EveryDayUsers")+1
33. Application.UnLock
34. end if
35.
36. 'ͳ¼Æ×Ü·ÃÎÊÁ¿
37. CountFile=Server.MapPath("txtcounter.txt")
38. Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
39. Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)
40. counter=Out.ReadLine
41. Out.Close
42. SET FileObject=Server.CreateObject("Scripting.FileSystemObject")
43. Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)
44. Application.lock
45. counter= counter + 1
46. Application("TotalUsers") = counter
47. Out.WriteLine(counter)
48. Ap