网页代码之家

如果要再类里面使用CreateObject，可以在
Initialize过程里创建对象，
在Terminate里面释放对象
Class Test
Private oCnn
Private Sub Class_Initialize()
Set oCnn=Server.CreateObject("ADODB.Connection")
oCnn.ConnectionString="........"
oCnn.Open
End Sub
Private Sub Class_Terminate()
oCnn.Close
Set oCnn=Nothing
End Sub
Public Function TestFunc(sqlStr)
Set TestFunc=oCnn.Execute(sqlStr)
End Functino
End Class

CLASS_initialize初始化变量，CLASS_terminate释放内存