当前位置:首页 >> 网络编程

ASP怎么谈到应用到类的?

先摘录天极网扬老师一篇文章中的一段:
面向对象的程序设计

  随着程序的设计的复杂性增加,结构化程序设计方法又不够用了。不够用的根本原因是“代码重用”的时候不方便。面向对象的方法诞生了,它通过继承来实现比较完善的代码重用功能。很多学生在应聘工作,面试的时候,常被问及一个问题“你来谈谈什么是面向对象的程序设计”,学生无言,回来问我,这个问题应该怎么回答。我告诉他,你只要说一句话就够了“面向对象程序设计是对数据的封装;范式(模板)的程序设计是对算法的封装。”后来再有学生遇到了这个问题,只简单的一句对答,对方就对这个学生就刮目相看了(学生后来自豪地告诉我的)。为什么那?因为只有经过彻底的体会和实践才能提炼出这个精华。

  面向对象的设计方法和思想,其实早在70年代初就已经被提出来了。其目的就是:强制程序必须通过函数的方式来操纵数据。这样实现了数据的封装,就避免了以前设计方法中的,任何代码都可以随便操作数据而因起的BUG,而查找修改这个BUG是非常困难的。那么你可以说,即使我不使用面向对象,当我想访问某个数据的时候,我就通过调用函数访问不就可以了吗?是的,的确可以,但并不是强制的。人都有惰性,当我想对 i 加1的时候,干吗非要调用函数呀?算了,直接i++多省事呀。呵呵,正式由于这个懒惰,当程序出BUG的时候,可就不好捉啦。而面向对象是强制性的,从编译阶段就解决了你懒惰的问题。

  巧合的是,面向对象的思想,其实和我们的日常生活中处理问题是吻合的。举例来说,我打算丢掉一个茶杯,怎么扔那?太简单了,拿起茶杯,走到垃圾桶,扔!注意分析这个过程,我们是先选一个“对象”------茶杯,然后向这个对象施加一个动作——扔。每个对象所能施加在它上面的动作是有一定限制的:茶杯,可以被扔,可以被砸,可以用来喝水,可以敲它发出声音......;一张纸,可以被写字,可以撕,可以烧......。也就是说,一旦确定了一个对象,则方法也就跟着确定了。我们的日常生活就是如此。但是,大家回想一下我们程序设计和对计算机的操作,却不是这样的。拿DOS的操作来说,我要删除一个文件,方法是在DOS提示符下:c:> del 文件名<回车>。注意看这个过程,动作在前(del),对象在后(文件名),和面向对象的方法正好顺序相反。那么只是一个顺序的问题,会带来什么影响那?呵呵,大家一定看到过这个现象:File not found. “啊~~~,我错了,我错了,文件名敲错了一个字母”,于是重新输入:c:> del 文件名2<回车>。不幸又发生了,计算机报告:File read only. 哈哈,痛苦吧:)。所以DOS的操作其实是违反我们日常生活中的习惯的(当然,以前谁也没有提出过异议),而现在由于使用了面向对象的设计,那么这些问题,就在编译的时候解决了,而不是在运行的时候。obj.fun(),对于这条语句,无论是对象,还是函数,如果你输入有问题,那么都会在编译的时候报告出来,方便你修改,而不是在执行的时候出错,害的你到处去捉虫子。

  同时,面向对象又能解决代码重用的问题——继承。我以前写了一个“狗”的类,属性有(变量):有毛、4条腿、有翘着的尾巴(耷拉着尾巴的那是狼)、鼻子很灵敏、喜欢吃肉骨头......方法有(函数):能跑、能闻、汪汪叫......如果它去抓耗子,人家叫它“多管闲事”。好了,狗这个类写好了。但在我实际的生活中,我家养的这条狗和我以前写的这个“狗类”非常相似,只有一点点的不同,就是我的这条狗,它是:卷毛而且长长的,鼻子小,嘴小......。于是,我派生一个新的类型,叫“哈巴狗类”在“狗类”的基础上,加上新的特性。好了,程序写完了,并且是重用了以前的正确的代码——这就是面向对象程序设计的好处。我的成功只是站在了巨人的肩膀上。当然,如果你使用VC的话,重用最多的代码就是MFC的类库。

============================================================

OK,那么看看我们如何使用ASP的。

大家一般都是使用IIS的默认脚本语言VbScript作为ASP的服务器端执行语言的,在起初基本都是将该VBS脚本和HTML掺合在一起,实现着某些功能。比如需要在当前页显示最新的5条记录了,就可以这样。

1,先定义数据库的连接,如:


db_path = "../database/cnbruce2005.mdb"
Set conn= Server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db_path)
conn.Open connstr



2,然后建立数据库记录集合,提取相关信息


Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select top 5 * from [news] order by n_id desc"
rs.Open sql,conn,1,1



3,最后通过循环的方法将数据显示出来


do while not rs.eof
response.write rs("n_title")
rs.movenext
loop
'还有最后的关闭和释放操作
rs.close
set rs=nothing



那么就是在 response.write rs("n_title") 这里,为了最终的网页设计的需要,在它的前前后后,估计还是需要加入一些其他的HTML标签元素的。于是很自然的,VBS脚本和HTML掺合了。

