看看我的代码
Global.asa
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
' 这里运用了Application_OnStart事件
' 在这里定义用户在线有效期的时间
Session.Timeout = 3
' 使用lock方法，防止多个用户同时修改变量值而造成的数据不真实
Application.Lock
' 给变量赋初值：0
Application("WhosOn") = 0
' 对application变量解锁
Application.UnLock
End Sub
Sub Session_OnStart
' 这里运用了Session_OnStart事件
' 在这里统计在线人数（千万不要忘了使用application变量的lock和 ' unlock方法）
Application.Lock
Application("WhosOn") = Application("WhosOn") + 1
Application.UnLock
End Sub
Sub Session_OnEnd
' 这里运用了Session_OnEnd事件
Application.Lock
Application("WhosOn") = Application("WhosOn") - 1
Application.UnLock
End Sub
</SCRIPT>
main.asp
<%
response.write "目前有" & Application("WhosOn") & " 位用户在这个页面。"
%>
为什么 我把这两个页面放在 根目录下 不起作用呢？
參考答案:response.write ("目前有" & Application("WhosOn") & " 位用户在这个页面。")试试
