懒人听书,古风小说,我欲封天耳根小说

如何編寫一個(gè)ASP類

前幾天大佛寫了“ASP設(shè)計(jì)模式”，可能有些初學(xué)者或者剛剛接觸ASP的朋友不一定完全看得明白，偶就整理了一下編寫一個(gè)ASP類的方法，大部分是從網(wǎng)上找來(lái)的。希望對(duì)朋友們有幫助。
《ASP設(shè)計(jì)模式》(作者我佛山人)：
dispbbs.asp?boardID=20ID=247879
首先ASP的類是由事件和方法（它們就是構(gòu)成類的成員了）構(gòu)成的，如果大家還沒(méi)有接觸過(guò)，可以先看看下面的說(shuō)明：
在 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)大家耐心看完上面的部分，下面我們來(lái)看一個(gè)例子：

%
'//--------------------------------開(kāi)始一個(gè)類---------------------------------//
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 = "coldstone"
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è)版權(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è)簡(jiǎn)單類的例子"
Response.Write "用戶自定義：" oneNewClass.Exapmle " br>"
oneNewClass.Information
Set oneNewClass = Nothing
%>

標(biāo)簽：麗江公主嶺天津重慶內(nèi)江成都臺(tái)灣懷化

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《如何編寫一個(gè)ASP類》，本文關(guān)鍵詞如何,編寫,一個(gè),ASP,類,如何,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。

濮阳杆衣贸易有限公司

如何編寫一個(gè)ASP類