,,

[點晴永久免費OA]ASP類介紹專題

admin

2022年7月5日 1:1 本文熱度 1515

嚴格地說，ASP 并不是一門編程語言，所以不存在類這一概念，我們這里說 ASP 類是指 ASP 的編程語言 VBscript 在 ASP 里應用時的類。
ASP 類比較簡單，它不具有真正意義類的繼承、重載等特性，盡管如此，它仍然是非常有用的，它降低了我們編程的復雜度，使我們的程序模塊更加合理。
ASP 類支持什么 ASP 類比較簡單，它不具有真正意義類的繼承、重載等特性。它支持以下內容：
公有成員變量、私有成員變量、屬性
公有成員函數、私有成員函數
構造函數、析構函數

創建和使用一個最簡單的 ASP 類

一些初學者不理解類和對象的區別，打個比方，類好比是圖紙，對象好比是根據圖紙制作出的實物。該示例給出了 ASP 類及對象的簡單示例，該類僅含有一個成員函數，用以解釋類的基本格式，并給出創建、釋放對象的方法。詳細內容 ASP 類成員變量、成員函數、構造析構函數這是一個比較完整的類講解，所有的講解都有注釋的方式寫在程序的旁邊。通過閱讀本節，對 ASP 類有一個較為全面的理解，可以進行 ASP 類模塊的開發。詳細內容 ASP 類屬性 ASP 類屬性與 ASP 類公有成員變量相比具有以下一些特點。
可以在賦值的同時執行其它功能
可以確定賦值范圍
可以將設定只讀、只寫屬性

所以 ASP 類屬性也是比較常用且重要的。詳細內容 ASP 類組合 ASP 類的功能實在有限，所以有時我們要實現復雜的功能，只好用組合來實現。

創建一個最簡單的 ASP 類
class CFoo
    sub PrintHello()
        response.Write "Hello World!"
    end sub
end class

可以看出，ASP 類的基本結構是：
class 類名
    類代碼
end class

使用一個最簡單的 ASP 類
dim obj
set obj = new CFoo '使用 set new 創建對象，由于不是服務器組件，所以不能用 server.createObject 創建
call obj.PrintHello '對象名稱后加點，再跟成員變量、屬性或函數，表示調用該對象的成員變量、屬性或函數，將顯示 Hello World!
set obj = nothing '釋放對象

ASP 類里不能重載構造函數，所以我們不能使用類似于 set obj = new CFoo("param") 的語句來創建類。

ASP 類的功能實在有限，所以有時我們要實現復雜的功能，只好用組合來實現。
class CFish
    sub Swim()
    end sub
end class
class CBird
    sub Fly()
    end sub
end class
class CAnimal
    dim fish
    dim bird
    private sub class_initialize()
        set fish = new CFish
        set bird = new CBird
    end sub

    private sub class_terminate()
        set fish = nothing
        set bird = nothing
    end sub
end class
dim animal
set animal = new CAnimal
call animal.fish.Swim() '魚游
call animal.bird.Fly() '鳥飛
set animal = nothing

ASP 類屬性
class CFoo
    private pvt

    '屬性寫
    public property let propName(v)
        pvt = v
    end property

    '屬性讀
    public property get propName()
        PropName = pvt
    end property
end class

dim obj
set obj = new CFoo
obj.propName = "屬性值"
response.Write(obj.propName) '顯示“屬性值”
set obj = nothing

可以看出屬性值相當于是在私有成員變量與外界之間架了一座橋梁，使雙方可以互相通信。有人就會問屬性跟公有成員變量一樣，它的存在又有什么獨立的意義呢？
1、可以在賦值的同時執行其它功能
如下代碼，相當于同時為兩個成員變量賦值
    public property let propName(v)
        pvt = v
        另一個私有成員變量名 = "pvt 的值：" & v
    end property

2、可以確定賦值范圍
假如上例中的屬性寫改為如下：
    public property let propName(v)
        if Len(v) <= 5 then
            pvt = v
        end if
    end property
執行 obj.propName = "個十百千萬億" 將不會為 pvt 賦值成功，因為該字符串的長度超過了 5。

3、可以將設定只讀、只寫屬性
如上例中，假如我們將 let 函數去掉，調用 obj.propName = "屬性值" 就會出錯，因為這時候函數只可讀。
class CFoo
    dim publicParam '用 dim 申明公有成員變量
    private privateParam '用 private 申明私有成員變量
    'publicParam = "公有" '不能在 class 標記以內、類函數以外為成員變量賦值
    'const MAX_LEN = 5 '不能在 class 標記以內、類函數以外使用 const

    '該函數為構造函數，在使用 set new 創建對象時，自動執行
    private sub class_initialize()
        publicParam = "公有" '可以在這里為成員變量賦值
        privateParam = "私有"
    end sub

    '該函數為析構函數，在使用 set nothing 釋放對象時，自動執行
    private sub class_terminate()
        response.Write "釋放對象"
    end sub

    '公有成員函數（過程）
    '成員函數（過程）不需要也不能申明
    sub PrintParam(index)
        if index = 1 then
            call PrintPublicParam()
        elseif index = 2 then
            call PrintPrivateParam()
        end if
    end sub

    '私有成員函數（過程）
    '只是比公有成員函數（過程）多一個 private
    private sub PrintPublicParam()
        response.Write publicParam
    end sub

    private sub PrintPrivateParam()
        response.Write privateParam
    end sub
end class

dim obj
set obj = new CFoo '自動調用 class_initialize 函數，為 publicParam、privateParam 賦值
obj.publicParam = "新的公有"
obj.privateParam = "新的私有" '將發生錯誤，因為 privateParam 是私有變量
call obj.PrintParam(1) '顯示 publicParam 的值
call obj.PrintPublicParam() '將發生錯誤，因為 PrintPublicParam 是私有函數
set obj = nothing '自動調用 class_terminate 函數，顯示“釋放對象”

該文章在 2022/7/5 1:01:10 編輯過

關鍵字查詢

介紹

正在查詢...

點晴ERP是一款針對中小制造業的專業生產管理軟件系統,系統成熟度和易用性得到了國內大量中小企業的青睞。

點晴PMS碼頭管理系統主要針對港口碼頭集裝箱與散貨日常運作、調度、堆場、車隊、財務費用、相關報表等業務管理，結合碼頭的業務特點，圍繞調度、堆場作業而開發的。集技術的先進性、管理的有效性于一體，是物流碼頭及其他港口類企業的高效ERP管理信息系統。

點晴WMS倉儲管理系統提供了貨物產品管理,銷售管理,采購管理,倉儲管理,倉庫管理,保質期管理,貨位管理,庫位管理,生產管理,WMS管理系統,標簽打印,條形碼,二維碼管理,批號管理軟件。

點晴免費OA是一款軟件和通用服務都免費，不限功能、不限時間、不限用戶的免費OA協同辦公管理系統。

日本xxxx18视频在线观看-日本xxxx1819-日本xxxwww在线观看-日本xxx-日本xx-日本www在线视频

[點晴永久免費OA]ASP類介紹專題