看看这个可以吗?
<script language="vbscript" RunAt="server">
Sub Application_OnStart
Application("LogCount")=0
End Sub
Sub Session_OnStart
Application.Lock
Application("LogCount")=Application("LogCount")+1
Application.UnLock
End Sub
Sub Session_OnEnd
Application.Lock
Application("LogCount")=Application("LogCount")-1
Application.UnLock
End Sub
Sub Application_OnEnd
End Sub
</script>
以上代码存成Global.asa文件,放在网站根目录下
调用时只需写上
当前在线:<%=Application("LogCount")%>人
即可