global.asa
<script LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
' Sub Application_OnStart 是好在服务器每次启动的时候激活的方法.
Session.Timeout = 3
' 定义用户在线时间,如果在定义时间内没有活动连接,则删掉他的session 变量实例,将其注销.
Application.Lock
' 用.Lock 方法锁住Application 变量以继续运行.如果不锁,那么它在变量 "WhosOn"中不会发生变化.
Application("WhosOn") = 0
' 变量从0开始.
Application.UnLock
' 给application解锁.
End Sub
Sub Session_OnStart
' Sub Session_OnStart 检测每一时刻新来的用户.
Application.Lock
Application("WhosOn") = Application("WhosOn") + 1
Application.UnLock
' 此处是用户造访时增加的计数,记住锁/开Application变量.
End Sub
Sub Session_OnEnd
' Sub Session_OnEnd 检测每一时刻退出网站的用户,并在Session:Timeout in 定义退出后几分钟内仍计数.
Application.Lock
Application("WhosOn") = Application("WhosOn") - 1
Application.UnLock
' 当有用户退出时我们要在"WhosOn" 变量中减少1个数,同样要对application 变量进行锁/开.
End Sub
</script>
count.asp
<%
response.write "这会儿有" & Application("WhosOn") & "人正在随风起舞流连忘返呢!"
%>
[1]
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
更新日志
- 小骆驼-《草原狼2(蓝光CD)》[原抓WAV+CUE]
- 群星《欢迎来到我身边 电影原声专辑》[320K/MP3][105.02MB]
- 群星《欢迎来到我身边 电影原声专辑》[FLAC/分轨][480.9MB]
- 雷婷《梦里蓝天HQⅡ》 2023头版限量编号低速原抓[WAV+CUE][463M]
- 群星《2024好听新歌42》AI调整音效【WAV分轨】
- 王思雨-《思念陪着鸿雁飞》WAV
- 王思雨《喜马拉雅HQ》头版限量编号[WAV+CUE]
- 李健《无时无刻》[WAV+CUE][590M]
- 陈奕迅《酝酿》[WAV分轨][502M]
- 卓依婷《化蝶》2CD[WAV+CUE][1.1G]
- 群星《吉他王(黑胶CD)》[WAV+CUE]
- 齐秦《穿乐(穿越)》[WAV+CUE]
- 发烧珍品《数位CD音响测试-动向效果(九)》【WAV+CUE】
- 邝美云《邝美云精装歌集》[DSF][1.6G]
- 吕方《爱一回伤一回》[WAV+CUE][454M]