利用ASP显示当前网站在线人数代码
分类：程序开发 Tags： asp 评论：0 浏览：8225 最近更新时间：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>
-
• 使用Aspjpeg组件，自动按宽高比例生成产品缩略图ASP代码
• 301重定向代码(ASP,ASP.NET,PHP,apache,IIS,ISAPI_Rewrite)
• 忽略JS错误代码,网页屏蔽js错误代码
• ASP如何获取当前网站地址，网页地址代码及div+css菜单应用
• ASP输出26个英文字母的方法代码
• ASP几种常见分页代码
• 1小时ASP入门，教你简单学会ASP
• asp执行出错，直接忽略错误代码
• asp导出excel文件方法
• 一个表单中如何实现多个按钮提交的方法代码
-
• 解决Foxmail在Win7中出现“Access violation 007CC4B1”的错误
• 有用的CSS教程：18步改变你网站的css，使你从初学者成为高级用户(图)
• (asp转html) asp生成静态网页文件0kb解决方法
• SEO经验：网站优化也要适当的屏蔽蜘蛛抓取
• 在Windows 2003 IIS 6.0中配置PHP的运行环境（图）
• 网页Title标题、Keywords关键词、description描述该怎么写才利于网站优化
• 支持支付宝付款的国外空间商
• 如何查询搜索引擎对一个网站最近一天的收录情况呢
• EASEUS Partition Master 5.0.1 Unlimited Edition无损磁盘分区调整工具教程
• vps服务器安全设置参考
