快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

利用ASP显示当前在线人数

为了统计网站的在线人数,我们可以在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)
    微笑服务 优质保证 索取样品