ASP中使用類實現模塊化

對象就是能看到感到聽到觸摸到嘗到或聞到的東西在這裡我們這樣“定義”對象是一個自包含的實體用一組可識別的特性和行為來標識
在面向對象的編程(oop)的編程方式用使用下面的兩個術語
類這是對象的模板定義了對象的特性
實例這是一個真實的對象可以與之交互的東西

屬性方法和事件

在OOP中下面的術語描述對象的特性
屬性這是一個名次描述了某個對象的屬性
方法這是一個動詞描述了對象可以完成的工作或者希望它完成的工作
事件描述了對象為相應某個動作而執行的操作
在編程時對象的面向對象編程和面向對象設計的一部分它們具有非常大的優勢許多人認為這是一個復雜的主題但實際上它非常簡單可以用四個簡單的術語來解釋抽象封裝多態和繼承
抽象這是一個隱藏復雜性類的內部工作情況所以用戶不必知道它的運作方式就像如果想要看電視就不必知道電視機時如何工作的只需打開電視機搜索頻道即可on/off開關抽象了實際的操作在string例子裡有一個trim方法它可以刪除字符串尾部的空格同樣不需要知道他是如何完成這個任務的只要知道它有這個功能即可

封裝每個對象都包含進行操作所需要的所有信息這個對象稱為封裝因此對象不比依賴其他對象來完成自己的操作在術語TOupper()方法中string不必到其他地方獲取信息來把所有的字符轉換為大寫

多態這個術語用於表示不同的對象可以執行相同的動作但要通過他們自己的實現代碼來執行名稱一樣但底層實現的代碼是不一樣的

繼承它定義了類如何相互關聯共享特性的繼承的工作方式是定義類和子類其中子類繼承了父類的所有特性繼承的重要性是它迫使類型相似的類具有一致性並允許共享代碼如果決定創建一個新類就不必定義父類的所有特性下面我通過舉上幾個簡單的例子說明一下注意這裡強調的是一種思想如果在您開發ASP網站的時候能用一個類（基類）展開的話這是很有必要的（也是很有難度的）

我們先選擇一個簡單的例子

我們要顯示經典論壇用戶的信息當輸入用戶的ID以後能顯示出該用戶的一些信息這是一個過程可以這樣考慮我們把用戶當作一個對象他有的屬性是ID性別積分權限實現的方法有顯示這些信息ok這樣寫

Class blueidea
Private bnamebpointbsexblevel

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)
If bsex= Then
bsex="男"
Else
bsex="女"
End if
End Property

Property Get getpoint
getpoint=bpoint
End Property

Property Let getpoint(point)
bpoint=killint(point)
End Property

這裡有個killint函數是判斷數據合法性的它的原形是 Private Function killint(ikillstrkillsub)
If Not IsNumeric(i) Then
i=killstr
ElseIf i<= Then
i=killsub
End if
killint=Int(Left(i))
End Function

該函數功能很明確不再繁瑣說

由於我們要通過積分判斷用戶級別這裡定義了一個私有函數Private Function getlevel()
bpoint=killint(bpoint)
If bpoint< Then
blevel="初級會員"
ElseIf bpoint>= And bpoint<= Then
blevel="高級會員"
Else
blevel="終極會員"
End If
Getlevel=blevel
End Function我們要得是回送用戶的信息必須定義一個public公用函數顯示信息

Public Function showuser()
responsewrite("<h>以下顯示"&bname&"的資料:</h>")
responsewrite("<h>性別:"&bsex&"</h>")
responsewrite("<h>積分:"&bpoint&"</h>")
getlevel
responsewrite("<h>級別:"&blevel&"</h>")
End Function
End class

使用這個類的時候這樣使用（我在這裡寫了一個表單處理的）
Set blueideauser=new blueidea
blueideausergetname=Trim(request("id"))
blueideausergetsex=request("sex")
blueideausergetpoint=request("point")

From:http://tw.wingwit.com/Article/program/net/201311/14433.html