class MyClass
'定义个数组 测试下 函数返回数组的问题
Private myrs(2,2)
'构造函数, 类的初始化,创建类的时候 set obj = new MyClass 执行
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
'类组合结束
%>
对象属性测试
对象数组属性测试,内容为: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/