<script language=Vbscript runat=Server>
//程序運行初始化
Sub Application_onstart
	'在線數量初始為0
	Application("online")=0
	'初始在線人員列表
	Application("userList")=","
End Sub

//每觸發一個session ID 都會觸發此事件，即每有一個新的客戶端鏈接到此頁都會觸發些事件
Sub Session_Onstart
	//設定session的有效時間為10分
	Session.timeout=600
	//鎖定Application，不允許其它程序對其進行修改
	Application.lock
	//在線數加一
	Application("online")=Application("online")+1
	Application("userList")=","+sessionId
	//放開Application，允許其它程序對其進行修改
	Application.Unlock
End sub

//每放棄一個session ID，可以是退出，可以是長時間不活動
Sub Session_onend
	Application.lock
	//在線數減一
	Application("online")=Application("online")-1
	Application.Unlock
End sub

//程序運行結束
Sub Application_onend
	Application("online")=0
End sub
</script>

<!--聲明一個FileSystemObject組件，其調用ID為 fso -->
<Object
	Runat="Server"
	Scope="Application" 
	Id="fso"
	Progid="Scripting.FileSystemObject">
</Object>