asp删除数组中指定的项目

function removeItem(arr,v)'通过数组指查找后匹配删除
  dim arrl,finditem:finditem=-1
  arrl=ubound(arr)
  for i=0 to arrl
    if finditem=-1 and arr(i)=v then finditem=i    
    if finditem<>-1 and i<arrl then arr(i)=arr(i+1)
  next
  if finditem<>-1 then ReDim Preserve arr(arrl-1)'找到则删除最后一项
  removeItem=arr
end function
function removeItemByIndex(arr,v)'通过指定数组下标进行删除，注意下标从0开始
  dim arrl:arrl=ubound(arr)
  if v>arrl or v<0 then'下标小于0或者大于长度退出
    removeItemByIndex=arr:exit function 
  end if
  for i=v to arrl-1
     arr(i)=arr(i+1)
  next
  ReDim Preserve arr(arrl-1)'找到则删除最后一项
  removeItemByIndex=arr
end function
arr=split("1,5,8,12,355,23",",")
arr=removeItem(arr,"8")
msgbox join(arr,",")'1,5,12,355,23
arr=removeItem(arr,"355")
msgbox join(arr,",")'1,5,12,23
arr=removeItemByIndex(arr,2)'删除第3项，12这个数字
msgbox join(arr,",")'1,5,23