Application的多种值判断测试程序

最新推荐文章于 2024-09-16 15:46:12 发布

转载最新推荐文章于 2024-09-16 15:46:12 发布 · 132 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/lykouyi/p/5687908.html

本文演示了如何在 ASP.NET 中操作 Application 对象的变量，包括移除、检查类型和赋值等操作，这对于理解 Web 应用的全局状态管理至关重要。

Application.Contents.Remove("FriendLink")
Response.Write("Application.Contents.Remove(""FriendLink"")" & " " & vbnewline)
Response.Write("IsEmpty(Application(""FriendLink""))=" & IsEmpty(Application("FriendLink")) & " " & vbnewline)
Response.Write("IsNull(Application(""FriendLink""))=" & IsNull(Application("FriendLink")) & " " & vbnewline)
Response.Write("IsNumeric(Application(""FriendLink""))=" & IsNumeric(Application("FriendLink")) & " " & vbnewline)
Response.Write("IsDate(Application(""FriendLink""))=" & IsDate(Application("FriendLink")) & " " & vbnewline)
Response.Write("IsArray(Application(""FriendLink""))=" & IsArray(Application("FriendLink")) & " " & vbnewline)
Response.Write("Application(""FriendLink"")=""""===" & (Application("FriendLink")="") & " " & vbnewline)
Response.Write("IsObject(Application(""FriendLink""))=" & IsObject(Application("FriendLink")) & " " & vbnewline)
Application.Lock()
Application("FriendLink")=Null
Application.UnLock()
Response.Write("Application(""FriendLink"")=Null" & " " & vbnewline)
Response.Write("IsEmpty(Application(""FriendLink""))=" & IsEmpty(Application("FriendLink")) & " " & vbnewline)
Response.Write("IsNull(Application(""FriendLink""))=" & IsNull(Application("FriendLink")) & " " & vbnewline)
Response.Write("IsNumeric(Application(""FriendLink""))=" & IsNumeric(Application("FriendLink")) & " " & vbnewline)
Response.Write("IsDate(Application(""FriendLink""))=" & IsDate(Application("FriendLink")) & " " & vbnewline)
Response.Write("IsArray(Application(""FriendLink""))=" & IsArray(Application("FriendLink")) & " " & vbnewline)
Response.Write("Application(""FriendLink"")=""""===" & (Application("FriendLink")="") & " " & vbnewline)
Response.Write("IsObject(Application(""FriendLink""))=" & IsObject(Application("FriendLink")) & " " & vbnewline)
Application.Lock()
Application("FriendLink")=""
Application.UnLock()
Response.Write("Application(""FriendLink"")=""""" & " " & vbnewline)
Response.Write("IsEmpty(Application(""FriendLink""))=" & IsEmpty(Application("FriendLink")) & " " & vbnewline)
Response.Write("IsNull(Application(""FriendLink""))=" & IsNull(Application("FriendLink")) & " " & vbnewline)
Response.Write("IsNumeric(Application(""FriendLink""))=" & IsNumeric(Application("FriendLink")) & " " & vbnewline)
Response.Write("IsDate(Application(""FriendLink""))=" & IsDate(Application("FriendLink")) & " " & vbnewline)
Response.Write("IsArray(Application(""FriendLink""))=" & IsArray(Application("FriendLink")) & " " & vbnewline)
Response.Write("Application(""FriendLink"")=""""===" & (Application("FriendLink")="") & " " & vbnewline)
Response.Write("IsObject(Application(""FriendLink""))=" & IsObject(Application("FriendLink")) & " " & vbnewline)
Application.Lock()
Application("FriendLink")=0
Application.UnLock()
Response.Write("Application(""FriendLink"")=0" & " " & vbnewline)
Response.Write("IsEmpty(Application(""FriendLink""))=" & IsEmpty(Application("FriendLink")) & " " & vbnewline)
Response.Write("IsNull(Application(""FriendLink""))=" & IsNull(Application("FriendLink")) & " " & vbnewline)
Response.Write("IsNumeric(Application(""FriendLink""))=" & IsNumeric(Application("FriendLink")) & " " & vbnewline)
Response.Write("IsDate(Application(""FriendLink""))=" & IsDate(Application("FriendLink")) & " " & vbnewline)
Response.Write("IsArray(Application(""FriendLink""))=" & IsArray(Application("FriendLink")) & " " & vbnewline)
Response.Write("Application(""FriendLink"")=""""===" & (Application("FriendLink")="") & " " & vbnewline)
Response.Write("IsObject(Application(""FriendLink""))=" & IsObject(Application("FriendLink")) & " " & vbnewline)