asp如何实时获知多少人在线?

时间:2010-05-18 18:34:00 

global.asa


<SCRIPT LANGUAGE="VBScript" RUNAT="Server"> 
Sub Application_OnStart
      ' Sub Application_OnStart 是好在服务器每次启动的时候激活的方法
      Session.Timeout = 3 
' 定义用户在线时间,如果在定义时间内没有活动连接,则删掉他的session 变量实例,将其注销
      Application.Lock
      ' 用.Lock 方法锁住Application 变量以继续运行.如果不锁,那么它在变量 "WhosOn"中不会发生变化
      Application("WhosOn") = 0
      ' 变量从0开始 
      Application.UnLock
 ' 给application解锁
End Sub
Sub Session_OnStart
      ' Sub Session_OnStart 检测每一时刻新来的用户
      Application.Lock
      Application("WhosOn") = Application("WhosOn") + 1
      Application.UnLock
' 此处是用户造访时增加的计数,记住锁/开Application变量
End Sub
Sub Session_OnEnd
      ' Sub Session_OnEnd 检测每一时刻退出网站的用户,并在Session:Timeout in 定义退出后几分钟内仍计数
      Application.Lock
      Application("WhosOn") = Application("WhosOn") - 1
      Application.UnLock
' 当有用户退出时我们要在"WhosOn" 变量中减少1个数,同样要对application 变量进行锁/开
End Sub
</SCRIPT>

count.asp

<%
  response.write "这会儿有" & Application("WhosOn") & "人正在asp之家流连忘返呢!"
%>

标签:global,在线,asp
0
投稿

猜你喜欢

  • 数字人整合动网论坛的方法

    2009-05-29 18:23:00
  • Security安装 Elastic SIEM 和 EDR的超详细教程

    2022-03-08 19:55:43
  • vue中异步数据获取方式(确保数据被获取)

    2024-05-09 15:23:07
  • python实现读取并显示图片的两种方法

    2023-12-20 12:51:14
  • Python语法之精妙的十个知识点(装B语法)

    2022-04-15 21:43:51
  • 用python删除文件夹中的重复图片(图片去重)

    2021-07-23 22:42:36
  • Python切片操作去除字符串首尾的空格

    2023-08-08 19:19:21
  • Python利用filestools模块实现水印添加

    2021-09-11 06:36:08
  • 基于asyncio 异步协程框架实现收集B站直播弹幕

    2021-07-14 19:34:40
  • 利用Python制作一个简单的天气播报系统

    2023-07-30 17:35:03
  • 总结Go语言中defer的使用和注意要点

    2024-02-07 01:48:19
  • Python新手如何理解循环加载模块

    2022-10-09 00:12:53
  • Python利用Django如何写restful api接口详解

    2022-11-16 13:26:32
  • Windows10下mysql 8.0.19 安装配置方法图文教程

    2024-01-21 06:33:27
  • SpringSecurity页面授权与登录验证实现(内存取值与数据库取值)

    2024-01-22 20:17:54
  • Python安装xarray库读取.nc文件的详细步骤

    2023-10-15 11:59:37
  • Django中select_related和prefetch_related的用法与区别详解

    2023-10-08 12:38:08
  • 形成视觉冲击的几种方式

    2008-08-03 15:57:00
  • Python爬虫之Selenium警告框(弹窗)处理

    2021-10-06 23:59:12
  • Python多进程通信Queue、Pipe、Value、Array实例

    2023-04-08 03:25:55
  • asp之家 网络编程 m.aspxhome.com