前言

首先，在我進(jìn)入實(shí)質(zhì)性主題并解釋如何建立類(lèi)之前，我希望保證你知道“對(duì)象”。雖然你可以在程序中使用對(duì)象而不用知道其正確的規(guī)則，但我并不建議如此！對(duì)于對(duì)象的初學(xué)者，接下來(lái)的部分將讓你了解其概念及內(nèi)容。已經(jīng)了解面向?qū)ο缶幊蹋∣OP）的讀者可以跳過(guò)這章節(jié)。



導(dǎo)論

l “對(duì)象是什么？”——對(duì)象通常代表某種實(shí)體，主要是一個(gè)變量和函數(shù)的集合。

l “實(shí)體是什么？”——字面上說(shuō)，實(shí)體是一個(gè)“事物”，我的意思是一個(gè)概念或者任何一個(gè)物體。例如，一輛汽車(chē)是一個(gè)實(shí)體，因?yàn)樗�是一個(gè)物體。你公司銷(xiāo)售部門(mén)銷(xiāo)售產(chǎn)品也是一個(gè)實(shí)體，當(dāng)然，你也可以將其拆開(kāi)來(lái)看，銷(xiāo)售人員、客戶(hù)、產(chǎn)品等都是實(shí)體。



讓我們更深入的來(lái)看“銷(xiāo)售”這個(gè)實(shí)體（對(duì)象）。為了使你更準(zhǔn)確地有一個(gè)銷(xiāo)售的“映像”，你需要知道客戶(hù)買(mǎi)了什么，是哪個(gè)客戶(hù)，誰(shuí)是銷(xiāo)售人員等等……這看來(lái)是一個(gè)簡(jiǎn)單的事件，但假設(shè)所有信息是存儲(chǔ)在單獨(dú)的數(shù)據(jù)庫(kù)表中的，那么當(dāng)你需要獲得某個(gè)銷(xiāo)售過(guò)程所有相關(guān)信息時(shí)，你必須在你的數(shù)據(jù)庫(kù)中做多次獨(dú)立查詢(xún)，再將所有的數(shù)據(jù)集攏。有沒(méi)有更簡(jiǎn)便的辦法而一次獲得銷(xiāo)售的所有信息呢？“對(duì)象”。

在對(duì)象中，你可以植入代碼以從其他表中獲得數(shù)據(jù)，你也可以保存對(duì)象屬性的所有信息，這樣，你可以輕松地使用代碼管理你的銷(xiāo)售數(shù)據(jù)。例如：

'Open the database connection
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "MyDSN"

'Create the recordset object
Set objRS = Server.CreateObject("ADODB.Recordset")

'Define the SQL query
strComplexSQLQuery = "SELECT C.Name, S.Name FROM Customers C, " & _
"Salespeople S, Sales Sl WHERE Sl.CustomerID=C.ID AND " & _
"Sl.SalespersonID=S.ID AND Sl.ID=" & strIDOfThisSale & ";"

'Open the recordset
objRS.Open strComplexSQLQuery, objConn, adOpenForwardOnly, _
adLockReadOnly, adCmdText

'Take the customer and sales person names from the recordset
strCustomerName = objRS(0)
strSalesPersonName = objRS(1)

'Tidy up the objects
objRS.Close
objConn.Close
Set objRS = Nothing
Set objConn = Nothing

'Output the data
Response.Write "This sale was made by " & strSalesPersonName & _
" to " & strCustomerName


可以使用“對(duì)象”來(lái)替代：

'Create the "Sale" object
Set objSale = New Sale

'Lookup the correct sale
objSale.ID = strIDOfThisSale

'Output the data
Response.Write "This sale was made by " & objSale.SalesPersonName & _
" to " & objSale.CustomerName

'Tidy up the objects
objSale.Close
Set objSale = Nothing
如果你使用“Sale”對(duì)象做比打印更多的事，可以讓你省去很多的打字時(shí)間。



計(jì)算中，對(duì)象包括“屬性”和“方法”。屬性主要是儲(chǔ)存在對(duì)象中的一個(gè)變量，其用法與變量相同。唯一的區(qū)別在于參數(shù)賦值為：strMyVar = "This is a string variant", 而對(duì)象屬性為 objObject.Property="This is a string variant"。這點(diǎn)非常簡(jiǎn)單而有用處。方法可以理解為植入對(duì)象中的函數(shù)與過(guò)程，可以使用strMyVar = objObject.MethodName(strMyVar)來(lái)代替strMyVar =FunctionName(strMyVar)。寫(xiě)法不同，但功能相同。屬性的一個(gè)例子是對(duì)象Response中的ExpireAbsolute，Response.ExpiresAbsolute = CDate("1 September 1999")。方法的一個(gè)例子是對(duì)象Response中的Write方法，Response.Write "Hello world!"。

VBScript的一個(gè)新特性就是其可以創(chuàng)建新的對(duì)象而不需要求諸于花銷(xiāo)時(shí)間都極大的編譯器。我將向讀者展示如何創(chuàng)建對(duì)象的類(lèi)，并希望提供一個(gè)良好的開(kāi)端。