您的位置:首页 > 编程语言 > ASP

asp class

2020-03-02 03:01 896 查看

class MyClass


'定义个数组 测试下 函数返回数组的问题
Private myrs(2,2)

'构造函数, 类的初始化,创建类的时候 set obj = new MyClass 执行

[@more@]

Private Sub Class_Initialize()
response.Write "类的初始化事件:Class_Initialize
"
myrs(0,0) = "0,0"
myrs(0,1) = "0,1"
myrs(1,0) = "1,0"
myrs(1,1) = "1,1"
End Sub

'析构函数,在使用 set nothing 释放对象时,自动执行
Private Sub Class_Terminate()
response.Write "释放对象 事件:Class_Terminate
"
end sub


'---------------------------------------------------


'Asp 类 属性
'定义一个私有变量
Private pvt

'属性写
Public Property Let PropName(byval v)
pvt = v
End Property
'属性读
Public Property Get PropName()
PropName = pvt
End Property

'---------------------------------------------


'这个是私有函数,不能被外界调用 Function 能返回值
Private Function Hello()
Hello = "Hello World!
"
End Function


'这个是公有函数,能被外界调用 Sub 不能返回值
'这个就是方法
Public Sub PrintHello()
response.Write Hello()
end sub

'数组测试 主要是为了测试 函数返回值对数组的支持
Public Function getmyrs(byval i, byval j)
getmyrs = myrs(i,j)
end Function



end class


'定义个对象
dim obj
'创建个对象
set obj = new MyClass


'对象的属性操作
obj.PropName = "对象属性测试
"
'对象属性输出
response.write obj.PropName

'测试对象对数组的支持
response.write "对象数组属性测试,内容为:" & obj.getmyrs(0,0) & "
"

call obj.PrintHello
set obj = nothing


'--------------------------------------------------------------
'ASP 类的功能实在有限,所以有时我们要实现复杂的功能,只好用组合来实现。
'
' ** 类 组 合 **
'
'--------------------------------------------------------------
class CFish
sub Swim()
response.write "触发游泳事件:我是小鱼,我现在正在游泳!
"
end sub
end class
class CBird
sub Fly()
response.write "触发飞翔事件:我是小鸟,我现在正在飞翔!
"
end sub
end class
class CAnimal
dim fish
dim bird
private sub class_initialize()
response.write "
此类是为测试 类的组合而做的测试
"
response.write "动物对象 初始化事件:class_initialize
"
response.write "自动创建一条鱼完成
"
response.write "自动创建一只鸟完成
"
set fish = new CFish
set bird = new CBird
end sub
private sub class_terminate()
response.write "动物对象 撤销事件:class_initialize
"
response.write "自动撤销一条鱼完成
"
response.write "自动撤销一只鸟完成
"
set fish = nothing
set bird = nothing
end sub
end class
dim animal
set animal = new CAnimal
call animal.fish.Swim() '鱼游
call animal.bird.Fly() '鸟飞
set animal = nothing

'类组合结束
%>

下面是输出的结果:类的初始化 事件:Class_Initialize
对象属性测试
对象数组属性测试,内容为:0,0
Hello World!
释放对象 事件:Class_Terminate

此类是为测试 类的组合而做的测试
动物对象 初始化 事件:class_initialize
自动创建一条鱼 完成
自动创建一只鸟 完成
触发游泳事件:我是小鱼,我现在正在游泳!
触发飞翔事件:我是小鸟,我现在正在飞翔!
动物对象 撤销 事件:class_initialize
自动撤销一条鱼 完成
自动撤销一只鸟 完成

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10291852/viewspace-995616/,如需转载,请注明出处,否则将追究法律责任。

转载于:http://blog.itpub.net/10291852/viewspace-995616/

  • 点赞
  • 收藏
  • 分享
  • 文章举报
csdnww1130 发布了0 篇原创文章 · 获赞 0 · 访问量 195 私信 关注
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: