CSDN博客

img onlytiancai

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

发表于2004/7/7 8:28:00  858人阅读

<!-- 蛙蛙推荐:写了个一个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)
%>

0 0

相关博文

我的热门文章

img
取 消
img