' 設置好global.asa 文件,如下:
<script LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
Application("ActiveUsers") = 0
' 設置計數初始值,可以根據自己的需要哦.
End Sub
Sub Session_OnStart
Session.Timeout = 20
' 根據需要,設置超時時間.
Session("Start") = Now
' 設置一個Session開始時間.
Application.Lock
Application("ActiveUsers") = Application
("ActiveUsers") + 1
' session開始後增加來訪者計數.
Application.UnLock
End Sub
Sub Session_OnEnd
Application.Lock
Application("ActiveUsers") = Application
("ActiveUsers") – 1
' session關閉時減少來訪者計數.
Application.UnLock
End Sub
</script>
count.asp
' 其它顯示在線用戶數量的頁面.
<%@ Language=VBScript %>
<html>
<head>
<title>山水盈盈之在線用戶統計</title>
</head>
<body>
<B><FONT COLOR="#CC0000">現有<%= Application("ActiveUsers") %></FONT>
位用戶在線與您共舞!</B>
</body></html>
[1]
