蛙蛙推荐:写了个一个vbs类的模板

本文链接：https://blog.youkuaiyun.com/onlytiancai/article/details/35814

博客给出了一个VBS类的模板，详细介绍了类的创建、私有变量、初始化与清空事件、属性设置与获取，以及方法定义等内容。还展示了类的实例化、属性设置与访问、方法调用等操作，方便后续直接套用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

<%
'*********************************************************
' 目的：vbs类的模板,写类的时候直接套用就可以了.
' 作者:天极.蛙蛙王子
' 变量:WawaValue(私有变量)
'      name(过程级变量)
' 属性：propertywawa(设置或获取WawaValue的值)
' 方法：functionwawa(返回一个招呼词语和一个名字)
'*********************************************************
Class wawa                                                         '创建一个名为wawa的类
private WawaValue                                              '创建一个内部私有变量

Private Sub Class_Initialize()                                 '定义类的初始化事件
  Response.Write("wawa类被创建了<br>")
  WawaValue=1
End Sub
Private Sub Class_Terminate   ' 设置 Terminate 事件。           '定义类的清空事件
  Response.Write("<br>wawa类被清空了")
    End Sub

Public Property Let propertywawa(ByVal wawa_arg)               '定义类的一个let属性
  WawaValue=wawa_arg
End Property
Public Property Get propertywawa()                             '定义一个类的get属性
  propertywawa=WawaValue
End Property

Public Function functionwawa(ByVal wawa_arg)                   '定义个一个类的方法
  Dim name,value
  name="蛙蛙"
  functionwawa=wawa_arg+name
End Function
End Class
Dim a,b,c
Set wawaTemp=new wawa                                             '实例化类
wawaTemp.propertywawa="Hello,蛙蛙"                                 '设置类的属性
a=wawaTemp.propertywawa                                           '访问类的属性
b=wawaTemp.functionwawa("GoodBey")                                '访问类的方法
Response.Write(a)
Response.Write("<br>")
Response.Write(b)
%>