VBS 类模板

Class nic                                                       '创建一个名为nic的类
    Private WawaValue                                           '创建一个内部私有变量
    
    Private Sub Class_Initialize()                              '定义类的初始化事件
        Response.Write("nic类被创建了<br>")
        WawaValue=1
    End Sub
    
    Private Sub Class_Terminate  ' 设置 Terminate 事件。        '定义类的清空事件
        Response.Write("<br>nic类被清空了")  
    End Sub
    
    Public Property Let propertynic(ByVal nic_arg)              '定义类的一个let属性
        WawaValue=nic_arg
    End Propert
    Public Property Get propertynic()                           '定义一个类的get属性
        propertynic=WawaValue
    End Property
    
    Public Function functionnic(ByVal name)                     '定义个一个类的方法
        Dim Hello
        Hello="Hello "
        functionnic=Hello+name
    End Function
End Class