利用ASP显示当前网站在线人数代码
分类：程序开发 Tags： asp 评论：0 浏览：8315 最近更新时间：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>
-
• js兼容IE、谷歌Chrome、火狐Firefox的上传图片预览代码
• Dreamweaver 正则表达式字符查找替换方法
• UEditor百度编辑器1.4.3.3 ASP Utf-8版，上传图片文件服务器返回错误解决办法
• asp如何读取txt文本内容代码
• asp使用CDO.Message发送邮件详细代码集合
• ASP截取网址URL中的顶级域名正则表达式
• 解决asp日语网站access数据库含日文出现“内存溢出”问题
• 利用ASPJPEG为图片加水印及制作缩略图代码
• ASP随机读取数据库中几条数据代码
• .htaccess中的apache rewrite规则写法详解
