📄 17-4.cfm.htm
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Application事件</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>
<body>
<font FACE="宋体"><b>
<p ALIGN="JUSTIFY">Application事件</p>
</b></font><font FACE="宋体" SIZE="3">
<p ALIGN="JUSTIFY">和Session事件一样，Application也有两个时间Application_OnStart和Application_OnEnd，第一个事件在Application开始时触发，后者在结束时触发。</p>
<p ALIGN="JUSTIFY">什么时候application开始呢？不，不是网站一开始，是第一个请求Application的页面被调用。</p>
<p ALIGN="JUSTIFY">一个Application的OnStart事件肯定是在Session_Start事件之前的。不过，Application不会象Session那样在一个新用户请求后就触发，Application只触发一次，就是第一个用户的第一次请求。</p>
<p ALIGN="JUSTIFY">Application_OnEnd事件只有在服务终止或者该application卸载时才会触发，例如，你在Internet
Service Manager中关闭了网络服务。，那么Application_OnEnd事件就会触发，如果你针对单独目的使用application，这个事件可以通过application在利用Unload按钮卸载时进行触发。一个Application_OnEnd事件肯定发生在Session_OnEnd事件之后。</p>
<p ALIGN="JUSTIFY">Application_OnStart和Application_OnEnd事件都是触发一个也是唯一一个脚本程序。而且这些事件都在一个文件中，那就是在Session事件中提到的Global.asa文件，下面为了加深了解，再次给出其结构：</p>
<p ALIGN="JUSTIFY"><SCRIPT LANGUAGE=VBScript RUNAT=Server></p>
<p ALIGN="JUSTIFY">SUB Application_OnStart</p>
<p ALIGN="JUSTIFY">END SUB</p>
<p ALIGN="JUSTIFY"></SCRIPT></p>
<p ALIGN="JUSTIFY"><SCRIPT LANGUAGE=VBScript RUNAT=Server></p>
<p ALIGN="JUSTIFY">SUB Application_OnEnd</p>
<p ALIGN="JUSTIFY">END SUB</p>
<p ALIGN="JUSTIFY"></SCRIPT></p>
<p ALIGN="JUSTIFY"><SCRIPT LANGUAGE=VBScript RUNAT=Server></p>
<p ALIGN="JUSTIFY">SUB Session_OnStart</p>
<p ALIGN="JUSTIFY">END SUB</p>
<p ALIGN="JUSTIFY"></SCRIPT></p>
<p ALIGN="JUSTIFY"><SCRIPT LANGUAGE=VBScript RUNAT=Server></p>
<p ALIGN="JUSTIFY">SUB Session_OnEnd</p>
<p ALIGN="JUSTIFY">END SUB</p>
<p ALIGN="JUSTIFY"></SCRIPT></p>
<p ALIGN="JUSTIFY">有关Session的事件我们认为你已经在第16章学的很不错了，那么其余的两个就是我们现在要介绍的Application事件。</p>
<p ALIGN="JUSTIFY">这里面和Session事件一样限制的是，你不能使用HTML标志，不能进行任何输出，不能将语句写出子程序或者写成其他方式。因此，编写时要特别小心。</p>
<p ALIGN="JUSTIFY">Application_Onstart事件一般是用来初始化这个Application的变量，例如下面用Application_Onstart事件和Session_OnStart事件来进行访问人数统计：</p>
<p ALIGN="JUSTIFY"><Script Language=VBScript RUNAT=Server></p>
<p ALIGN="JUSTIFY">SUB Application_OnStart</p>
<p ALIGN="JUSTIFY">Application(</font><font SIZE="3">“</font><font FACE="宋体"
SIZE="3">TotalUsers</font><font SIZE="3">”</font><font FACE="宋体" SIZE="3">)=0</p>
<p ALIGN="JUSTIFY">END SUB</p>
<p ALIGN="JUSTIFY"></SCRIPT></p>
<p ALIGN="JUSTIFY"><SCRIPT Language=VBScript RUNAT=Server></p>
<p ALIGN="JUSTIFY">SUB Session_OnStart</p>
<p ALIGN="JUSTIFY">Application.Lock</p>
<p ALIGN="JUSTIFY">Application(</font><font SIZE="3">“</font><font FACE="宋体"
SIZE="3">TotalUsers</font><font SIZE="3">”</font><font FACE="宋体" SIZE="3">)=Application(</font><font
SIZE="3">“</font><font FACE="宋体" SIZE="3">TotalUsers</font><font SIZE="3">”</font><font
FACE="宋体" SIZE="3">)+1</p>
<p ALIGN="JUSTIFY">Application.Unclock</p>
<p ALIGN="JUSTIFY">END SUB</p>
<p ALIGN="JUSTIFY"></SCRIPT></p>
<p ALIGN="JUSTIFY">在Application_OnStart事件中只有一个语句将TotalUsers变量置0，只有网站开始后这个脚本才能执行。</p>
<p ALIGN="JUSTIFY">Session_OnStart事件在每一个用户到达后都都将TotalUsers加1，同时使用Lock方法防止冲突。</p>
<p ALIGN="JUSTIFY">这样，在你希望显示访问人数的页面上，加入下面脚本：</p>
<p ALIGN="JUSTIFY"><%=Application(</font><font SIZE="3">“</font><font FACE="宋体"
SIZE="3">TotalUsers</font><font SIZE="3">”</font><font FACE="宋体" SIZE="3">) %></p>
</font>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -