不错呦!smile@林凯西,确保“准备文件”中的几个文件都有安装,S...您好,看了您这篇帖子觉得很有帮助。但是有个问题想请...我的修改过了怎么还被恶意注册呢 @jjjjiiii 用PJ快9年了,主要是A...PJ3啊,貌似很少有人用PJ了,现在不是WP就是z...@332347365,我当时接入时错误码没有-10...楼主,ChkValue值应为-103是什么意思呢?...大哥 你最近能看到我发的信息,请跟我联系,我有个制...
怎么判断一个对象是否已被释放
编辑:dnawo 日期:2007-11-01
复制内容到剪贴板
程序代码

<%
Dim conn'声明
Set conn = Server.CreateObject("ADODB.Connection")'创建
'使用
Set conn = Nothing'释放
%>
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
%>
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
%>
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)
评论: 0 | 引用: 0 | 查看次数: 4078
发表评论
请登录后再发表评论!