在线统计代码 application

时间:2021-05-25

首先要设置好global.asa 文件,如下

以下内容为程序代码

  • <script language="vbscript" runat="server">
  • sub application_onstart
  • application("activeusers") = 0  //初始值
  • end sub
  • sub session_onstart
  • session.timeout = 20    //删除不活动用户的时间
  • session("start") = now
  • application.lock       //锁定application变量
  • application("activeusers") = application
  • ("activeusers") + 1      //统计
  • application.unlock     //解锁
  • end sub
  • sub session_onend
  • application.lock
  • application("activeusers") = application
  • ("activeusers") - 1     //删除不活动用户或退出用户
  • application.unlock
  • end sub
  • </script>


  • 显示在线用户数量的页面


    以下内容为程序代码

  • <%@ language=vbscript %>
  • <html>
  • <head>
  • <title>在线用户</title>
  • </head>
  • <body>
  • <b>当前共有<font color="#cc0000"><%= application("activeusers") %></font> 人在线</b>
  • </body>
  • </html>
  • 最普通的方法是用SESSION,但缺点是无法即时反应在线情况(有超时时间)和占用服务器资源(如果有100人在线就有100个SESSION,想想看8);上次(好象间隔很久了耶)介绍了一种采用APPLICATION+COOKIES的方法,但实现方法有些烦琐同时还要设一个隐藏的自刷新页面。
    这种方法则避免了以上的弊病,经实践,效果不错(例子:/BBS),具体如下:
    假定INDEX。HTM为框架网页,包含ID=LEFT,ID=TOP和ID=BOTTOM的三个框架
    1、做个统计页面USERNUM。ASP
    <p>正在统计数据。。。</p>
    <%
    user=request.querystring("user")
    ifuser=0then'如果离开则人数-1
    application.lock
    application("num")=application("num")-1
    application.unlock
    response.write"<script>self.close();</script>"
    elseifuser=1then'如果进入则+1
    application.lock
    application("num")=application("num")+1
    application.unlock
    endif
    %>

    2、在框架页面中如(INDEX。HTM)嵌入USERNUM。ASP
    <bodyonbeforeunload="window.open('usernum.asp?user=0','num','menubar=no')">
    ......
    <iframesrc="usernum.asp?user=1"frameborder=0width=0height=0></iframe>
    3、在需要显示人数的页面(假定在LEFT显示)中加入
    <divid=num><%=application("num")%></div>
    4、设定需要更新数据的页面(如BOTTOM)
    functiontj(){
    top.left.num.innerHTML=<%=application("num")%>;
    }
    <bodyonload="tj()">
    完毕,这只是一个例子,具体应用可以灵活,另外,为什么当离开时要WINDOW。OPENUSERNUM。ASP呢?因为如果同样放在IFRME中,窗口关得太快,USERNUM。ASP页面来不及装载就关掉了无法减少人数

    声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。

    相关文章