还没想到有什么作用吧。来，我们先看一个例子”多人聊天室“。 现在我们所做的例子使用APPLICATION对象来实现的。 （由于环境所限制，测试不能在这里进行，请你把源代码放到你的机器进行测试，请体谅！）

global.asa 下载该源代码

< SCRIPT LANGUAGE=VBScript RUNAT=Server>
sub Application_OnStart
application("Msg1")=""
application("Msg2")=""
application("Msg3")=""
application("Msg4")=""
application("Msg5")=""
application("SessionNo")=0
end sub

sub Application_OnEnd

end sub

Sub Session_OnStart
Application.Lock
Application("SessionNo")=Application("SessionNo")+1
Application.UnLock End Sub sub Session_OnEnd
Application.Lock
Application("SessionNo")=Application("SessionNo")-1
Application.UnLock
end sub

< /SCRIPT>

chat.asp

< %@ Language=VBScript %>
< HTML>
< HEAD>
< META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
< /HEAD>

< BODY>
< FORM METHOD=POST>
< % if Session("name")="" Then%>
名字：< INPUT NAME="name" Size=10> < BR>
< % end if%>
说话：< Input name="chat" size=30> < input type=submit value="发送"> < HR>
共有< %=Application("SessionNo")%> 在线< BR> < BR>

< % if Request.Form("name")< > "" then Session("name")=Request.Form("name") end if
if Request.Form("chat")< > "" then
Application("Msg5")=Application("Msg4")
Application("Msg4")=Application("Msg3")
Application("Msg3")=Application("Msg2")
Application("Msg2")=Application("Msg1")
Application("Msg1")="< BR> " +Session("name")+"< /B> :"+Request.Form("chat") end if %>

< %=Application("Msg1")%>
< %=Application("Msg2")%>
< %=Application("Msg3")%>
< %=Application("Msg4")%>
< %=Application("Msg5")%>
< /BODY>
< /HTML>

当你启动一个浏览器浏览该页时，在线人数加一，在线人数的累加是通过以下的代码实现的。 Sub Session_OnStart Application.Lock Application("SessionNo")=Application("SessionNo")+1 Application.UnLock End Sub 每当你启动一次浏览器（当然需要浏览该页了），WEB SERVER 就自动执行 Session_OnStart 事件 当用户超时（前面已经讲过了 SESSION）或执行 Abandon 时，便执行 Session_OnEnd 事件。

而为什么要执行Application.lock 该语句呢？由于WEB 上许多人在共享该变量，当用LOCK锁起 来时，其他的用户就不能使用，非得该用户完成 Application("SessionNo")=Application("SessionNo")+1 和 Application.UnLock ，其他用户才能使用该变量。这样做是为了多人访问时，不至于变量之间 的冲突。当一个SESSION结束时，在线人数减一，就是通过以下代码实现： sub Session_OnEnd Application.Lock Application("SessionNo")=Application("SessionNo")-1 Application.UnLock end sub 现在明白了如何统计在线人数吧（当然还有许多种方法可以实现） if Request.Form("name")< > "" then Session("name")=Request.Form("name") end if 而以上的这段代码是当你输入名称后，把你的名称放到 Session("name") 中存储，以后就可以通过 使用该变量来显示不用用户的名称了。 以下的代码就是存放每个人所说的话的：

if Request.Form("chat")< > "" then
Application("Msg5")=Application("Msg4")
Application("Msg4")=Application("Msg3")
Application("Msg3")=Application("Msg2")
Application("Msg2")=Application("Msg1")
Application("Msg1")="< BR> " +Session("name")+"< /B> :"+Request.Form("chat")
end if

由于每个用户所说的话存放到APPLICATION对象中，必须通过以下的语句显示出来：

< %=Application("Msg1")%>
< %=Application("Msg2")%>
< %=Application("Msg3")%>
< %=Application("Msg4")%>
< %=Application("Msg5")%>

其他的代码不用我多说了吧！这只是一个简单聊天室的雏形，你需要发挥你的努力才能做出出色的聊天室哦！