[原创] 自动关闭数据库连接 Conn

在我们写ASP程序的过程中，总有一些粗心的程序员会忘记关掉数据库连接。
这样会浪费服务器的资源。

我试了试，通过如下的方法可以实现Conn对象的自动关闭：
代码如下：
'' 文件：Conn.asp

< %@LANGUAGE = " VBSCRIPT "  CODEPAGE = " 936 " % >
< %
' option explicit
dim  dataname,starttime,conn,db
response.buffer = true
starttime = timer () * 1000

  Dim  connstr
  db = " testdb.mdb "
  connstr = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "   &  Server.MapPath(db)
  On   Error   Resume   Next
 
 class ClsConn
   Private   Sub  Class_Initialize()
    On   Error   Resume   Next
    Set  conn  =  Server.CreateObject( " ADODB.Connection " )
   conn.Open connstr
    If  Err  Then
    err.Clear
     Set  Conn  =   Nothing
    Response.Write  " Sorry! 数据库连接出错，请检查连接字串。 "
    Response.End
    End   If
   Response.write( " conn Open " )
   End Sub

   Private   Sub  Class_Terminate()
    if   isobject (conn)  then
    conn.close()
    Response.write( " conn Close " )
    end   if
   End Sub
  end  class

  dim  objClsConn
  set  objClsConn =   new  ClsConn

% >