Я работаю над функцией array_merge для классического ASP. Кажется, что у меня работает, пока один (или оба) параметра не станут пустыми или не станут массивами . Вот что у меня есть:
function array_merge(left, right)
dim total_size
dim i
dim merged
' Convert "left" to an array
if not isArray(left) then
left = Array(left)
end if
' Convert "right" to an array
if not isArray(right) then
right = Array(right)
end if
' Start with "left" and add the elements of "right"
right_size = ubound(right)
total_size = ubound(left) + right_size + 1
merged = left
redim preserve merged(total_size)
for i = 0 to ubound(right)
merged(right_size + i + 1) = right(i)
next
' Return value
array_merge = merged
end function
Я получаю сообщение об ошибке:
Error Type: Microsoft VBScript runtime (0x800A01B6) Object doesn't support this property or method: 'merged' /_inc/nav/left-nav.inc, line 21
Из строки объединено (right_size + i + 1) = right (i)
. Есть какие-нибудь сведения о том, где я ошибаюсь?