先摘錄天極網(wǎng)揚(yáng)老師一篇文章中的一段:
面向?qū)ο蟮某绦蛟O(shè)計(jì)

　　隨著程序的設(shè)計(jì)的復(fù)雜性增加，結(jié)構(gòu)化程序設(shè)計(jì)方法又不夠用了。不夠用的根本原因是“代碼重用”的時(shí)候不方便。面向?qū)ο蟮姆椒ㄕQ生了，它通過繼承來實(shí)現(xiàn)比較完善的代碼重用功能。很多學(xué)生在應(yīng)聘工作，面試的時(shí)候，常被問及一個(gè)問題“你來談?wù)勈裁词敲嫦驅(qū)ο蟮某绦蛟O(shè)計(jì)”，學(xué)生無言，回來問我，這個(gè)問題應(yīng)該怎么回答。我告訴他，你只要說一句話就夠了“面向?qū)ο蟪绦蛟O(shè)計(jì)是對數(shù)據(jù)的封裝；范式（模板）的程序設(shè)計(jì)是對算法的封裝。”后來再有學(xué)生遇到了這個(gè)問題，只簡單的一句對答，對方就對這個(gè)學(xué)生就刮目相看了（學(xué)生后來自豪地告訴我的）。為什么那？因?yàn)橹挥薪?jīng)過徹底的體會(huì)和實(shí)踐才能提煉出這個(gè)精華。

　　面向?qū)ο蟮脑O(shè)計(jì)方法和思想，其實(shí)早在70年代初就已經(jīng)被提出來了。其目的就是：強(qiáng)制程序必須通過函數(shù)的方式來操縱數(shù)據(jù)。這樣實(shí)現(xiàn)了數(shù)據(jù)的封裝，就避免了以前設(shè)計(jì)方法中的，任何代碼都可以隨便操作數(shù)據(jù)而因起的BUG，而查找修改這個(gè)BUG是非常困難的。那么你可以說，即使我不使用面向?qū)ο?，?dāng)我想訪問某個(gè)數(shù)據(jù)的時(shí)候，我就通過調(diào)用函數(shù)訪問不就可以了嗎？是的，的確可以，但并不是強(qiáng)制的。人都有惰性，當(dāng)我想對 i 加1的時(shí)候，干嗎非要調(diào)用函數(shù)呀？算了，直接i++多省事呀。呵呵，正式由于這個(gè)懶惰，當(dāng)程序出BUG的時(shí)候，可就不好捉啦。而面向?qū)ο笫菑?qiáng)制性的，從編譯階段就解決了你懶惰的問題。

　　巧合的是，面向?qū)ο蟮乃枷?，其?shí)和我們的日常生活中處理問題是吻合的。舉例來說，我打算丟掉一個(gè)茶杯，怎么扔那？太簡單了，拿起茶杯，走到垃圾桶，扔！注意分析這個(gè)過程，我們是先選一個(gè)“對象”------茶杯，然后向這個(gè)對象施加一個(gè)動(dòng)作——扔。每個(gè)對象所能施加在它上面的動(dòng)作是有一定限制的：茶杯，可以被扔，可以被砸，可以用來喝水，可以敲它發(fā)出聲音......；一張紙，可以被寫字，可以撕，可以燒......。也就是說，一旦確定了一個(gè)對象，則方法也就跟著確定了。我們的日常生活就是如此。但是，大家回想一下我們程序設(shè)計(jì)和對計(jì)算機(jī)的操作，卻不是這樣的。拿DOS的操作來說，我要?jiǎng)h除一個(gè)文件，方法是在DOS提示符下：c:> del 文件名<回車>。注意看這個(gè)過程，動(dòng)作在前（del），對象在后(文件名),和面向?qū)ο蟮姆椒ㄕ庙樞蛳喾?。那么只是一個(gè)順序的問題，會(huì)帶來什么影響那？呵呵，大家一定看到過這個(gè)現(xiàn)象：File not found. “啊~~~，我錯(cuò)了，我錯(cuò)了，文件名敲錯(cuò)了一個(gè)字母”，于是重新輸入：c:> del 文件名2<回車>。不幸又發(fā)生了，計(jì)算機(jī)報(bào)告：File read only. 哈哈，痛苦吧:)。所以DOS的操作其實(shí)是違反我們?nèi)粘Ｉ钪械牧?xí)慣的（當(dāng)然，以前誰也沒有提出過異議），而現(xiàn)在由于使用了面向?qū)ο蟮脑O(shè)計(jì)，那么這些問題，就在編譯的時(shí)候解決了，而不是在運(yùn)行的時(shí)候。obj.fun()，對于這條語句，無論是對象，還是函數(shù)，如果你輸入有問題，那么都會(huì)在編譯的時(shí)候報(bào)告出來，方便你修改，而不是在執(zhí)行的時(shí)候出錯(cuò)，害的你到處去捉蟲子。

