简单的在线人数统计

  一、新建　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")=1
 End Sub

 Sub Application_OnEnd
  application("online")=1
 End Sub
</SCRIPT>

二、在 asp 页面中调用：　在线人数：<%=application("online")%>