源码下载：

此方法可以让Asp数组像PHP数组一样拥有键。此方法依赖。方法: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)

原文地址：