手机
当前位置:查字典教程网 >编程开发 >ASP教程 >在线统计代码 application
在线统计代码 application
摘要:首先要设置好global.asa文件,如下以下内容为程序代码subapplication_onstartapplication("activ...

首先要设置好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的方法,但实现方法有些烦琐同时还要设一个隐藏的自刷新页面。

这种方法则避免了以上的弊病,经实践,效果不错(例子:WWW。ATERSOFT。COM/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页面来不及装载就关掉了无法减少人数

1

【在线统计代码 application】相关文章:

6行代码实现无组件上传(author:stimson)

asp 在线人数统计代码

asp调用二级分类代码

在线用表单建立文件夹

asp 特殊字符屏蔽代码

ASP编程常用的代码

在线实时开通FTP&WEB

asp论坛在线人数统计研究

ASP动态生成的javascript表单验证代码

在线修改Serv-U 4.2用户密码

精品推荐
分类导航