如何计算二维数组的长度？

<%
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呢？
像这样的数组，如何获取其长度。

%>