如何最準確地統(tǒng)計在線用戶數(shù)？
' 設(shè)置好global.asa 文件,如下:
<script LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
Application("ActiveUsers") = 0
' 設(shè)置計數(shù)初始值,可以根據(jù)自己的需要哦.
End Sub
Sub Session_OnStart
Session.Timeout = 20
' 根據(jù)需要,設(shè)置超時時間.
Session("Start") = Now
' 設(shè)置一個Session開始時間.
Application.Lock
Application("ActiveUsers") = Application
("ActiveUsers") + 1
' session開始后增加來訪者計數(shù).
Application.UnLock
End Sub
Sub Session_OnEnd
Application.Lock
Application("ActiveUsers") = Application
("ActiveUsers") – 1
' session關(guān)閉時減少來訪者計數(shù).
Application.UnLock
End Sub
</script>
count.asp
' 其它顯示在線用戶數(shù)量的頁面.
<%@ Language=VBScript %>
<html>
<head>
<title>山水盈盈之在線用戶統(tǒng)計</title>
</head>
<body>
<B><FONT COLOR="#CC0000">現(xiàn)有<%= Application("ActiveUsers") %></FONT>
位用戶在線與您共舞!</B>
</body></html>
[1]
相關(guān)文章
如何顯示隨機信息？...2006-11-11
如何根據(jù)用戶銀行帳戶余額的多少進行顯式的提交或終止？
如何根據(jù)用戶銀行帳戶余額的多少進行顯式的提交或終止？...2006-11-11
如何驗證日期輸入是否正確？...2006-11-11
如何制作一個文本文件編輯器？...2006-11-11
這篇文章主要為大家介紹了為什么數(shù)組下標是從0?開始而不是?1?呢的問題解析，有需要的朋友可以借鑒參考下，希望能夠有所幫助，祝大家多多進步，早日升職加薪2023-04-04
如何實現(xiàn)人民幣的大寫轉(zhuǎn)換？...2006-11-11
如何用ASP發(fā)送html格式的郵件？...2006-11-11
如何在ASP里建立表格？...2006-11-11
如何實現(xiàn)強制登錄？...2006-11-11
怎樣給文件加密最安全？...2006-11-11