黄色电影一区二区,韩国少妇自慰A片免费看,精品人妻少妇一级毛片免费蜜桃AV按摩师 ,超碰 香蕉

首先，在我進(jìn)入實(shí)質(zhì)性主題并解釋如何建立類之前，我希望保證你知道“對(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)售人員、客戶、產(chǎn)品等都是實(shí)體。
讓我們更深入的來(lái)看“銷(xiāo)售”這個(gè)實(shí)體（對(duì)象）。為了使你更準(zhǔn)確地有一個(gè)銷(xiāo)售的“映像”，你需要知道客戶買(mǎi)了什么，是哪個(gè)客戶，誰(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ú)立查詢，再將所有的數(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ì)象的類，并希望提供一個(gè)良好的開(kāi)端。 
創(chuàng)建對(duì)象
在vbscript中創(chuàng)建對(duì)象類型（類）時(shí)，你首先要知道，這真的很容易！我在一個(gè)下午自學(xué)，只是閱讀了microsof vb script 的參考書(shū)，但必須承認(rèn)，這書(shū)不是最容易閱讀的文檔。
初學(xué)者需要安裝vbscript 5.0引擎，可以在microsoft''''''''s scripting site下載。
我們來(lái)看代碼。類的定義與函數(shù)和子過(guò)程非常類似。起始行為class ，結(jié)尾是end class，所有的對(duì)象定義寫(xiě)在中間部門(mén)?，F(xiàn)在我們可以用所學(xué)的來(lái)建立第一個(gè)類，不實(shí)現(xiàn)任何功能的類。
class 4guystestobject
end class
這看上去不是那么回事，但當(dāng)你寫(xiě)入下面的代碼后，你將創(chuàng)建一個(gè)對(duì)象的實(shí)例：
dim objtestobject
set objtestobject = new 4guystestobject
set objtestobject = nothing
顯然，我們現(xiàn)在還不能用對(duì)象做任何事，現(xiàn)在我將解釋如何在對(duì)象中定義屬性和方法。
使用對(duì)象可以做的最基礎(chǔ)的，是建立一組數(shù)據(jù)。例如，假如要將時(shí)間、日期及視頻程序標(biāo)題建立在一起，你可以創(chuàng)建一個(gè)包含屬性“starttime”， “programdate”和“programtitle”的對(duì)象。代碼如下：

class tvprogram 

public starttime 

public programdate 

public programtitle 

end class 

dim objtvshow 

set objtvshow = new tvprogram 

objtvshow.starttime = cdate("17:30") 

objtvshow.programdate = dateserial(1999,9,17) 

objtvshow.programtitle = "the jerry springer show" 

response.write objtvshow.programtitle & " is on at " & _ 

objtvshow.starttime & " on " & objtvshow.programdate 

代碼工作的方式是，我們定義starttime，programdate和programtitle為類tvprogram的屬性。這樣，這些屬性就像其他變量一樣來(lái)處理，沒(méi)有設(shè)置值則不會(huì)執(zhí)行代碼。屬性名字前的public字段有其真實(shí)含義，而且非常重要。如果你不特指一個(gè)方法或?qū)傩詾閜ublic或 private，系統(tǒng)默認(rèn)值為public，但最好養(yǎng)成定義任何值的良好書(shū)寫(xiě)習(xí)慣（也方便你之后自己的閱讀）。
上面程序的結(jié)果大致如下（決定于你的本地服務(wù)器配置）：
the jerry springer show is on at 5:30pm on 17/09/99.
我在英國(guó)，所以日期現(xiàn)實(shí)如上。不論你跑什么工程，它的效果都不錯(cuò)，但只有你開(kāi)始使用其他對(duì)象的功能，為你可能需要的所有信息和功能，創(chuàng)建一個(gè)完美的接口，以支持你所建對(duì)象包圍的實(shí)體，你才會(huì)體會(huì)到對(duì)象的真正實(shí)力。
現(xiàn)在，如果你不喜歡上面例子顯示日期的方法，而希望以同一種格式現(xiàn)實(shí)日期，也沒(méi)有不要在引用每個(gè)programdate屬性時(shí)加formatdatetime(),你只需要將此類代碼植入屬性本身。
這樣需要用另一種方法定義屬性。同樣，我們將使用programdate為外部可見(jiàn)屬性，但因?yàn)閜rogramdate屬性將成為一個(gè)函數(shù)而不是靜態(tài)值，我們將實(shí)際日期保存在另一個(gè)屬性中internal_programdate。

