asp線上人數統計

最簡單的方法一,就是利用global.asa檔案,把global.asa檔案儲存到你主機的根據目錄

global.asa檔案代碼如下:

<script Language="VBScript" runat="Server">
Sub Application_OnStart
Application("online") = 0
End Sub
Sub Session_OnStart
Application.Lock
Application("online") = Application("online") + 1
Application.UnLock
End Sub
Sub Session_OnEnd
Application.Lock
Application("online") = Application("online") - 1
Application.UnLock
End Sub
Sub Application_OnEnd
End Sub
</script>

在要顯示線上人數的地方response.write(application("online"))就行了,

方法二:

global.asa 的寫法：
在聊天室編寫中常用到。看下面一段。

< SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
VisitorCountFilename = Server.MapPath ("/ex2") + "\VisitCount.txt"
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set Out= FileObject.OpenTextFile (VisitorCountFilename, 1, FALSE, FALSE)
Application("visitors") = Out.ReadLine
Application("VisitorCountFilename") = VisitorCountFilename
End Sub
'=========================================================
SUB Application_OnEnd
Set FileOutObject = Server.CreateObject("Scripting.FileSystemObject")
Set Out= FileOutObject.CreateTextFile (Application("VisitorCountFilename"), TRUE,FALSE)
Out.WriteLine(application("visitors"))
End Sub
'=========================================================Sub Session_OnStart
Session.Timeout = 5
Application("visitors") = Application("visitors") + 1
Session("ID")=Session.SessionID
End Sub
< /SCRIPT>
上面用到了檔案系統對象操作,

方法三:

就是利用資料庫來儲存了,這種做法比較麻煩也是比較全的方法,就是記錄新的IP來做了,如果有新IP且在資料庫在不存在就加一,如果一IP在20分鐘(時間根據自己的情況寫)內未動過就減一,