ASP的数组不支持键值对，可用Scripting.Dictionary字典对象实现

Scripting.Dictionary优点：

1、数组下标可以是字符串

2、长度不是固定的

３、可以利用ＡＤＯ　rs.addNew　插入一行数组

转换数组为字符串，并用指定的分隔符连接

str = join(thisArray, 分隔符)

示例

<%

dim sdic

dim i, key,val

key=array('a','b','c')

val=array('text1','text2','text3')

set sdic= Server.CreateObject("Scripting.Dictionary")   ' 字典对象

For i =0 To UBound(key)
   sdic.Add key(i),val(i)    '值可以是数字，字符，或数组等
Next

response.write(sdic.Item("b"))

%>

更详细的应用，以下转：

Dim objDict</