<%
Dim Cms
Set Cms = New Cms_Core

Class Cms_Core
    Public Tpl, Lib, Fun

    '构造函数开始

    Private Sub Class_Initialize()
        Set Tpl = New Cms_Tpl
        Set Lib = New Cms_Lib
        Set Fun = New Cms_Fun
    End Sub

    '析构函数开始

    Private Sub Class_Terminate()
        Easp.C(Tpl)
        Easp.C(Lib)
        Easp.C(Fun)
    End Sub

End Class
%>
<!--#include file="Cms.Tpl.Asp"-->
<!--#include file="Cms.Lib.Asp"-->
<!--#include file="Cms.Fun.Asp"-->