软件开发培训班 >> 编程开发 >> ASP


ASP 类专题

　　本文标签：ASP,类专题

严格地说，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 函数，显示“释放对象”