ASP键值对数组

源码下载：https://github.com/al-one/array2

此方法可以让Asp数组像PHP数组一样拥有键。
此方法依赖EasyIDE ASP Framework。


方法:array2(arr,k,v)
作用:创建/新增/修改数组元素
参数:arr      数组名
参数:k        键名key
参数:v        值value
返回:array2   array2类型的数组
用法:
  array2 arr,"key","hello would"  '创建一个名为arr的数组，并且有一个键为"key"、值为"hello would"的元素
  array2 arr,null,"some string"   '向数组arr中添加一个元素，值"some string"，当键为空/空字符串时，key自动为数组的所有key中最大一个数值+1，否则为0，此处key为0
  array2 arr,0,"hi Alone"         '修改数组中key为0的元素的值为"hi Alone"


方法:array2_read(arr,k)
作用:根据key读取数组中对应的值
参数:arr      array2数组
参数:k        键名key
返回:         数组中key所对应的值
用法:
  val = array2_read(arr,"key")    '读取数组arr中键为"key"的值


方法:array2_key(arr)
作用:返回array2数组的所有键
参数:arr      array2数组
返回:array    array2数组的所有键


方法:array2_val(arr)
作用:返回array2数组的所有值
参数:arr      array2数组
返回:array    array2数组的所有值


方法:array2_ubound(arr)
作用:返回array2数组的下标
参数:arr      array2数组
返回:numeric  数组下标
用法:
  for i = 0 to array2_ubound(arr)
    k = array2_key(arr)(i)
    v = array2_val(arr)(i)
    Response.Write k & " => " & v &vbnewline
  next


方法:array2_rs(arr,rs)
作用:将ADODB.Recordset集合转换成array2
参数:arr      数组名
参数:rs       ADODB.Recordset集合
返回:array2   array2类型的数组
用法:
  ...
  if not rs.eof then
    array2_rs arr,rs              '将Recordset集合转换成名为arr的array2数组
  end if
  ...


方法:array2_dump(arr,s)
作用:遍历打印array2数组，用于调试
参数:arr      array2数组
参数:s        辅助参数，固定为0
返回:string   遍历结果
用法:
  Response.Write array2_dump(arr,0)

原文地址：ASP键值对数组 - array2()