在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