一个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 函数