利用ASP显示当前在线人数

为了统计网站的在线人数,我们可以在Global.asa文件中包含如下代码:
   
  <SCRIPT LANGUAGE="VBScript" RUNAT="Server">
  Sub Application_OnStart
   
    ' 当服务器开启时,设置用户计数器为0
  Application("ActiveUsers") = 0
  End Sub
  Sub Session_OnStart
   
    ' 设置Session对象的有效时间为20分钟(也可以更长,但是越长对服务器的资源' 占用越多,因为服务器不接受少于20分钟的有效时间,所以设置少于20分钟的'有效时间是无效的)
  Session.Timeout = 20
   
    ' 当开始一个Session时用户计数器加1
  Application.Lock
  Application("ActiveUsers") = Application("ActiveUsers") + 1
  Application.UnLock
  End Sub
  Sub Session_OnEnd
   
    ' 当结束一个Session时用户计数器减1
  Application.Lock
  Application("ActiveUsers") = Application("ActiveUsers") - 1
  Application.UnLock
  End Sub
  </SCRIPT>
   
    这样,网站的在线人数就被统计出来了,我们可以利用如下一个ASP页面(js.asp)将它显示出来: jsh.asp:
  <%@ Language=VBScript %>
  <HTML>
  <HEAD>
  <TITLE>统计在线人数</TITLE>
  </HEAD>
  <BODY>
  <B><FONT COLOR="#CC0000">当前在线<%= Application("ActiveUsers") %>人</FONT></B>
  </BODY>
  </HTML>

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值