在ASP里，我们可以很简单的实现这个统计在线人数功能的，只需要俩个文件，一个是global.asa文件，这个文件的源文件内容如下：
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_onStart
Application("OnLine") = 0
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>
把上面这个GLOBAL.ASA文件存放到网站的根目录下，然后第二个文件就是显示在线人数的文件，只是一个示例，演示如何显示在线人数的方法：
<Html>
<head>
<title>
显示在线人数
</title>
</head>
<body>
<center>
欢迎光临本网站：天使互联http://www.angelweb.cn,当前共有<%=Application("OnLine")%>在线
</center>
</body>
