怎么计算二维数组的长度

如何计算二维数组的长度？
<%
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 
以上是我定义的二维数组

为什么我使用response.write len(a1)或者response.write ubound(a1)都获取不到这个数组的长度9呢？
像这样的数组，如何获取其长度。

%>

------解决方案--------------------
用 Count属性，
a1.Count a2.Count