<P align="center" style="color:GRAY ">
<%Response.Write("现在有"+Application("whoson")+"人在线")%>
</P>

global.asa文件为：

<script LANGUAGE="VBScript" RUNAT="SERVER">
sub Application_OnStart()
Application.Lock()
Application("whoson")=0
Application.UnLock()
End sub

sub session_OnStart()
Application.Lock()
Application("whoson")=Cint(Application("whoson"))+1
Application.UnLock()
End sub

sub session_OnEnd()
Application.Lock()
Application("whoson")=Cint(Application("whoson"))-1
Application.UnLock()
End sub
</script>


敬请诸位指点！