如何取消ASP經典中的數組元素？

Question

是否有一個ASP Classic相當於PHP unset(array1[3])函數？

Answer 1

我想這會做到這一點，對於一個數值數組，至少：

sub unset(array, index) 
    if index < lbound(array) or index > ubound(array) then exit sub 

    dim i, move 
    move = false 
    for i = lbound(array) to ubound(array) 
     if i = index then move = true 

     if move and i < ubound(array) then 
     array(i) = array(i + 1) 
     end if 
    next 

    redim preserve array(i - 2) 
end sub