<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_onStart
	Application("OnLine")=0		' 当服务器启动时，将记录在线用户的Application("OnLine")清零
	Application("IPSerialNumber")="61TQ-K5F0-2881-5X8F" 'IP产生的注册码。
End Sub
Sub Application_onEnd

End Sub
Sub Session_onStart
	Application.Lock
	Application("OnLine")=Application("OnLine")+1			' 新增在线用户个数
	Application.Unlock
End Sub
Sub Session_OnEnd
	Application.Lock
	Application("OnLine")=Application("OnLine")-1			' 减少在线用户个数
	Application.Unlock
End Sub
</SCRIPT>
