asp class

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/