欢迎光临!今天是2017年10月18日 星期三
首页 基础教程  留言薄制作  神奇FSO  ASP优化  ASP实例  SQL语法  VB教程  安全手册  综合技巧  案头必备  留言  
 综合技巧
·ASP技巧TOP10 (1)
·ASP技巧TOP10 (2)
·ASP技巧TOP10 (3)
·ASP技巧TOP10 (4)
·奇妙的文件系统对象组件
·关于在浏览器中文件上载的方法..
·存储过程分页
·在同一页面动态实现两个sel..
·用ASP实现WEB页面分用户..
·怎样用ASP访问SQL Se..
·在Web页面中执行Windo..
·ASP程序中日期型数据的格式..
·ASP中数据库操作中游标和加..
·如何在Web页面中集成文件上..
·有关win2000、IIS5..
·在您的网站中加入互动功能
·ASP服务器组件的编程
·数据库聊天室的“无刷新”技术..
·ASP页面内VBScript..
·ASP中处理#include
·关于数据库连接的一点个人见解
·利用ASP显示当前在线人数
·在ASP处理程序时,进度显示
·ASP中文本文件与数据库文件..
·FrontPage创建HTM..
·FrontPage创建HTM..
·如何使ASP输出结果不支持h..
·用几行Asp代码实现防止表单..
·在Flash中使用ASP技术
·在ASP中使用脚本语言
■ 综合技巧 > 利用ASP显示当前在线人数
  眼下,作网站已成为一种时尚,各式各样的网站如雨后春笋般冒了出来。有用CGI制作的,有用ASP
制作的,还有用PHP 制作的,不一而足。有一些网站则能统计出当前的在线人数,如:“目前有32人在
线”。那么,用ASP制作的网站怎样显示当前的在线人数呢?
  当用ASP制作的网页都存放与WWW服务器的基点目录并且WWW服务器启动之后,每当有对ASP文件的HT
TP请求时,服务器都会去读取基点目录下的Global.asa文件。为了统计网站的在线人数,我们可以在Gl
obal.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>

  Win NT(IIS 4.0)下调试并通过了的
■今日推荐:数据库聊天室的“无刷新”技术要点

本网站是学习网站,内容整理大多来自互联网,尽量标明了出处,如果侵犯了您的权力请通知我,立即纠正
欢迎提出宝贵建议,提供相关资料,以便相互学习,共同提高!