📄 ch11-03-01.aspx
字号:
<Html>
<Head>
<TITLE>Ch11-03-01.aspx Application变量的使用</TITLE>
</Head>
<Body>
<%
' 初始化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期间<BR>")
Else
Response.Write("维持同一个Session期间<BR>")
End If
%>
浏览网页的人数：<%=Application("Page_Counter")%> 人次<BR>
</Body>
</Html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -