代碼如下:<html><body><% Application("counter")=Application("counter")+1 %>您是第<%=Application("counter") %>位來客!</body></html>
1 回答
倚天杖
TA貢獻1828條經驗 獲得超3個贊
為了統計網站的在線人數，我們可以在Global.asa文件中包含如下代碼：
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
' 當服務器開啟時，設置用戶計數器為0
Application("ActiveUsers") = 0
End Sub
Sub Session_OnStart
' 設置Session對象的有效時間為20分鐘（也可以更長，但是越長對服務器的資源' 占用越多，因為服務器不接受少于20分鐘的有效時間，所以設置少于20分鐘的'有效時間是無效的）
Session.Timeout = 20
' 當開始一個Session時用戶計數器加1
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") + 1
Application.UnLock
End Sub
Sub Session_OnEnd
' 當結束一個Session時用戶計數器減1
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
End Sub
</SCRIPT>
這樣，網站的在線人數就被統計出來了，我們可以利用如下一個ASP頁面(js.asp)將它顯示出來： jsh.asp:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<TITLE>統計在線人數</TITLE>
</HEAD>
<BODY>
<B><FONT COLOR="#CC0000">當前在線<%= Application("ActiveUsers") %>人</FONT></B>
</BODY>
</HTML>
添加回答
舉報
0/150
提交
取消