class tvprogram 

public starttime 

public internal_programdate 

public property get programdate 

programdate = day(internal_programdate) & _ 

" " & monthname(month(internal_programdate)) & _ 

" " & year(internal_programdate) 

end property 

public programtitle 

end class 

dim objtvshow 

set objtvshow = new tvprogram 

objtvshow.starttime = cdate("17:30") 

objtvshow.internal_programdate = dateserial(1999,9,17) 

objtvshow.programtitle = "the jerry springer show" 

response.write objtvshow.programtitle & " is on at " & _ 

objtvshow.starttime & " on " & objtvshow.programdate & "." 

程序的結(jié)果如下：
the jerry springer show is on at 5:30pm on 17 september 1999. 
我們來(lái)分析一下（2）中的程序：

class tvprogram 

public starttime 

public internal_programdate 

public property get programdate 

programdate = day(internal_programdate) & _ 

" " & monthname(month(internal_programdate)) & _ 

" " & year(internal_programdate) 

end property 

public programtitle 

end class 

dim objtvshow 

set objtvshow = new tvprogram 

objtvshow.starttime = cdate("17:30") 

objtvshow.internal_programdate = dateserial(1999,9,17) 

objtvshow.programtitle = "the jerry springer show" 

response.write objtvshow.programtitle & " is on at " & _ 

objtvshow.starttime & " on " & objtvshow.programdate & "." 

當(dāng)調(diào)用對(duì)象的屬性programdate時(shí)，實(shí)際上執(zhí)行了函數(shù)programdate，即如上定義的函數(shù)，而很快你也將習(xí)慣這種在聲明部分使用public 或private關(guān)鍵字的方式。關(guān)鍵字“property”，告知了編譯器如同調(diào)用屬性一樣在外部調(diào)用函數(shù)。接著的“get”，表明該函數(shù)是輸出還是獲得一個(gè)值。
get的意思是“允許外部代碼去‘獲取'一個(gè)值”，與其類似的關(guān)鍵字還有“l(fā)et”和“set”，但這兩個(gè)比較復(fù)雜，因而我們以后再討論。
接下去的代碼看來(lái)有點(diǎn)難度的，給objectname.internal_programdate賦值并通過(guò)objectname.programdate來(lái)調(diào)用它。如果可以使用相同關(guān)鍵字同時(shí)為其賦值并獲得它的值不是更好嗎？當(dāng)然，那也可以。
如果定義get和let屬性的名稱相同，可以將它們當(dāng)作對(duì)象相同的屬性，但這只限于它們定義了相同數(shù)量的成員。（以下代碼看來(lái)不太相同，僅作為實(shí)例參考）

class tvprogram 

public starttime 

public internal_programdate 

public property get programdate 

programdate = day(internal_programdate) & " " _ 

& monthname(month(internal_programdate)) & _ 

" " & year(internal_programdate) 

end property 

public property let programdate(byval vardatein) 

internal_programdate = cdate(vardatein) 

end property 

public programtitle 

end class 

dim objtvshow 

set objtvshow = new tvprogram 

objtvshow.starttime = cdate("17:30") 

objtvshow.programdate = "17 sept 99" 

objtvshow.programtitle = "the jerry springer show" 

response.write objtvshow.programtitle & " is on at " & _ 

objtvshow.starttime & " on " & objtvshow.programdate & "." 

