[code]Function ShowKeys Dim a, d, i, s ' [/code]创建一些变量。[code] Set d = CreateObject("Scripting.Dictionary")[/code][code] d.Add "a", "Athens" ' [/code]添加一些键和项目。[code] d.Add "b", "Belgrade"[/code][code] d.Add "c", "Cairo"[/code][code] a = d.Keys ' [/code]获取键。[code] For i = 0 To [b]d.Count[/b] -1 '[/code]重复数组。[code] s = s & a(i) & "<BR>" '[/code]创建返回字符串。[code] Next[/code][code] ShowKeys = s[/code][code]End Function[/code]
机械节能产品生产企业官网模板...
大气智能家居家具装修装饰类企业通用网站模板...
礼品公司网站模板
宽屏简约大气婚纱摄影影楼模板...
蓝白WAP手机综合医院类整站源码(独立后台)...苏ICP备2024110244号-2 苏公网安备32050702011978号 增值电信业务经营许可证编号:苏B2-20251499 | Copyright 2018 - 2025 源码网商城 (www.ymwmall.com) 版权所有