实时统计在线人数--asp编程技术

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>

如何拒绝同一张表单被多次提交？2006-4-21

如何在SQL语句中查寻最近几天的记录2006-4-21

非常详细的IFRAME属性详细介绍参考手册2006-4-21

css网页滚动条样式设置2006-4-21

网页设计师的素质2006-4-21

实时统计在线人数2006-4-21

如何获知页面上的图象的实际尺寸？2006-4-21

如何使图象随机显示？2006-4-21

如何使用表单发送电子邮件？2006-4-21

如何实现电子邮件的自动发送？2006-4-21