asp 在線人數統計代碼

只要復制代碼表中到一個文本文件並將其保存在主目錄中的網站（ “ / Global.asa中” ） 。

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

Sub Application_OnStart
application("activevisitors")=0
End Sub

Sub Application_OnEnd
End Sub

Sub Session_OnStart
application.lock
application("activevisitors")=application("activevisitors")+1
application.unlock
End Sub

Sub Session_OnEnd
application.lock
application("activevisitors")=application("activevisitors")-1
application.unlock
End Sub

</SCRIPT>

第一次的訪客進入我們的網頁， Global.asa中將被處死，因此，Application（ “ activevisitors ” ）在4號線將獲得價值等於“ 0 ” 。立即（作為一個新的會議已經開始） ，在12號線，Application（ “ activevisitors ” ）將增加1 。每當有新的訪客進入我們的網頁Application（ “ activevisitors ” ）將增加一個，相同的，每一次會議結束後，這個參數將減少一（線18條） 。

在情況下，我們要顯示的訪客人數在我們的網頁上，我們必須使用這種代碼：

在asp頁面中加上如下.當前在線人數<% =application("activevisitors") %>人.