　　同時(shí)，面向?qū)ο笥帜芙鉀Q代碼重用的問題——繼承。我以前寫了一個(gè)“狗”的類，屬性有（變量）：有毛、4條腿、有翹著的尾巴（耷拉著尾巴的那是狼）、鼻子很靈敏、喜歡吃肉骨頭......方法有（函數(shù)）：能跑、能聞、汪汪叫......如果它去抓耗子，人家叫它“多管閑事”。好了，狗這個(gè)類寫好了。但在我實(shí)際的生活中，我家養(yǎng)的這條狗和我以前寫的這個(gè)“狗類”非常相似，只有一點(diǎn)點(diǎn)的不同，就是我的這條狗，它是：卷毛而且長長的，鼻子小，嘴小......。于是，我派生一個(gè)新的類型，叫“哈巴狗類”在“狗類”的基礎(chǔ)上，加上新的特性。好了，程序?qū)懲炅?，并且是重用了以前的正確的代碼——這就是面向?qū)ο蟪绦蛟O(shè)計(jì)的好處。我的成功只是站在了巨人的肩膀上。當(dāng)然，如果你使用VC的話，重用最多的代碼就是MFC的類庫。

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

OK，那么看看我們?nèi)绾问褂肁SP的。

大家一般都是使用IIS的默認(rèn)腳本語言VbScript作為ASP的服務(wù)器端執(zhí)行語言的，在起初基本都是將該VBS腳本和HTML摻合在一起，實(shí)現(xiàn)著某些功能。比如需要在當(dāng)前頁顯示最新的5條記錄了，就可以這樣。

1，先定義數(shù)據(jù)庫的連接，如：

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，然后建立數(shù)據(jù)庫記錄集合，提取相關(guān)信息

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

3，最后通過循環(huán)的方法將數(shù)據(jù)顯示出來

do while not rs.eof response.write rs("n_title") rs.movenext loop '還有最后的關(guān)閉和釋放操作 rs.close set rs=nothing

那么就是在 response.write rs("n_title") 這里，為了最終的網(wǎng)頁設(shè)計(jì)的需要，在它的前前后后，估計(jì)還是需要加入一些其他的HTML標(biāo)簽元素的。于是很自然的，VBS腳本和HTML摻合了。

再來看，如果說有很多頁都需要顯示這5條記錄，那是不是每個(gè)頁都要這樣去設(shè)置，當(dāng)然最主要的只是每個(gè)頁的設(shè)計(jì)樣子不同。那這就是重復(fù)。重復(fù)在那里？那里可以不要重復(fù)？

1，針對數(shù)據(jù)庫的連接，都直接建立了一個(gè)數(shù)據(jù)庫連接文件conn.asp，內(nèi)容即如上。

2，那么只要是需要使用數(shù)據(jù)庫的，需要建立連接的，直接包含引用該數(shù)據(jù)庫連接文件，即可了事。

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

那么上面是省去的什么重復(fù)？每次數(shù)據(jù)庫連接的重復(fù)。這是對于通用的某些共用的代碼的防重復(fù)。接著來看，如果說我要這個(gè)頁面顯示5條，那個(gè)頁面顯示6條，又該如何？很顯然，這只能是對當(dāng)前頁中的SQL語句進(jìn)行簡單的修改，比如原來是 top 5 的修改為 top 6。

