Application的多种值判断测试程序

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)