蛙蛙推荐:写了个一个vbs类的模板
2004-07-07 08:28
387 查看
<!-- 蛙蛙推荐:写了个一个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类的模板,写类的时候直接套用就可以了.
' 作者:天极.蛙蛙王子
' 变量: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)
%>
相关文章推荐
- 蛙蛙推荐:用脚本写一个支持模板的代码生成器
- 蛙蛙推荐:设计一个可超时的阻塞方法
- 蛙蛙推荐:刚写了一个开发计划,大家给提些意见
- 蛙蛙推荐:改进了一个DBAccess类,顺便说说啥是线程安全
- 推荐一个生成实体类的CodeSmith模板
- 推荐一个优秀的:研发多项目管理培训教材、相关参考模板、样例
- 蛙蛙推荐:asp提高首页性能的一个技巧
- 蛙蛙推荐:自己架设一个邮件服务器
- 蛙蛙推荐:写一个主键生成组件(服务)
- 蛙蛙推荐:设计一个Tracing组件
- 蛙蛙推荐:怎样获取一个表中所有字段的信息
- 推荐一个免费下载织梦模板的好网站
- 蛙蛙推荐:用javascript作一个通用向导
- 蛙蛙推荐:编写一个服务监控的软件
- 推荐一个模板引擎 - templateengine
- 蛙蛙推荐:一个程序员2012年技术学习总结 - 蛙蛙王子 - 博客园
- 蛙蛙推荐:写一个主键生成组件(服务)
- 第41篇 推荐一个jekyll博客模板
- 蛙蛙推荐:写了一个简单的延迟队列
- 蛙蛙推荐:一个公司的数据库开发规范.doc