再来看,如果说有很多页都需要显示这5条记录,那是不是每个页都要这样去设置,当然最主要的只是每个页的设计样子不同。那这就是重复。重复在那里?那里可以不要重复?

1,针对数据库的连接,都直接建立了一个数据库连接文件conn.asp,内容即如上。

2,那么只要是需要使用数据库的,需要建立连接的,直接包含引用该数据库连接文件,即可了事。

<!--#include file="conn.asp"-->

那么上面是省去的什么重复?每次数据库连接的重复。这是对于通用的某些共用的代码的防重复。接着来看,如果说我要这个页面显示5条,那个页面显示6条,又该如何?很显然,这只能是对当前页中的SQL语句进行简单的修改,比如原来是 top 5 的修改为 top 6。

OK,继续看,是不是还有重复?有,除了SQL查询定义的不同,其他的都是重复。

于是,继续想办法:可不可以自己来定义提取的条数?就是我想提取几条就几条,但程序只需要写一个。那么这时候,函数的就派上用场了啊。比如我定义这样的函数:



Function topnews(tnum)

Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select top "&tnum&" * from [news] order by n_id desc"
rs.Open sql,conn,1,1

do while not rs.eof
response.write rs("n_title")
rs.movenext
loop

rs.close
set rs=nothing

End Function



那么,就可以使用 topnews(5) 或者 topnews(6) 来完成需要了

……咋一看,似乎ASP用上函数这就算最终的完成了。因为主要的程序功能做成了函数模块,需要在前台页面使用该功能时,直接调用一下,必要时修改下函数参数值就是一个完美的结局/。

那么,ASP中怎么又引入了类?这类是什么?又是如何应用?

在ASP的脚本语言中,VBscript里有个Class关键字,用它可来声明一个自定义类。比如

Class name
 statements
End Class

这里statements里可以声明公有或私有的成员,包括函数、成员和属性。

而Javascript则是用一个函数来“声明”类,然后在该函数里通过 this.prototype 定义属性,this.func 定义方法。这里有一篇看看。

哪个简单拣哪个。在定义了 类也就是 class 的名称 name 后,这里面可以做些什么东西呢?

第一个。MSDN文档:在 Visual Basic 6.0 中,在创建和毁坏类模块时,类模块使用 Initialize 和 Terminate 事件来执行所有必要的操作。当在 New 语句之后第一次遇到对象时,会引发 Initialize 事件,当释放对象的最后一个引用时,会立即引发 Terminate 事件。但是,可在执行期间随时直接调用这些事件方法。

所以经常会看到这样的例子:


Class cnbruce '声明一个名为cnbruce的类

Private cnrose
Private Sub Class_Initialize
    cnrose="My Name is cnrose."
End Sub

Private Sub Class_Terminate()
End Sub

End Class



喏,这也就是一个初始化。

此外,asp类中具有let和get方法。比如在 以上代码的Class cnbruce ... End Class之间加入:

Public Property get YName
    YName=cnrose
End Property

即变成了:


Class cnbruce '声明一个名为cnbruce的类

Private cnrose
Private Sub Class_Initialize
    cnrose="My Name is cnrose."
End Sub

Private Sub Class_Terminate()
End Sub

Public Property get YName
    YName=cnrose
End Property

End Class



那么如何将该值提取呢,比如

Set aaa=New cnbruce
response.write aaa.YName

注意aaa.YName已经有些感觉了。aaa即为定义为cnbruce类的对象,最终输出显示为该类对象中的YName get值,其值内容为 变量cnrose的值,并且该值已经被初始化,所以,最终的结果是“My Name is cnrose.”

这是 get ,直接提取已经封装好的类的内部的东西,那么 let 呢?即是外部对类的交互访问操作。比如我现在外部定义的值应用到类中。即先定义:

public property let MName(nnn)
    cnrose=nnn
end property

它的意思很简单,参数nnn的值将随着外部不同的值而赋到变量cnrose上。那么OK结合上的程式,即最中输出显示的内容,也就是显示的变量cnrose的内容,不是初始化的内容,而是由let 外部应用的不定值。那如何应用let 呢。

aaa.MName="sdasdasd"

直接定义值就可以了。那么现在看看全部程序:


<%
Class cnbruce

Private cnrose
Private Sub Class_Initialize
    cnrose="My Name is cnrose."
End Sub

Public Property get YName
    YName=cnrose
End Property

public property let MName(nnn)
    cnrose=nnn
end property

End Class

Set aaa=New cnbruce
aaa.MName="hahahoho"
response.write aaa.YName

%>


虽然定义的是aaa.MName的值为"hahahoho",但根据public property let MName(nnn),其值到变量cnrose,SO在输出aaa.YName的时候,根据Public Property get YName,结果的值是什么也就不奇怪了。/

至于功能型的程式,则在类中定义为 函数 Function,或者子程序 Sub 了。

SO,总的说来,就只是功能的封装,以及在应用的时候好写好看(直接 类名.方法、类名.属性-_-!),但不要指望它像Java 或.Net那样具有面向对象的思想服务。

时间有限,虎头蛇尾将就一下了。