大家都知道ASP是一種無類型的腳本語言,而VB,VC,DELPHI等語言開發出來的DLL組件都是強類型的,這樣就存在一個問題.這樣就會存在問題. 我還是用我遇到的問題來說話吧,我用VB寫一個類Test,存在一個方法FunA,方法FunA的返回值為一個數組,示例代碼: Class Test:
Public Function GetStr() GetStr = Split("a,b,c,d", ",") End Function
ASP代碼:
Dim o Set o=Server.CreateObject("Bqrm.Test") Dim arr arr=o.GetStr() Response.Write(TypeName(arr)) '輸出String() Response.Write(IsArray(arr)) '輸出True Response.Write(arr(0)) '輸出類型不匹配,IsArray返回它是一個數組,可是你不能把它當成一個數組來操作,郁悶啊
但是改一個GetStr方法的代碼,就能讓它能用,如: Public Function GetStr() GetStr = Array("a","b","c","d") End Function 改成這樣它就不會出錯了,不過,有的時候你又不可能把所有的元素都列出來呀,只好寫一個函數,把它轉換成無類型的數組,
Function GetVbsArray(ByVal arr) If IsArray(arr) Then Dim arrTmp() ReDim arrTmp(UBound(arr)) Dim iBound iBound = 0 Dim tmp For Each tmp In arr arrTmp(iBound) = tmp iBound = iBound + 1 Next GetVbsArray = arrTmp Erase arrTmp Else GetVbsArray = arr End If End Function 把它放到一個模塊里面,然后在返回數組的方法返回前,轉換一下如:
Public Function GetStr() GetStr = GetVbsArray(Split("a,b,c,d", ",")) End Function 這樣,也就沒有問題了.
