2004-03-18 12:22:48
本篇文章通過(guò)與傳統的設計方法相比較，介紹了如何在A(yíng)SP代碼中調用VB組件的方法。在本篇文章中，我們假設讀者具有VB和ASP的相關(guān)入門(mén)知識。
服務(wù)器端組件和客戶(hù)端組件的比較
服務(wù)器端組件和客戶(hù)端組件有許多不同之處。服務(wù)器端組件是在計算機服務(wù)器上注冊的DLL文件，客戶(hù)端組件則在瀏覽器運行的計算機上注冊，在IE中，這些客戶(hù)端組件被稱(chēng)作ActiveX瀏覽器插件組件。
ActiveX客戶(hù)端組件可以使用VB編寫(xiě)，并通過(guò)互聯(lián)網(wǎng)或內聯(lián)網(wǎng)發(fā)送給瀏覽器，生成很精彩的效果。問(wèn)題是，ActiveX客戶(hù)端組件只限于IE，而使用VB編寫(xiě)的服務(wù)器端組件則能夠產(chǎn)生純HTML代碼，適用于所有的瀏覽器。服務(wù)器端組件的最大問(wèn)題是該組件必須在Windows+IIS環(huán)境中或與IIS的API兼容的應用中運行。相比較而言，在服務(wù)器端實(shí)現這種兼容性似乎更容易一些。
IIS服務(wù)器端組件駐留在與IIS相同的內存空間中，并隨時(shí)準備服務(wù)器上處理的ASP網(wǎng)頁(yè)的調用。從理論上說(shuō)，我們可以在返回瀏覽器的ASP代碼中插入任何文本或代碼，但一般來(lái)說(shuō)，大多數服務(wù)器端組件被用來(lái)處理需要大量時(shí)間的計算或數據庫信息查找，然后將所得到的結果以HTML代碼的形勢返回給瀏覽器。
VB組件的解析
由于本篇文章旨在討論編寫(xiě)VB組件的基本方法，因此在能夠說(shuō)明問(wèn)題的情況下，其中的例子將是十分簡(jiǎn)單的。在詳細討論編寫(xiě)VB組件之前，我們將首先從概念上對VB組件作一番剖析。
在使用VB編寫(xiě)服務(wù)器端的組件時(shí)，有三個(gè)分層次的概念（在VB和ASP代碼中都會(huì )用到）需要注意：
·Project名字
·Class名字
·Method名字
VB工程的名字就是Project名字。許多開(kāi)發(fā)人員都將Project名字看作是組件名字，但VB只將它看作是工程的名字。在我們的例子中，Project名字是ExampleProject，當然了，我們可以隨意命名自己的工程名字；Class名字名字是ExampleClass，Method名字是ExampleMethod。
工程名字（組件名字）也可以是由組件代碼編譯后得到的DLL文件的名字，該DLL文件將包含有被IIS用來(lái)向瀏覽器返回文本或HTML代碼的經(jīng)過(guò)編譯的VB代碼。
方法名字指的是管理特定代碼功能的VB代碼部分，例如計算日期或顯示數據庫中所有作者的清單。組件方法有點(diǎn)角個(gè)黑盒子，它完成特定的工作或根據輸入的信息返回特定的信息。一般情況下，在一個(gè)組件中可以有多個(gè)方法。為了更有效地管理組件的方法，可以將方法按照相似的分類(lèi)組合在一起，這就是組件類(lèi)的作用。
組件類(lèi)能夠在內存中生成組件類(lèi)代碼的一個(gè)拷貝，在使用ASP代碼創(chuàng )建對象時(shí)，它也被稱(chēng)作對象，這就是實(shí)例化。一旦有了組件類(lèi)代碼實(shí)例的對象引用，我們就可以從ASP代碼中調用類(lèi)中包含的方法。
在我們的例子中，工程、類(lèi)、方法的名字將用來(lái)在A(yíng)SP代碼中實(shí)例化VB組件，并以方法參數的形式從ASP代碼中向VB代碼傳送值，在A(yíng)SP代碼中接收從VB方法中返回的值。
從ASP文件中調用VB組件
我們用來(lái)調用VB組件的ASP文件將使用對象變量保存VB對象的引用。在A(yíng)SP文件中，可以使用ASP Server對象的CreateObject()方法創(chuàng )建一個(gè)對象，該方法將返回一個(gè)它創(chuàng )建的對象的引用。在例子中，我們將使用objReference作為組件的對象變量。下面的代碼顯示ASP代碼在實(shí)例化VB組件時(shí)需要使用組件的工程名和類(lèi)名（ExampleProject和ExampleClass）。
實(shí)例化VB組件的ASP代碼：
Set objReference = Server.CreateObject("ExampleProject.ExampleClass")
VB組件將從ASP代碼中接受3個(gè)變量的值，并向ASP代碼返回一個(gè)值，該值將存儲在名字為strMethodReturn的ASP變量中。下面的代碼顯示出ASP代碼是如何得到由VB組件返回的值的，它向VB方法傳送三個(gè)名字分別為Param1、Param2和Parma3的三個(gè)參數值：
strMethodReturn = objReference.ExampleMethod(Param1, Param2, Param3)
Param1、Param2、Param3這三個(gè)參數必須與VB組件中方法的定義完全相同，下面是二行實(shí)例化VB組件的類(lèi)、并調用類(lèi)的方法獲得返回值的ASP代碼的例子：
Set objReference = Server.CreateObject("ExampleProject.ExampleClass")
strMethodReturn = objReference.ExampleMethod(Param1, Param2, Param3)
下面的圖表直觀(guān)地顯示了VB組件的工程、類(lèi)和方法名字是如何與ASP文件中的組件實(shí)例化代碼協(xié)調的。在逐步地學(xué)習如何編寫(xiě)例子中的VB代碼和ASP文件時(shí)，可以將下面的圖表作為參考。
VB方法的作用
我們例子中簡(jiǎn)單的VB組件將獲得用戶(hù)的名字和年齡，然后返回一個(gè)以天計的用戶(hù)的年齡，而且有一個(gè)可選項，能夠提醒某個(gè)用戶(hù)是否已經(jīng)超過(guò)了45歲。
如果我們向組件傳送一個(gè)虛構的Eric Clapton作為方法的第一個(gè)參數值，將第二個(gè)參數設置為56，我們將得到下面的返回字符串：
Eric Clapton is over 20440 days old.
如果我們將可選的第三個(gè)參數設置為T(mén)rue（這一參數將使方法判斷用戶(hù)是否已經(jīng)超過(guò)45歲），我們將會(huì )得到下面的返回字符串：
Eric Clapton is over 20440 days OLD.
由于使用了三個(gè)完全不同的變量━━用戶(hù)的姓名、年齡以及表示他們是否超過(guò)了45歲，因此我們需要使用三個(gè)方法參數將這些信息從ASP文件傳送給VB代碼。在VB中，考慮要使用哪些數據類(lèi)型是十分重要的。我們將使用一個(gè)名字為strName的字符串型變量表示用戶(hù)的姓名，名字為intAge的整型變量表示用戶(hù)的年齡，名字為blnAgeEmphasisOn的布爾型變量表明用戶(hù)是否已經(jīng)超過(guò)了45歲。
三個(gè)方法參數（傳送給VB組件的方法代碼的變量）：
strName(String)
intAge(Integer)
blnAgeEmphasisOn(Boolean)
在VB中創(chuàng )建服務(wù)器端組件
啟動(dòng)VB后，在“新工程”窗口中雙擊“ActiveX DLL”圖標。一旦VB加載了新的ActiveX DLL工程，至少會(huì )看到二個(gè)打開(kāi)的窗口：工程窗口和屬性窗口。如果有一個(gè)窗口顯示不出來(lái)，可以從VB的菜單中選擇“查看”菜單項（分別使用“查看”->“工程管理器”、“查看”->“屬性窗口”）。
由于VB對第一個(gè)工程和類(lèi)的缺省命名分別是Project1、Class1，我們可以將它們分別改為ExampleProject 和ExampleClass。工程名字的修改可以在工程窗口中進(jìn)行。在工程窗口中新輸入的工程名字左側有一個(gè)帶有+或-的小方框。如果顯示的是+號，選擇該小方框，+號就會(huì )變成-號，缺省的類(lèi)名（Class1）就會(huì )顯示在工程名字的下面。在工程窗口中選擇缺省的類(lèi)名，在屬性窗口中將缺省的類(lèi)名修改為ExampleClass。
在保存工程時(shí)，VB會(huì )將包含類(lèi)的代碼保存在一個(gè)擴展名為CLS的文件，工程文件的擴展名為VBP，其中存儲有工程的各種設置、文件名和文件存儲的位置。
服務(wù)器端組件的屬性值
在屬性窗口中顯示ExampleClass類(lèi)的屬性，注意Instancing屬性的值為“5 MultiUse”，如果將工程的類(lèi)型設置為標準的EXE工程，該屬性的值就會(huì )隨之發(fā)生改變。
在VB的菜單中選擇“工程”->“ExampleProject屬性”，就會(huì )顯示出工程屬性窗口。在“常規”標簽的右下端的“線(xiàn)程模式”屬性的值應當被設置為“單元線(xiàn)程”，這將使多個(gè)訪(fǎng)問(wèn)者能夠同時(shí)使用我們的組件類(lèi)的不同的實(shí)例。另外，選擇“無(wú)人值守執行”和“駐留內存”二個(gè)選項，避免VB6中的內存泄露問(wèn)題。
VB方法的代碼
現在我們就需要使用VB的代碼窗口來(lái)輸入VB代碼了。如果代碼窗口還是一片空白，那就輸入下面的代碼好了：
Option Explicit
‘它將要求我們必須定義所有的變量。
Public Function ExampleMethod(ByVal strName As String, _
ByVal intAge As Integer, _
Optional ByVal blnAgeEmphasisOn As Boolean = False) As String
在上面的代碼中，我們將方法定義成了一個(gè)Public函數，這意味著(zhù)該組件之外的任何代碼都能夠調用它，由于是一個(gè)函數，它還會(huì )向調用它的代碼返回一個(gè)值。
Public Function ExampleMethod() As String
上面的代碼表示ExampleMethod()函數將向它的調用者返回一個(gè)字符串類(lèi)型的值。
我們的VB方法帶有3個(gè)從ASP代碼接受值的參數變量，最后一個(gè)參數變量是可選的。所有用來(lái)從VB組件之外接收值的參數變量都需要在VB方法的括號間定義和使用，我們可以象在方法內定義的變量那樣使用以這種方式定義為方法參數的變量，二者之間唯一的區別是外面的ASP代碼來(lái)決定它們的值。
下面是三個(gè)變量和它們的數據類(lèi)型：
ByVal strName As String
ByVal intAge As Integer
Optional ByVal blnAgeEmphasisOn As Boolean = False
上面的代碼定義了三個(gè)方法參數的數據類(lèi)型，指明它們是按值傳送的，而且第三個(gè)參數是可選的，如果沒(méi)有第三個(gè)參數，則其缺省值為False。
然后，我們將在方法的定義中添加一些必要的逗號、空格和底劃線(xiàn)（_），這樣才能符合VB的語(yǔ)法要求。我們將把參數列表放在方法定義的括號中間，得到的方法定義如下：
Public Function ExampleMethod(ByVal strName As String, _
ByVal intAge As Integer, _
Optional ByVal blnAgeEmphasisOn As Boolean = False) As String
在VB的代碼窗口輸入上面的方法定義，就會(huì )生成一個(gè)End Function語(yǔ)句。方法的定義和End Function之間就是我們編寫(xiě)自己的代碼的地方了。
我們在方法的主體中添加的第一行代碼就是定義一個(gè)字符串變量，用來(lái)存儲該方法返回的字符串數據。我們可以不使用字符串變量而使用字符串向調用方法的代碼返回文本數據。
Dim strReturnString As String
下面我們就可以來(lái)建立返回的字符串了。我們可以通過(guò)方法的參數列表使用由ASP代碼傳送的strName變量值。首先將strName參數變量值與字符串“is over”連接起來(lái)。接下來(lái)我們將使用intAge參數變量計算一個(gè)已經(jīng)生存的天數，然后在前面的字符串上再添加“age in days”字符串。需要注意的是，我們需要將intAge * 365二個(gè)整型數的乘積轉換為字符串，然后才能將它組合在strReturnString字符串，VB中的Cstr()方法可以實(shí)現這一目的。
strReturnString = strName & " is over " & CStr(intAge * 365)
如果假設從ASP代碼中傳給組件的姓名為Eric Clapton，年齡參數為56，因此，strReturnString應當包含下面的內容：
Eric Clapton is over 20440
我們最終的字符串會(huì )根據intAge變量的值是否超過(guò)45和blnAgeEmphasisOn變量是否設置為true再添加上
“days old”或“days OLD”。下面的代碼可以實(shí)現該功能：
If blnAgeEmphasisOn And intAge > 44 Then
strReturnString = strReturnString & " days OLD."
Else
strReturnString = strReturnString & " days old."
End If
如果ASP代碼沒(méi)有將blnAgeEmphasisOn變量的值作為方法參數傳送給組件，根據我們的方法定義，它的值將被缺省地設置為false。如果它被設置為true，而且intAge變量的值大于45，我們將得到下面的輸出：
Eric Clapton is over 20440 days OLD.
否則，我們會(huì )得到下面的輸出：
Eric Clapton is over 20440 days old.
為了將上面的字符串返回給調用組件的ASP代碼，我們將字符串的值賦給方法的名字：
ExampleMethod = strReturnString
完整的方法代碼如下所示：
Public Function ExampleMethod(ByVal strName As String, _
ByVal intAge As Integer, _
Optional ByVal blnAgeEmphasisOn As Boolean = False) As String
‘///// 建立局部變量
Dim strReturnString As String
‘///// 創(chuàng )建返回的變量的值
strReturnString = strName & " is over " & CStr(intAge * 365)
‘///// 完善strReturnString
If blnAgeEmphasisOn And intAge > 44 Then
strReturnString = strReturnString & " days OLD."
Else
strReturnString = strReturnString & " days old."
End If
‘///// 返回字符串
ExampleMethod = strReturnString
End Function
在A(yíng)SP代碼中調用VB方法
在A(yíng)SP代碼中實(shí)例化VB對象
我們需要的大部分ASP代碼已經(jīng)在前面的A Conceptual Overview進(jìn)行了討論。在A(yíng)SP代碼中，我們仍然需要依次完成下面的工作：
·使用ASP Server對象的CreateObject()方法實(shí)例化VB組件。
·使用合適的方法參數變量調用組件的方法。
·將從VB方法中返回的字符串值賦給ASP變量中的一個(gè)變量。
·然后在Response.Write()方法中使用該變量將字符串發(fā)送給瀏覽器。
我們將使用ASP文件中的一些代碼對VB組件的類(lèi)進(jìn)行實(shí)例化，下面是VB組件實(shí)例化的代碼：
Set objReference = Server.CreateObject("ExampleProject.ExampleClass")
ASP Server對象的CreateObject()方法返回VB代碼對象的地址，因此我們能夠在A(yíng)SP中調用類(lèi)的任何一個(gè)public方法。需要注意的是，作為ASP CreateObject()方法的方法參數的是VB工程和類(lèi)的名字，objReference用來(lái)保持組件的類(lèi)的對象實(shí)例的引用。
在A(yíng)SP文件中使用組件的方法
現在，我們就可以使用組件的類(lèi)方法ExampleMethod，得到一個(gè)表明一個(gè)人以天計的壽命。下面的代碼使用參數的值，并將從方法中返回的字符串的值賦給一個(gè)名字為strMethodReturn的變量：
strMethodReturn = objReference.ExampleMethod("Eric Clapton", 56, True)
提示：當我們的組件被實(shí)例化后，objReference就表示CreateObject()方法中出現過(guò)的ExampleProject.ExampleClass。盡管我們可以將objReference.ExampleMethod看作與ExampleProject.ExampleClass.ExampleMethod()等同，但我們不能這樣使用。
當然了，我們也可以使用變量而不是直接的值作為方法的參數，選擇的參數變量的名字無(wú)須與VB方法參數表中的相同，它們只要與參數表中的非可選參數個(gè)數、類(lèi)型、順序相同就可以了。
aspName = "Eric Clapton" aspAge = 56 aspEmphasis = True strMethodReturn = objReference.ExampleMethod(aspName, aspAge, aspEmphasis)
使用變量取代值使代碼顯得更清晰，也更具有可管理性，尤其是代碼變得很長(cháng)時(shí)。
現在我們只要在A(yíng)SP Response.Write()方法中將strMethodReturn返回給訪(fǎng)問(wèn)ASP代碼的瀏覽器即可。下面是完整的ASP代碼，在代碼的結束處，我們添加了一行分離組件對象地址的代碼，以清除組件的對象代碼：
<%
‘///// 實(shí)例化組件對象
Set objReference = Server.CreateObject("ExampleProject.ExampleClass")
‘///// 設置作為方法參數的局部變量
aspName = "Eric Clapton"
aspAge = 56
aspEmphasis = True
‘///// 調用組件的方法，存儲返回值
strMethodReturn = objReference.ExampleMethod(aspName, aspAge, aspEmphasis)
‘///// 將返回值發(fā)送給訪(fǎng)問(wèn)的瀏覽器
Response.Write(strMethodReturn)
‘///// 清除組件的對象
Set objReference = Nothing
%>
將上面的ASP代碼存儲在一個(gè)ASP文件中，將會(huì )產(chǎn)生下面的字符串輸出：
Eric Clapton is over 20440 days OLD.
使ASP代碼能夠調用DLL文件
對我們的組件的測試就是讓W(xué)indows知道它的存儲位置以及ASP代碼何時(shí)調用它。首先，在VB的菜單中選擇“運行”圖標或“運行/開(kāi)始”，VB就會(huì )臨時(shí)地向系統注冊該組件。
提示：不能象加載HTML文件那樣直接使用瀏覽器加載ASP文件，ASP文件必須通過(guò)WEB服務(wù)器被加載到瀏覽器上。
瀏覽器將顯示出“Eric Clapton is over 20440 days OLD.”的字樣。
為了使組件能夠在其他的服務(wù)器上運行，它必須被編譯成DLL文件，然后在服務(wù)器上注冊。當然了，如果希望在開(kāi)發(fā)用的計算機永久地使用該組件，也需要進(jìn)行編譯、注冊。在其他計算機上運行該組件的唯一文件就是編譯得到的DLL文件，當然了，這需要計算機已經(jīng)安裝了VB運行時(shí)間庫文件。
如何編譯組件源代碼得到DLL文件以及如何在計算機上注冊組件不是本篇文章的討論范圍，我們就不再詳細敘述了。
作為編寫(xiě)IIS服務(wù)器端組件的一個(gè)副產(chǎn)品，我們可以從任何ASP文件和其他VB組件中調用編寫(xiě)的組件的方法，這將進(jìn)一步提高代碼的靈活性和模塊化程度
