首先ASP的類是由事件和方法(它們就是構(gòu)成類的成員了)構(gòu)成的,如果大家還沒(méi)有接觸過(guò),可以先看看下面的說(shuō)明(哈哈,我是現(xiàn)學(xué)現(xiàn)賣,說(shuō)得不好請(qǐng)見(jiàn)諒)
在 Class 塊中,成員通過(guò)相應(yīng)的聲明語(yǔ)句被聲明為 Private(私有成員,只能在類內(nèi)部調(diào)用) 或 Public(公有成員,可以在類內(nèi)外部調(diào)用) 。被聲明為 Private 的將只在 Class 塊內(nèi)是可見(jiàn)的。被聲明為 Public 不僅在 Class 塊的內(nèi)部是可見(jiàn)的,對(duì) Class 塊之外的代碼也是可見(jiàn)的。沒(méi)有使用 Private 或 Public 明確聲明的被默認(rèn)為 Public。在類的塊內(nèi)部被聲明為 Public 的過(guò)程(Sub 或 Function)將成為類的方法。Public 變量將成為類的屬性,同使用 Property Get、Property Let 和 Property Set 顯式聲明的屬性一樣。類的缺省屬性和方法是在它們的聲明部分用 Default 關(guān)鍵字指定的。
請(qǐng)大家內(nèi)心看完藍(lán)色的部分,下面我們來(lái)看一個(gè)例子
script language=vbscript runat=server>
Class myClass
'//----聲明(聲明就是定義)myClass類的類內(nèi)部(私有的[Private])變量
Private strAuthor
Private strVersion
Private strExample
'//---------------------------定義類的事件-------------------------------//
'//----Class_Initialize()是類的初始化事件,只要一開(kāi)始使用該類,首先會(huì)觸發(fā)該部分的執(zhí)行,下面我們會(huì)在該成員中初始化該類的作者和版本以及在屏幕上顯示一下該類已經(jīng)開(kāi)始了
Private Sub Class_Initialize()
strAuthor = 思源
strVersion = 1.0
Response.Write br>myClass開(kāi)始了br>
End Sub
'//----Class_Terminate()是類的結(jié)束事件,只要一退出該類,就會(huì)觸發(fā)該事件,下面我們會(huì)該事件中設(shè)定退出該類時(shí)會(huì)在屏幕上顯示該類已結(jié)束了。
Private Sub Class_Terminate()
Response.Write br>myClass結(jié)束了br>
End Sub
'//---------------------------用戶自己定義的方法-------------------------------//
'//----該方法返回一個(gè)版本信息
Public Sub Information()
Response.Write br>Coding By a href='mailto:coder@sinobe.com'>Maxid_Zen/a> @ a >www.design60s.com/a>.br>
End Sub
'//---------------------------定義類的輸出屬性-------------------------------//
'//----定類的屬性,該屬性是讓用戶初始化strExapmle變量
Public Property Let setExapmle(ByVal strVar)
strExapmle = strVar
End Property
'//---------------------------定義類的輸出屬性-------------------------------//
'//----定義類的屬性,該屬性是返回一個(gè)版本號(hào)
Public Property Get Version
Version = strVersion
End Property
'//----定義類的屬性,該屬性是返回該類的作者號(hào)
Public Property Get Author
Author = strAuthor
End Property
'//----定義類的屬性,該屬性是返回一個(gè)版本號(hào)
Public Property Get Exapmle
Exapmle = strExapmle
End Property
End Class
/script>
%
'//-------這里是使用該類的例子
Dim oneNewClass
Set oneNewClass = myClass
Response.Write 作者: oneNewClass.Author br>
Response.Write 版本: oneNewClass.Version br>
oneNewClass.setExapmle = 這是一個(gè)簡(jiǎn)單類的例子
Response.Write 用戶自定義: oneNewClass.Exapmle br>
oneNewClass.Information
Set oneNewClass = Nothing
%>