在ASP中使用类，实现模块化

首先，我要在这里写上一些很官方的概念，意在说明面向对象是很具体化的，很实体的模式，不能让有些人看见“对象”就被吓跑了。

 对象就是能看到，感到，听到，触摸到，尝到或闻到的东西，在这里我们这样“定义”：对象是一个自包含的实体，用一组可识别的特性和行为来标识。
 在面向对象的(oop)的编程方式，用使用下面的两个术语。
类：这是对象的模板，定义了对象的特性。
实例：这是一个真实的对象，可以与之交互的东西。

属性，方法和事件

在oop中，下面的术语描述对象的特性
属性：这是一个名次，描述了某个对象的属性
方法：这是一个动词，描述了对象可以完成的工作，或者希望它完成的工作。
事件：描述了对象为相应某个动作而执行的操作。
在编程时，对象的面向对象编程和面向对象设计的一部分，它们具有非常大的优势，许多人认为这是一个复杂的主题，但实际上，它非常简单，可以用四个简单的术语来解释：抽象、封装、多态和继承。
抽象：这是一个隐藏复杂性，类的内部工作情况，所以用户不必知道它的运作方式，就像。如果想要看电视，就不必知道电视机时如何工作的，只需打开电视机，搜索频道即可，on/off开关抽象了实际的操作，在string例子里，有一个trim方法，它可以删除字符串尾部的空格，同样不需要知道他是如何完成这个任务的，只要知道它有这个功能即可。

封装：每个对象都包含进行操作所需要的所有信息，这个对象称为封装，因此对象不比依赖其他对象来完成自己的操作，在术语toupper()方法中，string不必到其他地方获取信息来把所有的字符转换为大写。

多态：这个术语用于表示不同的对象可以执行相同的动作，但要通过他们自己的实现代码来执行，名称一样，但底层实现的代码是不一样的。

继承：它定义了类如何相互关联，共享特性的，继承的工作方式是，定义类和子类，其中子类继承了父类的所有特性，继承的重要性是，它迫使类型相似的类具有一致性，并允许共享代码，如果决定创建一个新类，就不必定义父类的所有特性。

下面我通过举上几个简单的例子说明一下，注意，这里强调的是一种思想，如果在您开发asp网站的时候能用一个类（基类）展开的话，这是很有必要的（也是很有难度的）。

我们先选择一个简单的例子：

我们要显示经典用户的信息，当输入用户的id以后能，显示出该用户的一些信息，这是一个过程，可以这样考虑，我们把用户当作一个对象，他有的属性是id，性别,积分，权限，实现的方法有显示这些信息，ok，这样写：

class blueidea
        private bname,bpoint,bsex,blevel
...................
end class

这里先声明了一个名为 blueidea的类，接着是一些私有变量，用于存储blueidea类的属性，这些变量在代码的外部不能访问,这就是数据保护，要定义这些变量，使用了property语句获得值间接的付给私有变量。...

-----------------------------------------------------------------
property get getname
        getname=bname
        end property
        
property let getname(nameid)
        bname=nameid
        if nameid="" then
        bname="没注册用户"
        end if
        end property
------------------------------------------------------------------        
property get getsex
        getsex=bsex
        end property
        
property let getsex(sex)
        bsex=killint(sex,0,0)
        if bsex=0 then
        bsex="男"
        else
        bsex="女"
        end if
        end property
------------------------------------------------------------------        
property get getpoint
        getpoint=bpoint
        end property
        
property let getpoint(point)
        bpoint=killint(point,0,0)
        end property
------------------------------------------------------------------

这里有个killint函数，是判断数据合法性的，它的原形是：

        private function killint(i,killstr,killsub)
        if not isnumeric(i) then
        i=killstr
        elseif i<=0 then
        i=killsub
        end if
        killint=int(left(i,5))
        end function

该函数功能很明确，不再繁琐说。

由于我们要通过积分判断用户级别，这里定义了一个私有函数：

private function getlevel()
        bpoint=killint(bpoint,0,0)
        if bpoint<500 then
        blevel="初级会员"
        elseif bpoint>=500 and     bpoint<=100 then
        blevel="高级会员"
        else
        blevel="终极会员"
        end if
        getlevel=blevel
        end function

我们要得是回送用户的信息，必须定义一个public公用函数，显示信息：

public function showuser()
        response.write("<h5>以下显示<font color=red>"&bname&"</font>的资料:</h5>")
        response.write("<h5>性别:<font color=red>"&bsex&"</font></h5>")
        response.write("<h5>积分:<font color=red>"&bpoint&"</font></h5>")
        getlevel
        response.write("<h5>级别:<font color=red>"&blevel&"</font></h5>")
        end function
end class

使用这个类的时候这样使用：（我在这里写了一个表单处理的）

     set blueideauser=new blueidea
    blueideauser.getname=trim(request("id"))
    blueideauser.getsex=request("sex")
    blueideauser.getpoint=request("point")
    blueideauser.showuser