<%
' Copyright (c) 2009, reusablecode.blogspot.com; some rights reserved.
'
' This work is licensed under the Creative Commons Attribution License. To view
' a copy of this license, visit http://creativecommons.org/licenses/by/3.0/ or
' send a letter to Creative Commons, 559 Nathan Abbott Way, Stanford, California
' 94305, USA.
' Merge two arrays into one.
function array_merge(byVal firstArray, byVal secondArray)
dim totalSize
dim i
dim combinedArray
' Ensure that we're dealing with arrays.
if not isArray(firstArray) then
firstArray = Array(firstArray)
end if
if not isArray(secondArray) then
secondArray = Array(secondArray)
end if
' Set up the new array.
totalSize = uBound(firstArray) + uBound(secondArray) + 1
combinedArray = firstArray
redim PReserve combinedArray(totalSize)
for i = 0 to uBound(secondArray)
combinedArray(uBound(firstArray) + 1 + i) = secondArray(i)
next
array_merge = combinedArray
end function
%>
新闻热点
疑难解答