请教下..我创建了global.asa文件.然后代码如下..但是我在其他网页上引用application("onlinePeople")和那个"totalVisited"都为空...我的代码有什么问题么?..实在找不出来啊...
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
Application("onlinePeople") = 0
Application("totalVisited") = 0
End Sub
Sub Session_OnStart
Application.Lock()
Application("onlinePeople") = Application("onlinePeople") + 1
Application("totalVisited") = Application("totalVisited") + 1
Application.UnLock()
End Sub
Sub Session_OnEnd
if Application("onlinePeople") >= 1 then
Application.Lock()
Application("onlinePeople") = Application("onlinepeople") - 1
Application.Unlock()
end if
End Sub
Sub Application_OnEnd
End Sub
</SCRIPT>
引用页的代码如下
<%
response.Write("当前在线的人数为:")
response.Write(Application("onlinePeople")&"<br>")
response.Write("你是本站的第"&Application.Contents("totalVisited")&"访客")
%>
