如何編寫一個ASP類

前幾天大佛寫了“ASP設計模式”，可能有些初學者或者剛剛接觸ASP的朋友不一定完全看得明白，偶就整理了一下編寫一個ASP類的方法，大部分是從網上找來的。希望對朋友們有協助。
《ASP設計模式》(作者 我佛山人)：
dispbbs.asp?boardID=20&ID=247879
首先ASP的類是由事件和方法（它們就是構成類的成員了）構成的，如果大家還沒有接觸過，可以先看看下面的說明：
在 Class 塊中，成員通過相應的聲明語句被聲明為 Private(私人成員，只能在類內部調用) 或 Public(公有成員，可以在類內外部調用) 。被聲明為 Private 的將只在 Class 塊內是可見的。被聲明為 Public 不僅在 Class 塊的內部是可見的，對 Class 塊之外的代碼也是可見的。沒有使用 Private 或 Public 明確聲明的被預設為 Public。在類的塊內部被聲明為 Public 的過程（Sub 或 Function）將成為類的方法。Public 變數將成為類的屬性，同使用 Property Get、Property Let 和 Property Set 顯式聲明的屬性一樣。類的預設屬性和方法是在它們的聲明部分用 Default 關鍵字指定的。
請大家耐心看完上面的部分，下面我們來看一個例子：

<%
'//--------------------------------開始一個類---------------------------------//
Class myClass

'//----聲明（聲明就是定義）myClass類的類內部（私人的[Private]）變數
Private strAuthor
Private strVersion
Private strExample
'//---------------------------定義類的事件-------------------------------//

'//----Class_Initialize()是類的初始化事件，只要一開始使用該類，首先會觸發該部分的執行，下面我們會在該成員中初始化該類的作者和版本以及在螢幕上顯示一下該類已經開始了
Private Sub Class_Initialize()
strAuthor = "coldstone"
strVersion = "1.0"
Response.Write "<br>myClass開始了<br>"
End Sub

'//----Class_Terminate()是類的結束事件，只要一退出該類，就會觸發該事件，下面我們會該事件中設定退出該類時會在螢幕上顯示該類已結束了。
Private Sub Class_Terminate()
Response.Write "<br>myClass結束了<br>"
End Sub
'//---------------------------使用者自己定義的方法-------------------------------//
'//----該方法返回一個著作權資訊
Public Sub Information()
Response.Write "<br>Coding By <a href='mailto:coldstone@falsh8.cn'>coldstone</a> @ <a href='http://www.flash8.net'>閃吧</a>.<br>"
End Sub
'//---------------------------定義類的輸出屬性-------------------------------//
'//----定類的屬性，該屬性是讓使用者初始化strExapmle變數
Public Property Let setExapmle(ByVal strVar)
strExapmle = strVar
End Property
'//---------------------------定義類的輸出屬性-------------------------------//
'//----定義類的屬性，該屬性是返回一個版本號碼
Public Property Get Version
Version = strVersion
End Property
'//----定義類的屬性，該屬性是返回該類的作者號
Public Property Get Author
Author = strAuthor
End Property
'//----定義類的屬性，該屬性是返回一個版本號碼
Public Property Get Exapmle
Exapmle = strExapmle
End Property

End Class
%><%
'//-------這裡是使用該類的例子
Dim oneNewClass
Set oneNewClass = New myClass
Response.Write "作者： "& oneNewClass.Author &" <br>"
Response.Write "版本： "& oneNewClass.Version &" <br>"
oneNewClass.setExapmle = "這是一個簡單類的例子"
Response.Write "使用者自訂：" & oneNewClass.Exapmle &" <br>"
oneNewClass.Information
Set oneNewClass = Nothing
%>