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
Ïà¹ØÎĵµ£º
'´´½¨Êý¾Ý¿â
Private Sub Create(ByVal mdbPath As String)
If File.Exists(mdbPath) Then
Throw New Exception("Ä¿±êÊý¾Ý¿âÒѾ´æÔÚ£¬ÎÞ·¨´´½¨")
......
asp nowº¯Êý,ASPʱ¼äº¯ÊýÏê½â ,aspʱ¼äº¯Êý´óÈ«,asp ÐÇÆÚº¯Êý
now() »ñÈ¡µ±Ç°ÏµÍ³ÈÕÆÚºÍʱ¼ä,ASPÊä³ö¿ÉÒÔÕâÑùд£º<%=now()%>
Year(now()) »ñÈ¡Äê·Ý£¬ ASPÊä³ö£º<%=Year(now())%>
Month(now()) »ñÈ¡µ±Ç°Ô·ݣ¬ASPÊä³ö£º<%=Month(now())%>
day(now()) ......
Private Declare Function OpenThread Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwThreadId As Long) As Long
Private Const THREAD_ALL_ACCESS = &H1F03FF
OpenThread(THREAD_ALL_ACCESS, 1, Ïß³ÌID) 'ÓÉÏß³ÌIDÈ¡µÃÏ߳̾ä±ú,·µ»ØÏß³Ì¾ä± ......
http://www.Experts-Exchange.com: ·Ç³£ºÃµÄÎÊÌâ ÌÖÂÛÇø£¬¸ßÊÖÊý²»¾¡£¬¶øÇÒÕâÀïµÄÈ˺ÜÓÐרҵ¾«Éñ£¬²»»áÌÖÂÛһЩºÍ³ÌÐòÎÞ¹ØÓÖÎÞÁĵÄÎÊÌâ¡£²»¹ýÏëÒª±ðÈ˰ïÄã ½â¾öÎÊÌ⣬×Ô¼ºÒ²ÒªÓÐÕæ³ÏµÄ̬¶È¡£
http://www.Codeguru.com/vb: ÓÐÃûµÄÔ´ÂëÌÖÂÛÕ¾ µã£¬ÌصãÊÇÔÚÿ¸öÔ´ÂëÏÂÃæ¶¼¿ÉÒÔ¸úÌûÌÖÂÛ¡£
http://www.planet-source-code.co ......
ÓÐ2ÖÖʹÓÃcookieµÄ»ù±¾·½Ê½£º
1¡¢½«cookieдÈë·ÃÎÊÕߵļÆËã»ú£¨Ê¹Óà RESPONSE ÃüÁ
2¡¢´Ó·ÃÎÊÕߵļÆËã»úÖÐÈ¡»Øcookie£¨Ê¹Óà REQUEST ÃüÁ
´´½¨cookieµÄ»ù±¾Óï·¨
Response.Cookies("CookieName")=value //½«ÖµvalueдÈëcookie
Ö´ÐÐÏÂÃæµÄ´úÂ뽫»áÔÚ·ÃÎÊÕߵļÆËã»úÖд´½¨Ò»¸öcookie£¬Ãû×Ö£½VisitorNam ......