asp如何最准确地统计在线用户数？
发布时间：2010-07-11 21:12:00
如何最准确地统计在线用户数？
我们推荐的这个程序据说是目前最好的在线用户数量统计程序。代码如下：
'首先要设置好global.asa 文件,如下
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
Application("ActiveUsers") = 0
' 设置计数初始值,可以根据自己的需要哦
End Sub
Sub Session_OnStart
Session.Timeout = 20
' 根据需要,设置超时时间
Session("Start") = Now
' 设置一个Session开始时间
Application.Lock
Application("ActiveUsers") = Application
("ActiveUsers") + 1
' session开始后增加来访者计数
Application.UnLock
End Sub
Sub Session_OnEnd
Application.Lock
Application("ActiveUsers") = Application
("ActiveUsers") – 1
' session关闭时减少来访者计数
Application.UnLock
End Sub
</SCRIPT>
count.asp
' 其它显示在线用户数量的页面
<％@ Language=VBScript ％>
<HTML>
<HEAD>
<TITLE>精彩春风之在线用户统计</TITLE>
</HEAD>
<BODY>
<B><FONT COLOR="#CC0000">现有<％= Application("ActiveUsers") ％></FONT>
名用户在线与您共舞!</B>
</BODY>
</HTML>
0
投稿猜你喜欢
- 没有使用动态语句直接报错 错误的 代码如下:alter proc testpapers as begin declare @tems nva
- 第一节：WAP的潜能 这些日子，我们常听到WAP技术，一种手机上网的技术。从技术上讲，移动电话不可能和PC来竞争，移动电话的屏幕只能容下很少
- 在MySQL中，对于索引的使用并是一直都采用正确的决定。简单表的示例：CREATE TABLE `r2` (ID` int(11) DEFA
- 学习目的 学会SQL中的占位符用法 在鲸鱼这几天忙死了，好几天没写了，真对不起各位。这几天让XHTML闹得不开心，虽然以前也知道这个，但没太
这是一篇知识性的文档，主要目的是为了让Web缓存相关概念更容易被开发者理解并应用于实际的应用环境中。为了简要起见，某些实现方面的细节被简化或- asp三天学好ADO对象之第二天 今天来说一下Recordset对象的一些方法。1、AddNew 方法创建可更新 Recordset 对象的
- 如果你看过YUI的RAW源码，会发现很多跟javadoc语法类似的注释。据说(via)是使用JSDoc这个工具。但我探索了一遍，发现YUI多
- c shell perl php下的日期时间转换: 秒数与人类可读日期 scalar localtime 与 seconds since `
- 保护你的ASP页面的两种办法 有时候你只想让人们从你的站点来访问你的某些页面, 而不允许他们从其它站点的非法链接中到达这些页面。在你想保护的
- 描述返回表达式，此表达式已被格式化为日期或时间。语法FormatDateTime(Date[, NamedFormat])FormatDat
- 有这样一类文章标题，喜欢学习的人肯定见过：使用Google的7个技巧Web设计中9个常见的可用性错误Adobe Photoshop 75个技
- HTML文档与CSS的关联常见有4种方式：1.使用link标记<link rel="stylesheet"
- 在实用美术中，常有"远看色彩近看花，先看颜色后看花，七分颜色三分花"的说法。这也就说明，在任何设计中，色彩对视觉的刺激起
- 判断某一个表的记录总数，对于一个开发者来说是最再常见不过的事，我想大家都常用的作法就是:以下为引用的内容：select count(*) f
- 函数javascript函数相信大家都写过不少了,所以我们这里只是简单介绍一下.创建函数:function f(x) {........}v
- 如何让页面背景五彩缤纷？ <％@ Language=VBScript ％><html>
- 平时我们获取事件对象一般写法如下：function getEvent(event) { return e
- 适合各种浏览器的js拖动层，ie，firefox等，调用方便！<!DOCTYPE HTML PUBLIC "-//W3C//
- MYSQL在一个字段值前面加字符窜,如下:member 表名card 字段名update member SET card = '00
- 我发现有的网站利用了SQL SERVER提供的通过EXCHANGE或OUTLOOK收发邮件的扩展存储过程来完成收发和自动处理邮件（这句话太长
