如何編寫乙個ASP類

2021-07-27 15:44:47 字數 2457 閱讀 3153

在 class 塊中,成員通過相應的宣告語句被宣告為 private(私有成員,只能在類內部呼叫) 或 public(公有成員,可以在類內外部呼叫) 。被宣告為 private 的將只在 class 塊內是可見的。被宣告為 public 不僅在 class 塊的內部是可見的,對 class 塊之外的**也是可見的。沒有使用 private 或 public 明確宣告的被預設為 public。在類的塊內部被宣告為 public 的過程(sub 或 function)將成為類的方法。public 變數將成為類的屬性,同使用 property get、property let 和 property set 顯式宣告的屬性一樣。類的預設屬性和方法是在它們的宣告部分用 default 關鍵字指定的。  

請大家耐心看完上面的部分,下面我們來看乙個例子: 

<%  

'//--------------------------------開始乙個類---------------------------------//  

class myclass  

'//----宣告(宣告就是定義)myclass類的類內部(私有的[private])變數  

private strauthor  

private strversion  

private strexample  

'//---------------------------定義類的事件-------------------------------//  

'//----class_initialize()是類的初始化事件,只要一開始使用該類,首先會觸發該部分的執行,下面我們會在該成員中初始化該類的作者和版本以及在螢幕上顯示一下該類已經開始了  

private sub class_initialize()  

strauthor = "coldstone"  

strversion = "1.0"  

response.write "

myclass開始了

"  end sub  

'//----class_terminate()是類的結束事件,只要一退出該類,就會觸發該事件,下面我們會該事件中設定退出該類時會在螢幕上顯示該類已結束了。  

private sub class_terminate()  

response.write "

myclass結束了

"  end sub  

'//---------------------------使用者自己定義的方法-------------------------------//  

'//----該方法返回乙個版權資訊  

public sub information()  

response.write "

coding by coldstone @ 閃吧.

"  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 = new myclass  

response.write "版本: "& onenewclass.version &" 

"  onenewclass.setexapmle = "這是乙個簡單類的例子"  

response.write "使用者自定義:" & onenewclass.exapmle &" 

"  onenewclass.information  

set onenewclass = nothing  

%> 

如何編寫乙個 XML Schema

看看這個名為 shiporder.xml 的 xml 文件 george bush john adams oxford street london uk empire burlesque special edition 110.90 hide your heart 19.90 說明 上面的xml文件...

如何編寫乙個ajax?

這裡要注意ie的相容問題 oajax.open get url,true 傳輸方法 method 有get方法和post方法。url 就是位址 傳輸方式 async true false 當請求被傳送到伺服器時,我們需要執行一些基於響應的任務。每當 readystate 改變時,就會觸發 onrea...

5 7 編寫乙個員工類

5 7 編寫乙個公司員工類。1 資料成員 員工員 姓名 薪水 部門。2 方法 利用構造方法設定資訊。單參,只傳遞員工號,則員工姓名 無名氏,薪水 0,部門 未定。雙參,傳遞員工號,姓名,則員工薪水為1000,部門 後勤。4參,傳遞員工號 姓名 部門 薪水。無參,則均為空值。顯示資訊。class em...