[點(diǎn)晴永久免費(fèi)OA]如何編寫一個(gè)ASP類
首先ASP的類是由事件和方法（它們就是構(gòu)成類的成員了）構(gòu)成的，如果大家還沒有接觸過，可以先看看下面的說明：
在 Class 塊中，成員通過相應(yīng)的聲明語句被聲明為 Private(私有成員，只能在類內(nèi)部調(diào)用) 或 Public(公有成員，可以在類內(nèi)外部調(diào)用) 。被聲明為 Private 的將只在 Class 塊內(nèi)是可見的。被聲明為 Public 不僅在 Class 塊的內(nèi)部是可見的，對(duì) Class 塊之外的代碼也是可見的。沒有使用 Private 或 Public 明確聲明的被默認(rèn)為 Public。在類的塊內(nèi)部被聲明為 Public 的過程（Sub 或 Function）將成為類的方法。Public 變量將成為類的屬性，同使用 Property Get、Property Let 和 Property Set 顯式聲明的屬性一樣。類的缺省屬性和方法是在它們的聲明部分用 Default 關(guān)鍵字指定的。 請(qǐng)大家耐心看完上面的部分，下面我們來看一個(gè)例子： <% '//--------------------------------開始一個(gè)類---------------------------------// Class myClass '//----聲明（聲明就是定義）myClass類的類內(nèi)部（私有的[Private]）變量 Private strAuthor Private strVersion Private strExample '//---------------------------定義類的事件-------------------------------// '//----Class_Initialize()是類的初始化事件，只要一開始使用該類，首先會(huì)觸發(fā)該部分的執(zhí)行，下面我們會(huì)在該成員中初始化該類的作者和版本以及在屏幕上顯示一下該類已經(jīng)開始了 Private Sub Class_Initialize() strAuthor = "coldstone" strVersion = "1.0" Response.Write "<br>myClass開始了<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è)版權(quán)信息 Public Sub Information() Response.Write "<br>Coding By <a href='mailto:coldstone@falsh8.cn'>coldstone</a> @ <a 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 %> <%
'//-------這里是使用該類的例子 Dim oneNewClass Set oneNewClass = New myClass Response.Write "作者： "& oneNewClass.Author &" <br>" Response.Write "版本： "& oneNewClass.Version &" <br>" oneNewClass.setExapmle = "這是一個(gè)簡單類的例子" Response.Write "用戶自定義：" & oneNewClass.Exapmle &" <br>" oneNewClass.Information Set oneNewClass = Nothing %> 該文章在 2022/7/5 1:14:45 編輯過 |
關(guān)鍵字查詢
相關(guān)文章
正在查詢... 
|
400 186 1886
