| ASP讲座之三：Application对象与Session对象__教程 |
|
| 日期：2007-5-20 0:33:36 人气：54 [大 中 小] |
|
|
|
|
|
3． 注意在Response.Write中显示双引号的表示方法：(""Out"")。
4． 特别提醒：该程序没有实用性，仅供调试用（仅适用于只有一个用户浏览的情况），请思考这是为什么？答案见本文末。
提示：请注意Application对象的特性。
三、一个经典的实例：如何在网页上显示在线人数
在下面的例子中，用Application("Online")来存放在线人数，用Application("CountAll")存放总访问人数。
原理：当一个新用户浏览网页时，发生Session_OnStart事件，在线人数加1，访问用户数也加1。当某用户离开时，会话超时后会发生Session_OnEnd事件，在线人数减1。
Global.asa代码如下：
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
' Global.asa - wuf21.asp
Sub Application_OnStart
Application.Lock
'在这里读出Application("CountAll")的初始值
Application.UnLock
End Sub
Sub Session_OnStart
Application.Lock
Application("Online") = Application("Online") + 1
Application("CountAll") = Application("CountAll") + 1
Application.UnLock
End Sub
Sub Session_OnEnd
Application.Lock
Application("Online") = Application("Online") - 1
Application.UnLock
End Sub
Sub Application_OnEnd
Application.Lock
'应该在这里将Application("CountAll")保存到文件中
Application.UnLock
End Sub
</SCRIPT>
Wuf21.asp代码如下：
<%@ Language=VBScript %>
<HTML>
<BODY>
<%Session.Timeout = 5%>
<P>在线人数: <%= Application("Online")%></P>
<P>访问总人数: <%= Application("CountAll")%></P>
</BODY>
</HTML>
请注意将本例程与wuf17.asp对比，后者是计算点击数，而前者是计算访问人数。
答案：由于Applicaton对象适用于所有用户，所以在多用户的情况下，其他用户的浏览也会改变Application(“In”)和Application(“Out”)的值。 |
|
|
| 出处：本站原创 作者：佚名 |
|
|
