一个Asp 类的模块（成员变量、成员函数、构造析构函数）

class flow_step
    dim tbname '公有成员变量,只能在类的函数内赋值
   dim form_id
    private stype '私有成员变量,只能在类的函数内赋值
   'const max_len只能在类的函数内使用const
    dim my_array(2) '定义数组

    '构造函数，可以在这里为成员变量进行初始化赋值
    private sub class_initialize()
        tbname=""
        form_id=1
        stype=0
        my_array(0)="Jan"
        my_array(1)="Feb"
    end sub

    '析构函数，可以在这里释放对象，自动执行
    private sub class_terminate()
        tbname=null
        form_id=null
        stype=null
        set my_array=nothing
    end

    '公有成员函数
    sub get_flow_step()
        response.write(tbname)
        response.write(form_id)
        call print_private_param()
    end sub

    '私有成员函数
    private sub print_private_param()
        response.write(stype)
    end  
end class


'调用方式
set flowstep=new flow_step '自动调用 class_initialize 函数
flowstep.tbname="table_1"
flowstep.form_id=1
flowstep.stype=0 '将发生错误,因为stype是私有变量
call flowstep.get_flow_step()
call flowstep.print_private_param() '将发生错误,因为print_private_param是私有函数
set flowstep=nothing '自动调用 class_terminate 函数