严格地说,ASP并不是一门编程语言,所以不存在类这一概念,我们这里说ASP类是指ASP的编程语言VBScript在ASP里应用时的类。
ASP类比较简单,它不具有真正意义类的继承、重载等特性,尽管如此,它仍然是非常有用的,它降低了我们编程的复杂度,使我们的程序模块更加合理。
ASP类支持什么ASP类比较简单,它不具有真正意义类的继承、重载等特性。它支持以下内容:
公有成员变量、私有成员变量、属性
公有成员函数、私有成员函数
构造函数、析构函数
创建和使用一个最简单的ASP类一些初学者不理解类和对象的区别,打个比方,类好比是图纸,对象好比是根据图纸制作出的实物。该示例给出了ASP类及对象的简单示例,该类仅含有一个成员函数,用以解释类的基本格式,并给出创建、释放对象的方法。详细内容ASP类成员变量、成员函数、构造析构函数这是一个比较完整的类讲解,所有的讲解都有注释的方式写在程序的旁边。通过阅读本节,对ASP类有一个较为全面的理解,可以进行ASP类模块的开发。详细内容ASP类属性ASP类属性与ASP类公有成员变量相比具有以下一些特点。
可以在赋值的同时执行其它功能
可以确定赋值范围
可以将设定只读、只写属性
所以ASP类属性也是比较常用且重要的。详细内容ASP类组合ASP类的功能实在有限,所以有时我们要实现复杂的功能,只好用组合来实现。
创建一个最简单的ASP类
classCFoo
subPrintHello()
response.Write"HelloWorld!"
endsub
endclass
可以看出,ASP类的基本结构是:
class类名
类代码
endclass
使用一个最简单的ASP类
dimobj
setobj=newCFoo'使用setnew创建对象,由于不是服务器组件,所以不能用server.CreateObject创建
callobj.PrintHello'对象名称后加点,再跟成员变量、属性或函数,表示调用该对象的成员变量、属性或函数,将显示HelloWorld!
setobj=nothing'释放对象
ASP类里不能重载构造函数,所以我们不能使用类似于setobj=newCFoo("param")的语句来创建类。
ASP类的功能实在有限,所以有时我们要实现复杂的功能,只好用组合来实现。
classCFish
subSwim()
endsub
endclass
classCBird
subFly()
endsub
endclass
classCAnimal
dimfish
dimbird
privatesubclass_initialize()
setfish=newCFish
setbird=newCBird
endsub
privatesubclass_terminate()
setfish=nothing
setbird=nothing
endsub
endclass
dimanimal
setanimal=newCAnimal
callanimal.fish.Swim()'鱼游
callanimal.bird.Fly()'鸟飞
setanimal=nothing
ASP类属性
classCFoo
privatepvt
'属性写
publicpropertyletpropName(v)
pvt=v
endproperty
'属性读
publicpropertygetpropName()
PropName=pvt
endproperty
endclass
dimobj
setobj=newCFoo
obj.propName="属性值"
response.Write(obj.propName)'显示“属性值”
setobj=nothing
可以看出属性值相当于是在私有成员变量与外界之间架了一座桥梁,使双方可以互相通信。
有人就会问属性跟公有成员变量一样,它的存在又有什么独立的意义呢?
1、可以在赋值的同时执行其它功能
如下代码,相当于同时为两个成员变量赋值
publicpropertyletpropName(v)
pvt=v
另一个私有成员变量名="pvt的值:"&v
endproperty
2、可以确定赋值范围
假如上例中的属性写改为如下:
publicpropertyletpropName(v)
ifLen(v)<=5then
pvt=v
endif
endproperty
执行obj.propName="个十百千万亿"将不会为pvt赋值成功,因为该字符串的长度超过了5。
3、可以将设定只读、只写属性
如上例中,假如我们将let函数去掉,调用obj.propName="属性值"就会出错,因为这时候函数只可读。
classCFoo
dimpublicParam'用dim申明公有成员变量
privateprivateParam'用private申明私有成员变量
'publicParam="公有"'不能在class标记以内、类函数以外为成员变量赋值
'constMAX_LEN=5'不能在class标记以内、类函数以外使用const
'该函数为构造函数,在使用setnew创建对象时,自动执行
privatesubclass_initialize()
publicParam="公有"'可以在这里为成员变量赋值
privateParam="私有"
endsub
'该函数为析构函数,在使用setnothing释放对象时,自动执行
privatesubclass_terminate()
response.Write"释放对象"
endsub
'公有成员函数(过程)
'成员函数(过程)不需要也不能申明
subPrintParam(index)
ifindex=1then
callPrintPublicParam()
elseifindex=2then
callPrintPrivateParam()
endif
endsub
'私有成员函数(过程)
'只是比公有成员函数(过程)多一个private
privatesubPrintPublicParam()
response.WritepublicParam
endsub
privatesubPrintPrivateParam()
response.WriteprivateParam
endsub
endclass
dimobj
setobj=newCFoo'自动调用class_initialize函数,为publicParam、privateParam赋值
obj.publicParam="新的公有"
obj.privateParam="新的私有"'将发生错误,因为privateParam是私有变量
callobj.PrintParam(1)'显示publicParam的值
callobj.PrintPublicParam()'将发生错误,因为PrintPublicParam是私有函数
setobj=nothing'自动调用class_terminate函数,显示“释放对象”