利用ASP显示当前网站在线人数代码
分类：程序开发 Tags： asp 评论：0 浏览：8305 最近更新时间：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连接Access数据库绝对路径代码
• asp检测email地址是否有效函数
• ASP抽取数据的执行效率
• 在文章内容中随机插入网站版权文字，防止采集
• ASP过滤SQL非法字符并格式化html代码，不错的功能函数集
• centos系统挂载数据盘方法
• ASP Access数据库连接关闭与.ldb文件锁定解决方法
• 中国十大ASP CMS系统介绍
• UEditor百度编辑器在html代码模式无法更新内容的解决办法
• ASP在线创建ACCESS表或添加字段代码
-
• Google免费企业邮局申请、微软Live免费企业邮局申请
• 网易163免费版企业邮箱故障，无法登录，无法收发信
• 怎么把QQ帐号显示成邮箱名?如何设置qq主显示帐号？
• CSS选取第几个标签元素：first-child、last-child、nth-child
• 走遍美国下载(走遍美国文本、走遍美国MP3、走遍美国视频下载)
• 解决Windows IIS网站.svg .woff .woff2字体无法正常显示问题
• 如何免费点亮、关闭熄灭QQ交友用户图标？
• 修改win7 iis上传文件大小限制200KB
• 存在于网页中的5种隐形病毒详细说明，如何防范网页病毒？
• opencart网店把分类显示到顶部导航教程
