'=============================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>
更多的[原创]统计在线人数请到论坛查看: http://BBS.TC711.COM
【 双击滚屏 】 【 评论 】 【 收藏 】 【 打印 】 【 关闭 】
来源：
互联网
日期：2006-5-20
