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