当前位置: 首页 > 图文教程 > 网络编程 > ASP > 在ASP中使用类,实现模块化

ASP
ASP基础讲座(下)
解决IIS5 HTTP500内部错误
ASP 3.0高级编程(四十六)
ASP 3.0高级编程(四十五)
ASP 3.0高级编程(四十四)
ASP 3.0高级编程(四十三)
ASP 3.0高级编程(四十二)
ASP 3.0高级编程(四十一)
ASP 3.0高级编程(三十九)
ASP 3.0高级编程(三十八)
ASP 3.0高级编程(三十七)
ASP 3.0高级编程(三十六)
ASP 3.0高级编程(三十五)
ASP 3.0高级编程(三十四)
ASP 3.0高级编程(三十三)
ASP 3.0高级编程(三十二)
ASP 3.0高级编程(三十一)
ASP错误代码说明
jscript错误代码及相应解释大全
ASP错误处理

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-08-14   浏览: 91 ::
收藏到网摘: n/a

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

以下为引用的内容:

对象就是能看到,感到,听到,触摸到,尝到或闻到的东西,在这里我们这样“定义”:对象是一个自包含的实体,用一组可识别的特性和行为来标识。
 在面向对象的编程(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