global.asa

用asp做的一个小的聊天程序

<script language="VBScript" RUNAT="SERVER">
sub Application_OnStart
	Application("Online") = 0
	application("person")="<option>大家"
	application("userOn")=" "
	
end sub

sub Application_OnEnd
	Application("Online") = ""
	application("person")=""
	application("userOn")=" "
end sub

sub Session_OnStart
	Session.Timeout = 1
	Application.Lock
    Application("Online") = Cint(Application("Online")) + 1
	Application.UnLock
end sub

sub Session_OnEnd
	Application.Lock
    Application("Online") = Cint(Application("Online")) - 1
	Application.UnLock
end sub
</SCRIPT>