网络编程
位置:首页>> 网络编程>> Asp编程>> asp如何实时获知多少人在线?

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

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

标签:global,在线,asp

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
投稿

猜你喜欢

  • 只要把下面代码放到index.asp或者default.asp中,只要在首页代码顶部引用call Check_Wap(),这个也是我的工程中
  • 作者的blog:http://www.planabc.netz-index属性简介引用:z-index : auto | numberaut
  • 最近接触到一个心理学方面的理论:心流理论。大意是一种个人精力完全投注在某件事情上的感觉。心流产生时会有高度的兴奋和充实感。其实也就是说人在进
  • 首先,把这个“功能”包含到页首:<!--#include virtual="/readini/inifile.in
  •     这段程序的方法是利用XMLHTTP来读取腾讯网站的相应HTML代码获取QQ的头像,根据这个想法,我们还
  • 时下,个性ico图标却成为一些主流大牌网站提高用户体验(UE)的一个“时髦”玩法,那么,是如何在IE地址栏显示出网站的个性图标的呢?常浏览网
  • 网站开发时经常需要在某个页面需要实现对大量图片的浏览,如果考虑流量的话,大可以像pconline一样每个页面只显示一张图片,让用户每看一张图
  • 做为一个编程爱好者,也作为一个小站长(asp之家),中国站长站(www.chinaz.com)我时不时的都会去灌一下。当然发现好的文章我也不
  • Hello every, 我是Sunrise_Chen,有人知道我吗?好久没来这里了,以前偶尔会来这里潜水今天心情很好,写了几个特效果。特效
  • 本文介绍的圆角方法很特别,有创意。昨天群里大家讨论到一个豆瓣上的按钮,下面这个。在这里用到了不同宽度的按钮,但是只是用到了一个图片。&nbs
  • var a = 0, b = 0;[0, 0].sort(function() {a = 1;return 0;});[0, 1].sort
  • sql exist的妙用create table b(a varchar(10),b varchar(10),c varchar(10))i
  • mysql数据库没有增量备份的机制,当数据量太大的时候备份是一个很大的问题。还好mysql数据库提供了一种主从备份的机制,其实就是把主数据库
  • 当你连接一个MySQL服务器时,你通常应该使用一个口令。口令不以明文在连接上传输。所有其它信息作为能被任何人读懂的文本被传输。如果你担心这个
  • 代码如下:--函数 CREATE function fn_GetPy(@str nvarchar(4000)) returns nvarch
  • 在本文上两篇中,我们学习了脚本语言 VBScript 的变量、函数、过程和条件语句,本篇将继续给大家介绍 VBScipt 的循环语句,并对脚
  • 如果不用类库(如jquery)来写,往往很多时候,都需要通过id或tag来获取html里的某一对象,然后对其进行操作。为了节省代码,把常用的
  • 什么是CSS裸奔节?CSS裸奔节就是将这整站的css样式都去掉,这样所有的布局,颜色,背景什么的就都没有了(除非你使用table布局),只剩
  • Microsoft SQL Server 7.0安全问题Microsoft Corporation【「Microsoft SQL Serve
  • 如何最准确地统计在线用户数?我们推荐的这个程序据说是目前最好的在线用户数量统计程序。代码如下:'首先要设置好global.asa&n
手机版 网络编程 asp之家 www.aspxhome.com