Application的多种值判断测试程序

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