[精]vbscript和javascript互相調用方法

vbscript和javascript互相調用方法 　　ASP具備管理不同語言指令碼程式的能力，能夠自動調用合適的指令碼引擎以解釋指令碼代碼和執行內建函數。ASP開發環境提供了兩種指令碼引擎，即VBScript（預設）和JScript。不過，開發人員並沒有被限制於只能使用這兩種語言，只要能夠提供合適的ActiveX指令碼引擎就能使用任何指令碼語言。

　　指令碼語言的選擇往往基於許多不同原因：它可能是開發人員最為熟悉的語言，可能是對給定工程來說能夠提供最多特色支援的，也有可能是最具效率的。不同的環境和要求使得我們在選擇指令碼語言時注重不同的因素，同時也使得我們在某些時候面臨選定的指令碼語言不能直接提供其它語言固有的函數這一問題，或某個指令碼已經寫成但用的卻是另外一種指令碼語言。

　　此時應該怎麼辦？是否需要用當前所用的指令碼語言重寫這些指令碼？或者說，是否有可能在一種指令碼語言中調用其它指令碼語言的內建函數？本文要說明的就是在ASP應用中如何讓VBScript指令碼和JScript指令碼互動以最大限度地獲得兩種指令碼語言的特色支援。

　　一、VBScript和JScript的內建函數

　　在VBScript和JScript中，有大量的內建函數功能是相同或類似的。然而，在一種指令碼語言中內建的函數並非總是在另外一種指令碼語言中也有對應的函數。例如，VBScript提供了許多用於操作字串和格式化資料的函數，這些函數在JScript中並不存在。這些函數包括StrReverse()、Filter()以及FormatCurrency()等。在另一方面，JScript所提供的用於管理數組、字串編碼等的函數在VBScript中也沒有定義，如join()、reverse()、pow()、位操作、escape()和unescape()等。

　　那麼，如果在JScript程式中需要一個VBscript函數該怎麼辦呢?

　　二、異種指令碼的互相調用

　　如果需要在JScript指令碼中調用一個VBScript中內建的函數，則應該寫一個VBScript使用者定義函數（在這裡調用VBScript內建函數），然後在JScript指令碼中象調用公用JScript函數一樣調用這個使用者定義函數。

　　例如，如果要調用的VBSCript內建函數是FormatCurrency()，則可以聲明如下自訂函數：

　　<SCRIPT LANGUAGE="VBSCRIPT" RUNAT="SERVER">
　　Function FormatValue(Value)
　　　　FormatValue = FormatCurrency(Value)
　　End Function
　　</SCRIPT>

　　接下來在JScript代碼中就可以象普通JScript函數一樣調用FormatValue()了。用類似的方法也可以實現VBScript代碼調用JScript函數。

　　應用同樣的規則，我們可以在任何指令碼內調用任何使用者定義函數。不過，從JScript指令碼內調用一個不帶參數的VBScript過程（Sub）時應略加註意，此時在JScript中應該象調用一個不帶參數的JScript函數一樣調用它，如用foo()調用VBScript Sub foo過程。

　　三、資料共用

　　在某些情形下混合運用VBScript和JScript函數是非常有用的，但在不同語言指令碼之間共用資料也可能很有用。實現這種共用的方法很簡單：不管使用的是什麼語言，只要是在頁面級聲明的變數就可以任意引用。

　　對象的使用方法也相似，可以任意選用合適的語言讀取、修改屬性或調用對象的方法。當然給定對象的屬性和方法是由建立該對象執行個體的語言所定義的。正如上例VBScript的程序呼叫，當從JScript中調用一個不帶參數的VBScript對象的方法時，其調用方法也遵從JScript的調用規則，反之亦然。

　　四、數組管理

　　數組共用問題稍微複雜一點。雖然數組也象其它變數一樣可以在不同語言指令碼之間共用，但必須注意相容方面的問題。

　　VBScript數組在JScript下可以用VBScript的符號引用，即用myArray(2)引用數組元素而不是JScript的數組元素引用符號myArray[2]。此外，還可以使用一個特殊的JScript對象――VBArray對象將VBScript數群組轉換為JScript數組。下面的代碼從VBScript數組myVBArray建立JScript數組myJSArray：

　var Temp = new VBArray(myVBArray)
　var myJSArray
　myJSArray = Temp.toArray()

　　上述代碼首先建立一個臨時的VBArray對象，然後使用它的toArray()方法將自己轉換為JScript數組。此後就可以象普通JScript數組一樣使用myJSArray，如myJSArray[1]。但應當注意的是，toArray()方法將把一個多維的VBArray轉換為一維的JScript數組。

　　從VBScript中引用JScript數組更為複雜。雖然在VBScript中我們可以直接存取JScript數組相關的方法和屬性，但沒有直接存取JScript數組的單個元素的方法。也就是說，我們可以在VBScript指令碼中讀取JScript數組的長度屬性，如下所示：

　　x = myJSArray.length

　　但無法直接讀取該數組的單個元素，下面的VBScript代碼是不正確的：

　　x = myJSArray(3)

　　解決該問題的一個可行的方法是執行一個轉換過程，如下面的代碼所示，此處假定VBScript是預設的指令碼語言：

<%
　　Dim Temp
　　Dim myVBArray
　　Temp = myJSArray.join(", ")
　　myVBArray = Split(Temp, ", ")
%>

　　此處的JScript join()方法將數組myJSArray元素轉換到一個以逗號為分割符的字串，VBScript Split()函數將字串轉換為VBScript數組。注意這裡我們是在VBScript環境下調用JScript的join方法。依照此例，我們可以通過自訂VBScript函數來類比JScript的VBArray對象的toArray()方法以實現JScript數組到VBScript數組的轉換。

　　五、小結

　　在同一個ASP工程內靈活選用不同指令碼語言具有許多優點，這些指令碼之間的互動能力更為開發人員整合不同語言所提供的內建函數和其它功能帶來了更多的機會，同時也使得實現既可用於VBScript也可用於JScript環境的泛型指令碼庫成為可能。