程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> ASP中使用類實現模塊化

ASP中使用類實現模塊化

編輯:關於ASP編程

      對象就是能看到,感到,聽到,觸摸到,嘗到或聞到的東西,在這裡我們這樣“定義”:對象是一個自包含的實體,用一組可識別的特性和行為來標識。
    在面向對象的編程(oop)的編程方式,用使用下面的兩個術語。
    類:這是對象的模板,定義了對象的特性。
    實例:這是一個真實的對象,可以與之交互的東西。

    屬性,方法和事件

    在OOP中,下面的術語描述對象的特性
    屬性:這是一個名次,描述了某個對象的屬性
    方法:這是一個動詞,描述了對象可以完成的工作,或者希望它完成的工作。
    事件:描述了對象為相應某個動作而執行的操作。
    在編程時,對象的面向對象編程和面向對象設計的一部分,它們具有非常大的優勢,許多人認為這是一個復雜的主題,但實際上,它非常簡單,可以用四個簡單的術語來解釋:抽象、封裝、多態和繼承。
    抽象:這是一個隱藏復雜性,類的內部工作情況,所以用戶不必知道它的運作方式,就像。如果想要看電視,就不必知道電視機時如何工作的,只需打開電視機,搜索頻道即可,on/off開關抽象了實際的操作,在string例子裡,有一個trim方法,它可以刪除字符串尾部的空格,同樣不需要知道他是如何完成這個任務的,只要知道它有這個功能即可。

    封裝:每個對象都包含進行操作所需要的所有信息,這個對象稱為封裝,因此對象不比依賴其他對象來完成自己的操作,在術語TOupper()方法中,string不必到其他地方獲取信息來把所有的字符轉換為大寫。

    多態:這個術語用於表示不同的對象可以執行相同的動作,但要通過他們自己的實現代碼來執行,名稱一樣,但底層實現的代碼是不一樣的。

    繼承:它定義了類如何相互關聯,共享特性的,繼承的工作方式是,定義類和子類,其中子類繼承了父類的所有特性,繼承的重要性是,它迫使類型相似的類具有一致性,並允許共享代碼,如果決定創建一個新類,就不必定義父類的所有特性。下面我通過舉上幾個簡單的例子說明一下,注意,這裡強調的是一種思想,如果在您開發ASP網站的時候能用一個類(基類)展開的話,這是很有必要的(也是很有難度的)。

    我們先選擇一個簡單的例子:

    我們要顯示經典論壇用戶的信息,當輸入用戶的ID以後能,顯示出該用戶的一些信息,這是一個過程,可以這樣考慮,我們把用戶當作一個對象,他有的屬性是ID,性別,積分,權限,實現的方法有顯示這些信息,ok,這樣寫:

    Class blueidea
    Private bname,bpoint,bsex,blevel
    '...................
    end class這裡先聲明了一個名為 blueidea的類,接著是一些私有變量,用於存儲blueidea類的屬性,這些變量在代碼的外部不能訪問,這就是數據保護,要定義這些變量,使用了 property語句獲得值間接的付給私有變量。...
    '-----------------------------------------------------------------
    Property Get getname
    getname=bname
    End Property

    Property Let getname(nameid)
    bname=nameid
    If nameid="" Then
    bname="沒注冊用戶"
    End If
    End Property
    '------------------------------------------------------------------      
    Property Get getsex
    getsex=bsex
    End Property

    Property Let getsex(sex)
    bsex=killint(sex,0,0)
    If bsex=0 Then
    bsex="男"
    Else
    bsex="女"
    End if
    End Property
    '------------------------------------------------------------------      
    Property Get getpoint
    getpoint=bpoint
    End Property

    Property Let getpoint(point)
    bpoint=killint(point,0,0)
    End Property
    '------------------------------------------------------------------

    這裡有個killint函數,是判斷數據合法性的,它的原形是:        Private Function killint(i,killstr,killsub)
    If Not IsNumeric(i) Then
    i=killstr
    ElseIf i<=0 Then
    i=killsub
    End if
    killint=Int(Left(i,5))
    End Function

    該函數功能很明確,不再繁瑣說。

    由於我們要通過積分判斷用戶級別,這裡定義了一個私有函數:Private Function getlevel()
    bpoint=killint(bpoint,0,0)
    If bpoint<500 Then
    blevel="初級會員"
    ElseIf bpoint>=500 And     bpoint<=100 Then
    blevel="高級會員"
    Else
    blevel="終極會員"
    End If
    Getlevel=blevel
    End Function我們要得是回送用戶的信息,必須定義一個public公用函數,顯示信息:

    Public Function showuser()
    response.write("<h5>以下顯示<font color=red>"&bname&"</font>的資料:</h5>")
    response.write("<h5>性別:<font color=red>"&bsex&"</font></h5>")
    response.write("<h5>積分:<font color=red>"&bpoint&"</font></h5>")
    getlevel
    response.write("<h5>級別:<font color=red>"&blevel&"</font></h5>")
    End Function
    End class

    使用這個類的時候這樣使用:(我在這裡寫了一個表單處理的)
    Set blueideauser=new blueidea
    blueideauser.getname=Trim(request("id"))
    blueideauser.getsex=request("sex")
    blueideauser.getpoint=request("point")
     

    1. 上一頁:
    2. 下一頁:
    Copyright © 程式師世界 All Rights Reserved