Ch11-03-01.aspx Application变量的使用
' 初始化Application变量
If IsNothing(Application("Page_Counter")) Then
Application.Lock
' 到访人数初始化
Application("Page_Counter")=0
Application.Unlock
End If
Application.Lock
' 浏览网页的次数加 1
Application("Page_Counter")=Application("Page_Counter")+1
Application.Unlock
If Session.IsNewSession = True Then
Response.Write("打开新的Session期间")
Else
Response.Write("维持同一个Session期间")
End If
%>
浏览网页的人数: 人次