利用ASP显示当前网站在线人数代码
分类:程序开发 Tags: asp 评论:0 浏览:8993 最近更新时间:2007/4/3 20:38:52
为了统计网站的在线人数,我们可以在Global.asa文件中包含如下代码:
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
' 当服务器开启时,设置用户计数器为0
Application("ActiveUsers") = 0
End Sub
Sub Session_OnStart
' 设置Session对象的有效时间为20分钟(也可以更长,但是越长对服务器的资源' 占用越多,因为服务器不接受少于20分钟的有效时间,所以设置少于20分钟的'有效时间是无效的)
Session.Timeout = 20
' 当开始一个Session时用户计数器加1
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") + 1
Application.UnLock
End Sub
Sub Session_OnEnd
' 当结束一个Session时用户计数器减1
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
End Sub
</SCRIPT>
这样,网站的在线人数就被统计出来了,我们可以利用如下一个ASP页面(js.asp)将它显示出来: jsh.asp:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<TITLE>统计在线人数</TITLE>
</HEAD>
<BODY>
<B><FONT COLOR="#CC0000">当前在线<%= Application("ActiveUsers") %>人</FONT></B>
</BODY>
</HTML>
-
• 通用ASP生成HTML代码,无需读取模版
• asp检测email地址是否有效函数
• 把Access 2010 .accdb文件格式转换为Access 2003 .mdb操作方法
• 兼容ie,火狐,chrome,safari,360,qq,遨游,搜狗等浏览器的设为首页和加入收藏代码
• 利用ASP显示当前网站在线人数代码
• fckeditor报错FCKLang undefined(fcklang未定义)的解决方法
• windows 2003通过squid搭建cdn节点加速服务
• ASP编程中经常用到的ASP代码,很有用的哦
• 网页加密攻略:使用ASP程序密码锁
• JS、ASP、PHP自动检测浏览器语言并转到相关URL