OK，繼續(xù)看，是不是還有重復(fù)？有，除了SQL查詢定義的不同，其他的都是重復(fù)。

于是，繼續(xù)想辦法：可不可以自己來定義提取的條數(shù)？就是我想提取幾條就幾條，但程序只需要寫一個(gè)。那么這時(shí)候，函數(shù)的就派上用場了啊。比如我定義這樣的函數(shù)：

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用上函數(shù)這就算最終的完成了。因?yàn)橹饕某绦蚬δ茏龀闪撕瘮?shù)模塊，需要在前臺(tái)頁面使用該功能時(shí)，直接調(diào)用一下，必要時(shí)修改下函數(shù)參數(shù)值就是一個(gè)完美的結(jié)局/。

那么，ASP中怎么又引入了類？這類是什么？又是如何應(yīng)用？

在ASP的腳本語言中，VBscript里有個(gè)Class關(guān)鍵字，用它可來聲明一個(gè)自定義類。比如

Class name
 statements
End Class

這里statements里可以聲明公有或私有的成員，包括函數(shù)、成員和屬性。

而Javascript則是用一個(gè)函數(shù)來“聲明”類，然后在該函數(shù)里通過 this.prototype 定義屬性，this.func 定義方法。這里有一篇看看。

哪個(gè)簡單揀哪個(gè)。在定義了 類也就是 class 的名稱 name 后，這里面可以做些什么東西呢？

第一個(gè)。MSDN文檔：在 Visual Basic 6.0 中，在創(chuàng)建和毀壞類模塊時(shí)，類模塊使用 Initialize 和 Terminate 事件來執(zhí)行所有必要的操作。當(dāng)在 New 語句之后第一次遇到對象時(shí)，會(huì)引發(fā) Initialize 事件，當(dāng)釋放對象的最后一個(gè)引用時(shí)，會(huì)立即引發(fā) Terminate 事件。但是，可在執(zhí)行期間隨時(shí)直接調(diào)用這些事件方法。

所以經(jīng)常會(huì)看到這樣的例子：

Class cnbruce '聲明一個(gè)名為cnbruce的類 Private cnrose Private Sub Class_Initialize     cnrose="My Name is cnrose." End Sub Private Sub Class_Terminate() End Sub End Class

喏，這也就是一個(gè)初始化。

此外，asp類中具有l(wèi)et和get方法。比如在 以上代碼的Class cnbruce ... End Class之間加入：

Public Property get YName
    YName=cnrose
End Property

即變成了：

Class cnbruce '聲明一個(gè)名為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已經(jīng)有些感覺了。aaa即為定義為cnbruce類的對象，最終輸出顯示為該類對象中的YName get值，其值內(nèi)容為 變量cnrose的值，并且該值已經(jīng)被初始化，所以，最終的結(jié)果是“My Name is cnrose.”

這是 get ，直接提取已經(jīng)封裝好的類的內(nèi)部的東西，那么 let 呢？即是外部對類的交互訪問操作。比如我現(xiàn)在外部定義的值應(yīng)用到類中。即先定義：

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

它的意思很簡單，參數(shù)nnn的值將隨著外部不同的值而賦到變量cnrose上。那么OK結(jié)合上的程式，即最中輸出顯示的內(nèi)容，也就是顯示的變量cnrose的內(nèi)容，不是初始化的內(nèi)容，而是由let 外部應(yīng)用的不定值。那如何應(yīng)用let 呢。

aaa.MName="sdasdasd"

直接定義值就可以了。那么現(xiàn)在看看全部程序：

<% 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"，但根據(jù)public property let MName(nnn)，其值到變量cnrose，SO在輸出aaa.YName的時(shí)候，根據(jù)Public Property get YName，結(jié)果的值是什么也就不奇怪了。/

至于功能型的程式，則在類中定義為 函數(shù) Function，或者子程序 Sub 了。

SO，總的說來，就只是功能的封裝，以及在應(yīng)用的時(shí)候好寫好看（直接 類名.方法、類名.屬性-_-!），但不要指望它像Java 或.Net那樣具有面向?qū)ο蟮乃枷敕?wù)。

時(shí)間有限，虎頭蛇尾將就一下了。