ASP实现HashMap

'--------------------------------------------------------------
'ASP版HashMap实现
'该实现存储数据为有序数据,类似Java中的LinkedHashMap
'--------------------------------------------------------------
Class HashMap
 dim arr()
 dim arr_len
 
 '构造函数
 private Sub Class_Initialize
 '其中 arr(0,n)为key,arr(1,n)为value
  arr_len = 0
  redim arr(1,arr_len)
 End Sub
 
 '========================
 '*put方法 往MAP中插入键值对,如果Key存在则覆盖
 '@k 键值key
 '@v key对应的value值
 '========================
 public Sub put(k,v)
  dim is_update
  is_update = false
  arr_len = ubound(arr,2)
  for i=0 to arr_len-1
   if k=arr(0,i) then
    arr(1,i) = v
    is_update = true
    exit for
   end if
  next
  if not is_update then
    arr_len = arr_len +1
    redim preserve arr(1,arr_len)
    arr(0,arr_len-1) = k
    arr(1,arr_len-1) = v
  end if
 End Sub
 
 '========================
 '*getv方法 通过key值获取对应的value
 '@k 键值key
 '========================
 public Function getv(k)
  dim v
  for i=0 to arr_len
   if k=arr(0,i) then
    v = arr(1,i)
    exit for
   end if
  next
  getv = v
 End Function
 
 '========================
 '*keys方法 获取Map中所有的KEY,以数组形式返回
 '========================
 public Function keys()
  dim v()
  Redim v(arr_len)
  for i=0 to arr_len-1
   v(i) = arr(0,i)
  next
  keys = v
 End Function
 '===================