ASP统计在线人数代码

发布时间:2008-11-14 发布者:新锐传媒 查阅 [3112] 评论 [0]

新建文件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">
      免责声明 | 新锐观点 | 网站运营 | 网站推广 | 联系我们 | 网站地图