繁體中文当前位置: 首页 > 图文教程 > 网络编程 > 编程10000问 > 统计在线人数是实时的吗？
- 编程10000问
- 如何计算下载一个文件需要多长时间？
- 如何检测用户第一次访问我的网站并显示友好信息？
- 如何判断URL格式是否符合规范？
- 如何取得服务器上的用户组列表？
- 如何显示数据库的结构？
- 如何显示最后十名来访者？
- 如何显示随机信息？
- 如何向前端推送用户请求的信息？
- 如何修改被表单引用的ASP页面？
- 如何验证IP地址？
- 如何用ASP建立Index Server查询对象并为其参数赋值？
- 如何用ASP输出HTML文件？
- 如何用表单的方式推送请求的信息？
- 如何远程读取数据库页面？
- 如何在ASP里显示进度条？
- 如何自动更新导航栏？
- 如何阻止别人非法链接你网站的图片？
- 怎样获知数据库的连接属性？
- 如何按时间显示最新标志
- 禁止站外提交表单(author:killer)
编程10000问 中的 统计在线人数是实时的吗？
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2010-01-10 浏览: 31 ::
收藏到网摘: n/a
global.asa
<script LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
Application("ActiveUsers") = 0
' 从0开始计起.不过你可以把它设得更多哦,这样即使没人在线,人家一来你网站还会看到有900多人在线呢.
End Sub
Sub Session_OnStart
Session.Timeout = 20
' 把Session超时设为30分钟——这是噱头之关键所在,你想设多少就设多少.
Session("Start") = Now
' Session 开始时间
Application.Lock
Application("ActiveUsers") = Application
("ActiveUsers") + 1
Application.UnLock
' 挨个儿统计真实的访问人数.
End Sub
Sub Session_OnEnd
Application.Lock
Application("ActiveUsers") = Application
("ActiveUsers") - 1
Application.UnLock
End Sub
</script>
[1]
评论 (0) All