以上代碼中l(wèi)et的聲明部分看來(lái)似乎是一個(gè)多余的元素，當(dāng)我第一次看到時(shí)研究了很長(zhǎng)時(shí)間。每次我使用“0”作為變量用在每個(gè)屬性上，我總是得到這個(gè)錯(cuò)誤信息，“元素?cái)?shù)量必須相等”?！八鼈兇_實(shí)相等！”抓狂之后，我回過(guò)頭去看程序才覺(jué)得自己的愚蠢?。海?
原因是，當(dāng)你試圖為programdate賦值時(shí)，你會(huì)使用這樣一行程序：
objtvshow.programdate = dtmmydate
為了方便，等號(hào)右邊的值（這里指dtmmydate）作為了一個(gè)程元賦給了函數(shù)。因此編譯器可能會(huì)認(rèn)為在get programdate行有0程元，而let programdate卻多一個(gè)！分配的值總是被略過(guò)而作為屬性的最后一個(gè)程元，所以即使你使用其他程元，所賦的值總是作為最后一個(gè)程元。
現(xiàn)在看程序。無(wú)論通過(guò)programdate設(shè)置日期為文本形式，還是用internal_programdate譯成日期變量，程序都沒(méi)有問(wèn)題。但能不能只使用一個(gè)入口呢？
如果internal_programdate只能在內(nèi)部有效，而使用let programdate檢查傳輸?shù)臄?shù)據(jù)類型，我們就可以作出選擇。例如：

class tvprogram 

public starttime 

private internal_programdate 

public property get programdate 

programdate = day(internal_programdate) & " " & _ 

monthname(month(internal_programdate)) & _ 

" " & year(internal_programdate) 

end property 

public property let programdate(byval vardatein) 

if isdate(vardatein) then 

internal_programdate = vardatein 

else 

''''''''place some error handling code in here. 

end if 

end property 

public programtitle 

end class 

并同樣聲明starttime屬性：

class tvprogram 

private internal_starttime 

public property get starttime 

starttime = hour(internal_starttime) & ":" _ 

& minute(internal_starttime) 

end property 

public property let starttime(byval vartimein) 

if isdate(vartimein) then 

internal_starttime = vartimein 

end if 

end property 

private internal_programdate 

public property get programdate 

programdate = day(internal_programdate) & " " _ 

& monthname(month(internal_programdate)) & _ 

" " & year(internal_programdate) 

end property 

public property let programdate(byval vardatein) 

if isdate(vardatein) then 

internal_programdate = vardatein 

end if 

end property 

public programtitle 

end class 

... 

現(xiàn)在的代碼離我們想要的還是有些不太實(shí)用，我們將在其他頁(yè)使用類tvprogram，因此最好將其獨(dú)立定義，以便所有也面都可以調(diào)用。我們將在第四部分討論這點(diǎn)
現(xiàn)在的代碼離我們想要的還是有些不太實(shí)用，我們將在其他頁(yè)使用類tvprogram，因此最好將其獨(dú)立定義，以便所有也面都可以調(diào)用。創(chuàng)建一個(gè)asp頁(yè)面，并命名為tvprogramclass.asp，我們?cè)谄渲卸x類tvprogram。
--tvprogramclass.asp--

<% 

       class tvprogram 

              private internal_starttime 

              public property get starttime 

                      starttime = hour(internal_starttime) & _ 

                              ":" & minute(internal_starttime) 

              end property 

              public property let starttime(byval vartimein) 

                      if isdate(vartimein) then 

                              internal_starttime = vartimein 

                      end if 

              end property 

              private internal_programdate 

              public property get programdate 

                      programdate = day(internal_programdate) & _ 

                              " " & monthname(month(internal_programdate)) & _ 

                              " " & year(internal_programdate) 

              end property 

              public property let programdate(byval vardatein) 

                      if isdate(vardatein) then 

                              internal_programdate = vardatein 

                      end if 

              end property 

              public programtitle 

       end class 

%> 

這樣就可以在任何asp中調(diào)用我們定義的類了，語(yǔ)法如下：

<% 

       dim objtvshow 

       set objtvshow = new tvprogram 

       objtvshow.starttime = cdate("17:30") 

       objtvshow.programdate = dateserial(1999,9,17) 

       objtvshow.programtitle = "the jerry springer show" 

%> 

<%= objtvshow.programtitle %> is on at <%= objtvshow.starttime %> on <%= objtvshow.programdate %>.
   這里有一個(gè)建議。如果你重命名你的包含文件.asp，并保證所有重要代碼都在<% ... %>< code>中，那么就算有人猜到了你包含文件的文件名，也沒(méi)辦法看見(jiàn)里面的內(nèi)容！