ASP将两个数组合并为一个数组函数 array_merge()

<%B5L中国设计秀
    ' Copyright (c) 2009, reusablecode.blogspot.com; some rights reserved.B5L中国设计秀
    'B5L中国设计秀
    ' This work is licensed under the Creative Commons Attribution License. To viewB5L中国设计秀
    ' a copy of this license, visit http://creativecommons.org/licenses/by/3.0/ orB5L中国设计秀
    ' send a letter to Creative Commons, 559 Nathan Abbott Way, Stanford, CaliforniaB5L中国设计秀
    ' 94305, USA.B5L中国设计秀

    ' Merge two arrays into one.B5L中国设计秀
    function array_merge(byVal firstArray, byVal secondArray)B5L中国设计秀
        dim totalSizeB5L中国设计秀
        dim iB5L中国设计秀
        dim combinedArrayB5L中国设计秀
        B5L中国设计秀
        ' Ensure that we're dealing with arrays.B5L中国设计秀
        if not isArray(firstArray) thenB5L中国设计秀
            firstArray = Array(firstArray)B5L中国设计秀
        end ifB5L中国设计秀
        B5L中国设计秀
        if not isArray(secondArray) thenB5L中国设计秀
            secondArray = Array(secondArray)B5L中国设计秀
        end ifB5L中国设计秀
        B5L中国设计秀
        ' Set up the new array.B5L中国设计秀
        totalSize = uBound(firstArray) + uBound(secondArray) + 1B5L中国设计秀
        combinedArray = firstArrayB5L中国设计秀
        redim PReserve combinedArray(totalSize)B5L中国设计秀
        B5L中国设计秀
        for i = 0 to uBound(secondArray)B5L中国设计秀
            combinedArray(uBound(firstArray) + 1 + i) = secondArray(i)B5L中国设计秀
        nextB5L中国设计秀
        B5L中国设计秀
        array_merge = combinedArrayB5L中国设计秀
    end functionB5L中国设计秀
%>B5L中国设计秀