asp利用dictionary创建二维数组

这是asp利用dictionary创建二维数组的例子，这样做的优点是：

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

2、长度不是固定的

<'％
’=========================================== 
’ 功能：创建动态二维数组且数组下标可以是字符串 
’ 作者：wangsdong 
’ 网站: http://www.aspprogram.cn 
’ 文章为作者原创，转载请注明文章出处、保留作者信息，谢谢支持！ 
’===========================================
Set a1 = CreateObject("scripting.dictionary")
For i=1 To 9
Set a2 = CreateObject("scripting.dictionary")
For j=1 To 12
a2.add CStr("aaa"&j),CStr("b"&i&"b"&j*10)
Next
a1.add ("bbb"&i),a2
Set a2=Nothing
Next
For i=1 To 9
For j=1 To 12
acs=a1("bbb"&i)("aaa"&j)
response.write acs&"&nbsp;&nbsp;&nbsp;&nbsp;"
Next
response.write "
"
Next
response.end
Set a1=Nothing
％>