新建文件Global.asa
<script language="VBScript" runat="server">
Sub Application_OnStart
Application.Lock
Application("user_online")=0
Application.Unlock
End Sub
Sub Session_onStart
Application.Lock
Application("user_online")=Application("user_online")+1
Application.Unlock
End Sub
Sub Session_OnEnd
Application.Lock
Application("user_online")=Application("user_online")-1
Application.Unlock
End Sub
</script>
新建online.asp
<!--#include file="Global.asa"-->
<body topmargin="3" leftmargin="5" bgcolor="#ADB6C6">
<p align="left">
<font color="#CC0000"><span style="font-size: 9pt">当前共有</span></font><span style="font-size: 9pt"><font color=#CC0000><b><%=Application("user_online")%></b></font></span><font color="#CC0000"><span style="font-size: 9pt">人在线</span></font></p>
在要加在线人数的地方加入
<iframe name="I2" src="../online.asp" scrolling="no" border="0" frameborder="0" width="176" height="17">