<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_onStart
	Application("OnLine")=0		' 当服务器启动时，将记录在线用户的Application("OnLine")清零
	Application("IPSerialNumber")="6Y11-9971-87RP-CT7J" 'IP产生的注册码,旧版本使用方式。
	'Application("DoMainSerialNumber")="61TQ-K5F0-2881-5X8F"   '根域名注册码,旧版本使用方式。
	'Application("DoMainRegCode")="R4WI-2T6L-VG9D-J3GC-20091206-20101206-PERSON"   '根域名注册码，新版本使用方式。
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>
