在ASP中判断一个对象是否已被释放

<%
Dim conn  '声明
Set conn = Server.CreateObject("ADODB.Connection")  '创建
'使用
Set conn = Nothing  '释放
%>

我们通常用如上的形式来创建一个对象，并使用和释放它，问题是我们怎么去判断一个对象是否已被释放了呢？用IsObject可以吗？我们来试下：

<%
Dim conn
Response.Write(IsObject(conn)) '结果为False
Set conn = Server.CreateObject("ADODB.Connection")
Response.Write(IsObject(conn)) '结果为True
Set conn = Nothing
Response.Write(IsObject(conn)) '结果为True
%>

可见并不能使用IsObject来判断一个对象是否已被释放，那我们用VarType或TypeName函数来试试看：

<%
Dim conn
Response.Write(TypeName(conn)) '结果Empty
Set conn = Server.CreateObject("ADODB.Connection")
Response.Write(TypeName(conn)) '结果Connection
Set conn = Nothing
Response.Write(TypeName(conn)) '结果Nothing
%>

所以，判断一个对象是否被释放我们应用：TypeName(conn) = "Nothing"
注意：一定要用Nothing不能用nothing，小写结果就不为True了。