asp class類的使用方法
大(dà)學期間學過asp語言，當時也沒有提出過class類的概念，畢業後也沒有深入的研究。今天重新拾起來玩玩，發現asp的類類似java中(zhōng)類，确實不錯。
下(xià)面我(wǒ)們講述一(yī)下(xià)asp class類的使用方法,先通過一(yī)個例子了解一(yī)下(xià)class的結構、方法、屬性等。asp同樣包含屬性、方法等
Class ALoaferClass
Private strAuthor
Private strVersion
Private strExample

'//---Class_Initialize()是類的初始化事件，類被調用，首先會觸發該部分(fēn)的執行，一(yī)般用來初始化默認值.
Private Sub Class_Initialize()
strAuthor = "Cabo'liu"
strVersion = "v1.0"
Response.Write("
ALoafer Class開(kāi)始了
")
End Sub

'//----Class_Terminate()是類的結束事件，退出該類，就會觸發該事件。
Private Sub Class_Terminate()
Response.Write("
ALoafer Class結束了
")
End Sub

'//---------------------------用戶自己定義的方法-------------------------------//
Public Sub Information()
Response.Write("
Coding By Cabo Liu @ ")
Response.Write("流行.
")
End Sub
'//---------------------------定義類的輸出屬性--------------------------------//
'//----定類的屬性，該屬性是讓用戶初始化strExapmle變量
Public Property Let SetExapmle(ByVal strVar)
strExapmle = strVar
End Property
'//----定義類的屬性，該屬性是返回一(yī)個版本号
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

oneNewClass = new ALoaferClass 會執行Class_Initialize方法
set oneNewClass = Nothing 會執行Class_Terminate方法
不錯，很好用