asp类中初始化时自动加载某些功能和用完后自动卸载某些功能

在使用asp开发时，如果我们使用了面向对象（OOP）的程序写法，我们就要用到asp类来实现。

在使用asp类的时候，我们希望在类初始化的时候加载某些功能，如连接数据库的功能。

或者在用完asp类后，我们要关掉某些功能，如释放浪费掉连接数据库，以免造成服务器资源被浪费。

这样，我们的类的写法如下：

<%
Class 类名
    '定义连接数据库的字符串'
    Private Conn

    '类初始化的时候自动运行Class_initialze中的代码
    Private Sub Class_Initialize()        
        set Conn = openConn() 
    End Sub

    '查询表中有记录数量，加入Public的函数，可供调用。
    Public Function Get_cat_Count()
        Dim Sql,pcount
        Sql="Select count(*) as t From 表名 Where 1=1"       
        pcount = Conn.Execute(sql)(0)
	    Get_cat_Count = pcount
   End Function

    '类结束自动执行Class_terminate中的代码
    Private Sub Class_terminate()
        set Conn = nothing
    End Sub

End Class
%>
原创文章，转载请注明来源www.aspbc.com，谢谢