📄 5-13.txt
字号:
P92 Global.asa在线人数的实现
global.asa
<script language=Vbscript runat=Server>
//程序运行初始化
Sub Application_onstart
'在线数量初始为0
Application("online")=0
End Sub
//每触发一个session ID 都会触发此事件,即每有一个新的客户端链接到此页都会触发些事件
Sub Session_Onstart
//设定session的有效时间为1秒
Session.timeout=1
//锁定Application,不允许其它程序对其进行修改
Application.lock
//在线数加一
Application("online")=Application("online")+1
//放开Application,允许其它程序对其进行修改
Application.Unlock
End sub
//每放弃一个session ID,可以是退出,可以是长时间不活动
Sub Session_onend
Application.lock
//在线数减一
Application("online")=Application("online")-1
Application.Unlock
End sub
//程序运行结束
Sub Application_onend
Application("online")=0
End sub
</script>
5-13.asp
<%
response.Write "<h3 align=center>在线人数:"&Application("online")&"</h3>"
%>
站点被web服务器加载后,计数器初始为0
当有新的客户端链接到网站,计数器就加一
当客户端离开,或者长时间不活动,计数器就减一
Application("online")存放的就是当前在线且活动的客户端
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -