AV无码免费一区二区三区不卡,人妻无码中文一区二区三区,新九九精品视频

大家都知道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
這樣,也就沒有問題了.

BTW: 這一個問題讓我郁悶了一天半啊,是我工作一年來遇到的第二個讓我無從著手的問題,雖然解決后不覺得什么,可是在沒有解決以前真的以為這是一個多么難的問題,其實是被自己的無知蒙住了雙眼.我只會一點VBS,不了解VC,DELPHI,我也就不說那些了,省著招B4.......^_^

標簽：溫州昆明麗江鐵嶺家電維修咸陽泰州昌都

巨人網絡通訊聲明：本文標題《ASP+COM不得不注意的問題》，本文關鍵詞 ASP+COM,不得,不注意,的,問題,；如發現本文內容存在版權問題，煩請提供相關信息告之我們，我們將及時溝通與處理。本站內容系統采集于網絡，涉及言論、版權與本站無關。

亚洲综合原千岁中文字幕_国产精品99久久久久久久vr_无码人妻aⅴ一区二区三区浪潮_成人h动漫精品一区二区三

ASP+COM不得不注意的問題