首先asp的類是由事件和方法(它們就是構成類的成員了)構成的,如果大家還沒有接觸過,可以先看看下面的說明(哈哈,我是現(xiàn)學現(xiàn)賣,說得不好請見諒)
在 class 塊中,成員通過相應的聲明語句被聲明為 private(私有成員,只能在類內(nèi)部調(diào)用) 或 public(公有成員,可以在類內(nèi)外部調(diào)用) 。被聲明為 private 的將只在 class 塊內(nèi)是可見的。被聲明為 public 不僅在 class 塊的內(nèi)部是可見的,對 class 塊之外的代碼也是可見的。沒有使用 private 或 public 明確聲明的被默認為 public。在類的塊內(nèi)部被聲明為 public 的過程(sub 或 function)將成為類的方法。public 變量將成為類的屬性,同使用 property get、property let 和 property set 顯式聲明的屬性一樣。類的缺省屬性和方法是在它們的聲明部分用 default 關鍵字指定的。
下面我們來看一個例子
class myclass
??????? '//----聲明(聲明就是定義)myclass類的類內(nèi)部(私有的[private])變量
??????? private strauthor
??????? private strversion
??????? private strexample
?'//---------------------------定義類的事件-------------------------------//
?'//----class_initialize()是類的初始化事件,只要一開始使用該類,首先會觸發(fā)該部分的執(zhí)行,下面我們會在該成員中初始化該類的作者和版本以及在屏幕上顯示一下該類已經(jīng)開始了
??????? private sub class_initialize()
??????????????? strauthor = 思源
??????????????? strversion = 1.0
??????????????? response.write
myclass開始了
??????? end sub
??????? '//----class_terminate()是類的結束事件,只要一退出該類,就會觸發(fā)該事件,下面我們會該事件中設定退出該類時會在屏幕上顯示該類已結束了。
??????? private sub class_terminate()
??????????????? response.write
myclass結束了
??????? end sub
?'//---------------------------用戶自己定義的方法-------------------------------//
??????? '//----該方法返回一個版本信息
?public sub information()
???????? response.write
coding by maxid_zen @ www.design60s.com.
?end sub
?'//---------------------------定義類的輸出屬性-------------------------------//
?'//----定類的屬性,該屬性是讓用戶初始化strexapmle變量
??????? public property let setexapmle(byval strvar)
???????? strexapmle = strvar
?end property
?'//---------------------------定義類的輸出屬性-------------------------------//
?'//----定義類的屬性,該屬性是返回一個版本號
?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
<%
'//-------這里是使用該類的例子
dim onenewclass
set onenewclass = myclass
response.write 作者: & onenewclass.author &
response.write 版本: & onenewclass.version &
onenewclass.setexapmle = 這是一個簡單類的例子
response.write 用戶自定義: & onenewclass.exapmle &
onenewclass.information
set onenewclass = nothing
%>
- 檢測函數(shù) asp class
- 遭遇ASP類的事件設計
- ASP高亮類
- Object對象的一些的隱藏函數(shù)介紹
- 淺談ASP中的類
- 在VBScript中使用類
- ASP 類專題
- 代碼與頁面的分離
- ASP代碼的對象化
- 一個asp快速字符串連接類
- 一個簡單的asp數(shù)據(jù)庫操作類
- ASP類編寫詳細說明
- 實現(xiàn)支持邏輯搜索/單詞搜索/詞組搜索+支持OR/AND關鍵字的VBS CLASS!
- ASP類Class入門 推薦
- 創(chuàng)建一個ASP通用分頁類
- 如何編寫一個ASP類
- 一個ACCESS數(shù)據(jù)庫訪問的類第1/3頁
- 分頁類,異常類
- ASP 類 Class入門