Global.ASA中:
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Session_OnStart
application("online")=application("online")+1
End Sub
Sub Session_OnEnd
application("online")=application("online")-1
End Sub
sub Application_OnStard
application("online")=0
End Sub
sub Application_OnEnd
application("online")=0
End Sub
</SCRIPT>
调用ASP中:
<% @language="vbscript" %>
<%
tmp=application("online")
tmp=Cstr(tmp)
response.write "在线人数为:"&tmp
%>