当前位置：首页 > news >正文

Asp类

news 来源：原创 2024/4/28 3:53:12

严格地说，ASP 并不是一门编程语言，所以不存在类这一概念，我们这里说 ASP 类是指 ASP 的编程语言 VBScript 在 ASP 里应用时的类。
ASP 类比较简单，它不具有真正意义类的继承、重载等特性，尽管如此，它仍然是非常有用的，它降低了我们编程的复杂度，使我们的程序模块更加合理。
ASP 类支持什么 ASP 类比较简单，它不具有真正意义类的继承、重载等特性。它支持以下内容：
公有成员变量、私有成员变量、属性
公有成员函数、私有成员函数
构造函数、析构函数
创建和使用一个最简单的 ASP 类一些初学者不理解类和对象的区别，打个比方，类好比是图纸，对象好比是根据图纸制作出的实物。该示例给出了   ASP 类及对象的简单示例，该类仅含有一个成员函数，用以解释类的基本格式，并给出创建、释放对象的方法。详细内容 ASP 类成员变量、成员函数、构造析构函数这是一个比较完整的类讲解，所有的讲解都有注释的方式写在程序的旁边。通过阅读本节，对 ASP 类有一个较为全面的理解，可以进行   ASP 类模块的开发。详细内容 ASP 类属性 ASP 类属性与 ASP 类公有成员变量相比具有以下一些特点。
可以在赋值的同时执行其它功能
可以确定赋值范围
可以将设定只读、只写属性
所以 ASP 类属性也是比较常用且重要的。详细内容 ASP 类组合 ASP 类的功能实在有限，所以有时我们要实现复杂的功能，只好用组合来实现。
创建一个最简单的 ASP 类
class CFoo
     sub PrintHello()
         response.Write "Hello World!"
     end sub
end class
可以看出，ASP 类的基本结构是：
class 类名
     类代码
end class
使用一个最简单的 ASP 类
dim obj
set obj = new CFoo '使用 set new 创建对象，由于不是服务器组件，所以不能用 server.CreateObject 创建
call obj.PrintHello '对象名称后加点，再跟成员变量、属性或函数，表示调用该对象的成员变量、属性或函数，将显示 Hello World!
set obj = nothing '释放对象
ASP 类里不能重载构造函数，所以我们不能使用类似于 set obj = new CFoo("param") 的语句来创建类。
ASP 类的功能实在有限，所以有时我们要实现复杂的功能，只好用组合来实现。
class CFish
     sub Swim()
     end sub
end class
class CBird
     sub Fly()
     end sub
end class
class CAnimal
     dim fish
     dim bird
     private sub class_initialize()
         set fish = new CFish
         set bird = new CBird
     end sub
     private sub class_terminate()
         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
ASP 类属性
class CFoo
     private pvt
     '属性写
     public property let propName(v)
         pvt = v
     end property
     '属性读
     public property get propName()
         PropName = pvt
     end property
end class
dim obj
set obj = new CFoo
obj.propName = "属性值"
response.Write(obj.propName) '显示“属性值”
set obj = nothing
可以看出属性值相当于是在私有成员变量与外界之间架了一座桥梁，使双方可以互相通信。
有人就会问属性跟公有成员变量一样，它的存在又有什么独立的意义呢？
1、可以在赋值的同时执行其它功能
如下代码，相当于同时为两个成员变量赋值
     public property let propName(v)
         pvt = v
         另一个私有成员变量名 = "pvt 的值：" & v
     end property
2、可以确定赋值范围
假如上例中的属性写改为如下：
     public property let propName(v)
         if Len(v) <= 5 then
             pvt = v
         end if
     end property
执行 obj.propName = "个十百千万亿" 将不会为 pvt 赋值成功，因为该字符串的长度超过了 5。
3、可以将设定只读、只写属性
如上例中，假如我们将 let 函数去掉，调用 obj.propName = "属性值" 就会出错，因为这时候函数只可读。
class CFoo
     dim publicParam '用 dim 申明公有成员变量
     private privateParam '用 private 申明私有成员变量
     'publicParam = "公有" '不能在 class 标记以内、类函数以外为成员变量赋值
     'const MAX_LEN = 5 '不能在 class 标记以内、类函数以外使用 const
     '该函数为构造函数，在使用 set new 创建对象时，自动执行
     private sub class_initialize()
         publicParam = "公有" '可以在这里为成员变量赋值
         privateParam = "私有"
     end sub
     '该函数为析构函数，在使用 set nothing 释放对象时，自动执行
     private sub class_terminate()
         response.Write "释放对象"
     end sub
     '公有成员函数（过程）
     '成员函数（过程）不需要也不能申明
     sub PrintParam(index)
         if index = 1 then
             call PrintPublicParam()
         elseif index = 2 then
             call PrintPrivateParam()
         end if
     end sub
     '私有成员函数（过程）
     '只是比公有成员函数（过程）多一个 private
     private sub PrintPublicParam()
         response.Write publicParam
     end sub
     private sub PrintPrivateParam()
         response.Write privateParam
     end sub
end class
dim obj
set obj = new CFoo '自动调用 class_initialize 函数，为 publicParam、privateParam 赋值
obj.publicParam = "新的公有"
obj.privateParam = "新的私有" '将发生错误，因为 privateParam 是私有变量
call obj.PrintParam(1) '显示 publicParam 的值
call obj.PrintPublicParam() '将发生错误，因为 PrintPublicParam 是私有函数
set obj = nothing '自动调用 class_terminate 函数，显示“释放对象”