<script language="vbscript" runat="server">

sub application_onstart
'當(dāng)服務(wù)器開啟時，設(shè)置用戶計數(shù)器為0
application("activUser")=0
end sub

sub session_onstart
	'設(shè)置session對象的有效時間為20分鐘
session.timeout=20
'當(dāng)開始一個session時用戶計數(shù)器加1
application.lock
application("activeUser")=application("activeUser")+1
application.unlock
end sub

sub session_onend
'當(dāng)結(jié)束一個session時用戶計數(shù)器減１
application.lock
application("activUser")=application("activUser")-1
applicatin.unlock
end sub
</script>