主頁(yè) > 知識(shí)庫(kù) > 如何編寫(xiě)一個(gè)ASP類(lèi)

如何編寫(xiě)一個(gè)ASP類(lèi)

熱門(mén)標(biāo)簽:自動(dòng)外呼系統(tǒng)怎么防止封卡 客服外呼系統(tǒng)呼叫中心 鎮(zhèn)江云外呼系統(tǒng)怎么樣 電話(huà)機(jī)器人銷(xiāo)售公司嗎 保定電銷(xiāo)機(jī)器人軟件 成都銷(xiāo)售外呼系統(tǒng)公司 電話(huà)機(jī)器人案例 vue 地圖標(biāo)注拖拽 土地證宗地圖標(biāo)注符號(hào)
前幾天大佛寫(xiě)了“ASP設(shè)計(jì)模式”,可能有些初學(xué)者或者剛剛接觸ASP的朋友不一定完全看得明白,偶就整理了一下編寫(xiě)一個(gè)ASP類(lèi)的方法,大部分是從網(wǎng)上找來(lái)的。希望對(duì)朋友們有幫助。 
《ASP設(shè)計(jì)模式》(作者 我佛山人):
dispbbs.asp?boardID=20ID=247879
首先ASP的類(lèi)是由事件和方法(它們就是構(gòu)成類(lèi)的成員了)構(gòu)成的,如果大家還沒(méi)有接觸過(guò),可以先看看下面的說(shuō)明:
在 Class 塊中,成員通過(guò)相應(yīng)的聲明語(yǔ)句被聲明為 Private(私有成員,只能在類(lèi)內(nèi)部調(diào)用) 或 Public(公有成員,可以在類(lèi)內(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。在類(lèi)的塊內(nèi)部被聲明為 Public 的過(guò)程(Sub 或 Function)將成為類(lèi)的方法。Public 變量將成為類(lèi)的屬性,同使用 Property Get、Property Let 和 Property Set 顯式聲明的屬性一樣。類(lèi)的缺省屬性和方法是在它們的聲明部分用 Default 關(guān)鍵字指定的。 
請(qǐng)大家耐心看完上面的部分,下面我們來(lái)看一個(gè)例子:


'//--------------------------------開(kāi)始一個(gè)類(lèi)---------------------------------// 
Class myClass 

'//----聲明(聲明就是定義)myClass類(lèi)的類(lèi)內(nèi)部(私有的[Private])變量 
Private strAuthor 
Private strVersion 
Private strExample 
'//---------------------------定義類(lèi)的事件-------------------------------// 

'//----Class_Initialize()是類(lèi)的初始化事件,只要一開(kāi)始使用該類(lèi),首先會(huì)觸發(fā)該部分的執(zhí)行,下面我們會(huì)在該成員中初始化該類(lèi)的作者和版本以及在屏幕上顯示一下該類(lèi)已經(jīng)開(kāi)始了 
Private Sub Class_Initialize() 
strAuthor = "coldstone" 
strVersion = "1.0" 
Response.Write "br>myClass開(kāi)始了br>" 
End Sub 

'//----Class_Terminate()是類(lèi)的結(jié)束事件,只要一退出該類(lèi),就會(huì)觸發(fā)該事件,下面我們會(huì)該事件中設(shè)定退出該類(lèi)時(shí)會(huì)在屏幕上顯示該類(lèi)已結(jié)束了。 
Private Sub Class_Terminate() 
Response.Write "br>myClass結(jié)束了br>" 
End Sub 
'//---------------------------用戶(hù)自己定義的方法-------------------------------// 
'//----該方法返回一個(gè)版權(quán)信息 
Public Sub Information() 
Response.Write "br>Coding By a href='mailto:coldstone@falsh8.cn'>coldstone/a> @ a  
End Sub 
'//---------------------------定義類(lèi)的輸出屬性-------------------------------// 
'//----定類(lèi)的屬性,該屬性是讓用戶(hù)初始化strExapmle變量 
Public Property Let setExapmle(ByVal strVar) 
strExapmle = strVar 
End Property 
'//---------------------------定義類(lèi)的輸出屬性-------------------------------// 
'//----定義類(lèi)的屬性,該屬性是返回一個(gè)版本號(hào) 
Public Property Get Version 
Version = strVersion 
End Property 
'//----定義類(lèi)的屬性,該屬性是返回該類(lèi)的作者號(hào) 
Public Property Get Author 
Author = strAuthor 
End Property 
'//----定義類(lèi)的屬性,該屬性是返回一個(gè)版本號(hào) 
Public Property Get Exapmle 
Exapmle = strExapmle 
End Property 

End Class 
%>% 
'//-------這里是使用該類(lèi)的例子 
Dim oneNewClass 
Set oneNewClass = New myClass 
Response.Write "作者: " oneNewClass.Author " br>" 
Response.Write "版本: " oneNewClass.Version " br>" 
oneNewClass.setExapmle = "這是一個(gè)簡(jiǎn)單類(lèi)的例子" 
Response.Write "用戶(hù)自定義:"  oneNewClass.Exapmle " br>" 
oneNewClass.Information 
Set oneNewClass = Nothing 
%> 

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

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《如何編寫(xiě)一個(gè)ASP類(lèi)》,本文關(guān)鍵詞  如何,編寫(xiě),一個(gè),ASP,類(lèi),如何,;如發(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)。
  • 相關(guān)文章
  • 下面列出與本文章《如何編寫(xiě)一個(gè)ASP類(lèi)》相關(guān)的同類(lèi)信息!
  • 本頁(yè)收集關(guān)于如何編寫(xiě)一個(gè)ASP類(lèi)的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章