一个ASP函数返回值问题

ASP里以下代码为什么不打印"is Empty"字符串呢?照理应该是nothing的吧.
望高手指引.
VB code:

public function test(conn)
set conn = server.createobject("adodb.recordset")
set test = conn
set conn = nothing
end function

dim dbconn : set dbconn = nothing
set abc = test(dbconn)

if abc is nothing then
Response.write "is Empty"
end if

---

好好看看VBScript手册吧！

---

是不是想关闭结果集和连接.给你个参考:
VBScript code:

Function OpenDB()
Set dbConn = Server.CreateObject("ADODB.Connection")
dbConn.ConnectionTimeout = Application("dbConn_ConnectionTimeout")
dbConn.CommandTimeout = Application("dbConn_CommandTimeout")
dbConn.Open Application("dbConn_ConnectionString")
End Function

Function CloseDB()
Set rs = Nothing
if ucase(TypeName(dbConn)) = "CONNECTION" then
dbConn.Close
Set dbConn = Nothing
end if
End Function

Function OpenRecordSet(recset, tablename)
Call OpenDB()
Set recset = Server.CreateObject("ADODB.Recordset")
recset.Open tablename, dbConn, 0, 1
End Function

Function