Слияние массивов в классическом ASP

Я работаю над функцией 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) . Есть какие-нибудь сведения о том, где я ошибаюсь?

5
задан Lankymart 24 December 2014 в 20:47
поделиться