4.3.2 創(chuàng)建其他對(duì)象的實(shí)例 在前一章中，討論了ASP的虛擬應(yīng)用程序概念，了解了虛擬應(yīng)用程序通過(guò)application Protection設(shè)置為ASP網(wǎng)頁(yè)中的組件和其他對(duì)象提供進(jìn)程隔離。這延續(xù)了第1章的討論，即ASP的ObjectContext對(duì)象如何為ASP網(wǎng)頁(yè)提供運(yùn)行環(huán)境，以及如何使用在相同的環(huán)境中運(yùn)行的其他組件和對(duì)象。 ASP Server對(duì)象提供創(chuàng)建這些組件和應(yīng)用程序?qū)嵗墓δ埽虼丝捎脕?lái)擴(kuò)充ASP腳本的能力。通過(guò)實(shí)現(xiàn)CreateObject方法的一個(gè)特定版本來(lái)實(shí)現(xiàn)這個(gè)功能。 1． 在VBScript和JScript中創(chuàng)建對(duì)象實(shí)例 在VB或VBA中，可使用多種方法創(chuàng)建對(duì)象的實(shí)例。可以使用New關(guān)鍵字來(lái)創(chuàng)建指定類型的一個(gè)新對(duì)象： Dim objNewObject As New MyComponent 然而，不能在ASP中用VBScript或JScript這么做，因?yàn)檫@些腳本引擎不能實(shí)現(xiàn)數(shù)據(jù)類型定義。不能聲明一個(gè)變量為任意指定的數(shù)據(jù)類型，其變量都是Variants類型，或一個(gè)等價(jià)的類型（根據(jù)使用的腳本語(yǔ)言而定）。 在VB和VBA中另一個(gè)方法是使用CreateObject或GetObject方法。CreateObject方法的參數(shù)是一個(gè)ClassID（通常情況）或一個(gè)ProgID字符串，它返回相應(yīng)類型的一個(gè)新對(duì)象： Set objNewObject = CreateObject(“ADODB.Connection”) 當(dāng)擁有一個(gè)指定的文檔類型，并且想創(chuàng)建一個(gè)可以處理這種文檔的對(duì)象實(shí)例時(shí)，通常使用GetObject方法： Set objExcel = GetObject(“C:/myfiles/sales.xlw”) 也可以指定所需要的對(duì)象類型和文件名，在幾種對(duì)象都能處理該文檔類型的情況下，這種做法是非常有用的： Set objExcel = GetObject(“C:/myfiles/sales.xlw”,”Excel.Application”) VBScript支持CreateObject和GetObject方法。JScript也有g(shù)etObject方法，與VBScript中的GetObject工作方式相同。JScript中的ActiveXObject實(shí)現(xiàn)了與VBScript的CreateObject方法相同的功能。但這個(gè)函數(shù)常與JScript的new運(yùn)算符協(xié)同使用： ObjNewObject = new ActiveXObject(“This.object”); 除了VB的NEW關(guān)鍵字在VBScript和JScript中不予支持以外，能夠使用所有這些技術(shù)在一個(gè)ASP網(wǎng)頁(yè)中創(chuàng)建對(duì)象的實(shí)例。然而，能夠并不意味著應(yīng)該，而且大多數(shù)情況下不應(yīng)該在一個(gè)ASP網(wǎng)頁(yè)中使用腳本引擎的對(duì)象創(chuàng)建函數(shù)。 2． 在ASP網(wǎng)頁(yè)中創(chuàng)建對(duì)象實(shí)例 為了理解一般的腳本引擎對(duì)象創(chuàng)建方法為什么在ASP網(wǎng)頁(yè)中使用效果不理想，需進(jìn)一步對(duì)ASP中的環(huán)境和ObjectContext對(duì)象進(jìn)行討論。 使用腳本引擎的一般方法在一個(gè)ASP網(wǎng)頁(yè)中創(chuàng)建一個(gè)對(duì)象實(shí)例時(shí)，該對(duì)象在當(dāng)前執(zhí)行的頁(yè)面的環(huán)境中并未實(shí)例化。得不到ObjectContext對(duì)象的引用，所以不能使用該對(duì)象來(lái)訪問(wèn)頁(yè)面的環(huán)境，即不能訪問(wèn)該頁(yè)面環(huán)境中的值。 這意味著該對(duì)象不能使用內(nèi)置的ASP對(duì)象，即不能夠訪問(wèn)在Request、Response、Application和session對(duì)象的集合中的值，也不能使用內(nèi)置的ASP對(duì)象提供的方法和屬性。該對(duì)象也不能夠與此環(huán)境中任何現(xiàn)有的事務(wù)進(jìn)行交互。如果發(fā)生錯(cuò)誤，不能使用ObjectContext方法放棄一個(gè)事務(wù)。 當(dāng)然，你可能不想與該網(wǎng)頁(yè)的環(huán)境進(jìn)行交互。但是有其他的理由說(shuō)明使用一般的對(duì)象創(chuàng)建方法通常是不明智的。IIS自動(dòng)地在COM+運(yùn)行期包裝程序hllhost.dll中實(shí)例化對(duì)象，使得該對(duì)象可以在當(dāng)前的虛擬應(yīng)用程序中完全地共享和重新使用（缺省的Web網(wǎng)站本身是一個(gè)虛擬的應(yīng)用）。 你在上一章所看到的對(duì)一個(gè)虛擬應(yīng)用程序的設(shè)置，既允許在Web服務(wù)器的內(nèi)存空間中創(chuàng)建對(duì)象，也可以在共享的或獨(dú)立的進(jìn)程外DLLHost.dll實(shí)例中創(chuàng)建對(duì)象。如果使用一般的腳本引擎對(duì)象創(chuàng)建方法，將繞過(guò)所有的組件隔離和可擴(kuò)展特性。而在使用ASP Server對(duì)象的CreateObject方法時(shí)會(huì)自動(dòng)地提供這些特性。 3． Server對(duì)象的CreateObject方法 為了試驗(yàn)CreateObject方法，打開(kāi)示例的Chapter04主菜單頁(yè)，單擊“Using the ASP Server Object”鏈接，如圖4-10所示：
圖4-11 Server對(duì)象的屬性和方法 在該頁(yè)面的“Create an Instance of a Component”區(qū)域，有一個(gè)文本框，可以在其中鍵入想要在該網(wǎng)頁(yè)的環(huán)境中創(chuàng)建的對(duì)象的ProgID字符串，甚至可以鍵入一個(gè)ClassID數(shù)值。這里文本框的缺省值已經(jīng)設(shè)置為一個(gè)來(lái)自ActiveX數(shù)據(jù)對(duì)象庫(kù)的公用對(duì)象的ProgID：ADODB.Connection。 單擊“Server.CreateObject”選項(xiàng)旁的按鈕，把該頁(yè)面提交給其自身，因?yàn)樗械目丶荚谝粋€(gè)帶有ACTION屬性的<FORM>上，而這個(gè)ACTION屬性被設(shè)置為這個(gè)網(wǎng)頁(yè)的路徑和文件名： … FORM ACTION="<% = Request.ServerVariables("SCRIPT_NAME") %>" METHOD="POST">
<P><DIV CLASS="subhead">Create an Instance of a Component</DIV> <INPUT TYPE="SUBMIT" NAME="cmdCreateObject" VALUE=" "> Server.CreateObject (" <INPUT TYPE="TEXT" NAME="txtProgID" SIZE="25" VALUE="ADODB.Connection"> ")<P> … </FORM> … 當(dāng)該頁(yè)面重新載入時(shí)，該頁(yè)中的一段ASP代碼（位于<FORM>段的前面）將查看提交該窗體時(shí)，單擊了哪個(gè)按鈕。如果是名稱為“cmdCreateObject”的按鈕時(shí)，該代碼將讀取文本框中的ProgID字符串。為防止用戶輸入的ProgID無(wú)效而導(dǎo)致執(zhí)行中止，關(guān)閉缺省的腳本錯(cuò)誤處理，再嘗試使用Server.CreateObject方法創(chuàng)建一個(gè)對(duì)象的實(shí)例。最后，再重新打開(kāi)缺省的錯(cuò)誤處理，通過(guò)使用IsObject函數(shù)檢查是否創(chuàng)建了一個(gè)對(duì)象實(shí)例，并顯示一個(gè)相應(yīng)的信息： QUOT = Chr(34) 'double-quote character … 'look for a command sent from the FORM section buttons If Len(Request.Form("cmdCreateObject")) Then strProgID = Request.Form("txtProgID") On Error Resume Next Set objObject = Server.CreateObject(strProgID) On Error Goto 0 If IsObject(objObject) Then Response.Write "<B>Results:</B><BR>Sucessfully created object with ProgID of <B>" _ & QUOT & strProgID & QUOT & "</B><HR>" Else Response.Write "<B>Results:</B><BR>Failed to create object with ProgID of <B>" _ & QUOT & strProgID & QUOT & "</B><HR>" End If End If … 圖4-12所示的是創(chuàng)建ADODB.Connection對(duì)象的結(jié)果。可以看到該對(duì)象已被正常實(shí)例化，已可以在代碼中使用。
