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之家流连忘返呢!"
％>
0
投稿猜你喜欢
- 这是一个access较为豪华的包装范例，他调用了flash的流媒体控件，利用flash的交互与通信功能，借以达到了我们装扮软件的目的。fla
- 我们有时候会需要在网上查找并下载图片，当数量比较少的时候，点击右键保存，很轻松就可以实现图片的下载，但是有些图片进行了特殊设置，点击右键没有
- 模块在python编程中的地位举足轻重，熟练运用模块可以大大减少代码量，以最少的代码实现复杂的功能。下面介绍一下在python编程中如何导入
- 前言： json 模块提供了一种很简单的方式来编码和解码JSON数据。 其中两个主要的函数是 json.dumps() 和 jso
前言其实容器类型的转换可以说是数据类型的转换，涉及到三个函数，分别是tuple()、list()、set()。为什么要做容器类型的转换，是因- 关于yii2配置操作多个数据库进行操作，文档上面也给出了具体的配置，一个实战性的例子，也是很简单的，我们这里以权限控制为单个管理库dbnam
- //CLASS@Mr.Think*****getElementsByTagName function tag(name,elem){ if(
- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN&q
- 本文实例讲述了Python列表list操作符。分享给大家供大家参考，具体如下：#coding=utf8''''
- 本文介绍了python+opencv像素的加减和加权操作的实现，分享给大家。# 目标：# 1、在图像上进行算术操作，如加减以及按位操作# 2
- 问题描述由于之前在安装VSCODE的时候，没注意详细阅读提示，而且第一次安装比较随意，只是带着想试一下VSCODE才安装的，所以安装的时候漏
- 简述在大多数此类教程中都会不遗余力的介绍如何使用数据库。今天我们对数据库暂且不表，而是来关注另一个在web应用中很重要的特性：如
- 素数简介质数又称素数。一个大于1的自然数，除了1和它自身外，不能被其他自然数整除的数叫做质数；否则称为合数。方法1def primeNUM(
- 在SQL Server数据库中，主要是通过角色来继承相关的权限。但是，这个权限继承很容易造成权限上的冲突。如现在有个销售员账户SALE1，有
- 当你使用UPDATE, INSERT, DELETE语句更新数据的时候，你就改变了两个地方的数据：log buffer和data buffe
- Python虚拟机注：本篇是根据教程学习记录的笔记，部分内容与教程是相同的，因为转载需要填链接，但是没有，所以填的原创，如果侵权会直接删除。
- python里面可以将路径里面的\替换成/避免转义。os.walk方法可以将目标路径下文件的root，dirs，files提取出来。后面对每
- 守来说，AJAX在现在是热得不能再热的技术。没有人能否认，它拥有大批的支持者。在CNN上，它从二月份的一个不被看好的词语到十月份成长成一个初
- 我正在用 MySQL 客户端的时候，突然想到如果可以给查询结果添加排名该多好啊，然后就找到了一个简单的解决办法。下面是一个示例表
- 案例一：运行下面的代码结果是什么？class Person: def run(self): &nbs
