asp 在線人數統計代碼

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

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

　　Sub Application_OnStart
application("activevisitors")=
End Sub

　　Sub Application_OnEnd
End Sub

　　Sub Session_OnStart
applicationlock
application("activevisitors")=application("activevisitors")+
applicationunlock
End Sub

　　Sub Session_OnEnd
applicationlock
application("activevisitors")=application("activevisitors")
applicationunlock
End Sub

　　</SCRIPT>

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

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

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

From:http://tw.wingwit.com/Article/program/net/201311/14095.html