|
![]() |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
为了统计网站的在线人数,我们可以在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> 返回类别: 教程 上一教程: VBSCRIPT的循环挺好理解的 下一教程: 用ADO的COMMAND对象实现对WEB数据库动态数据查询的方式 您可以阅读与"利用ASP显示当前在线人数"相关的教程: · ASP显示当前网页在线人数和IP地址 · 显示目前站点在线人数 · ASP论坛在线人数统计研究 · 用ASP设计网站在线人数统计程序 · 一种在线人数统计方式(只用1个APPLICATION) |
![]() ![]() |
快精灵印艺坊 版权所有 |
首页![]() ![]() ![]() ![]() ![]() ![]() ![]() |