' 設定好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]
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
