ASP 类专题

228 阅读 0 评论 151 点赞

我是靠谱客的博主含糊月饼，最近开发中收集的这篇文章主要介绍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 函数，显示“释放对象”