<%
’=========================================== 
’ 功能：创建动态二维数组且数组下标可以是字符串 
’ 作者：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 "<Br>"
Next
response.end
Set a1=Nothing
%>