<!-- 蛙蛙推荐:写了个一个vbs类的模板,以后大家用的时候直接套用就可以了,(如果你能看懂的话). -->
<%
'*********************************************************
' 目的: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)
%>
蛙蛙推荐:写了个一个vbs类的模板
最新推荐文章于 2023-02-18 22:53:32 发布