9core.com - 九核技术交流网

九百链
为了更好的解决实际工作中遇到的问题,本站开设了QQ群 ASP+PHP+JSP+.NET①:9793624
ASP+PHP+JSP+.NET②:17775294
网站通告: 新开设QQ群,群号:17775294 九核WEB技术专业论坛 官方QQ群 9793624
搜索: 您的位置主页> 程序开发 > Asp技术 >阅读资讯: asp利用dictionary创建二维数组

asp利用dictionary创建二维数组

文章来源:互联网 发表时间:2008-09-12 点击次数

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

S6uIkyqMzXhsVqCwXcFhSx54AqETqZq3U8LFuUk3

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

S6uIkyqMzXhsVqCwXcFhSx54AqETqZq3U8LFuUk3

2、长度不是固定的

S6uIkyqMzXhsVqCwXcFhSx54AqETqZq3U8LFuUk3


<%
’=========================================== 
’ 功能:创建动态二维数组且数组下标可以是字符串 
’ 作者: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
%>

S6uIkyqMzXhsVqCwXcFhSx54AqETqZq3U8LFuUk3

S6uIkyqMzXhsVqCwXcFhSx54AqETqZq3U8LFuUk3
Asp
关于我们 - 联系我们 - 广告服务 - 友情链接 - 网站地图 - 版权声明 - 人才招聘 - 帮助