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 Property
 Public Property Get propertynic()                             '定义一个类的get属性
  propertynic=nicValue
 End Property
 
 Public Function functionnic(ByVal nic_arg)                   '定义个一个类的方法
  Dim name,value
  name="nn"
  functionnic=nic_arg+name
 End Function
End Class