3-13.htm

asp开发 asp开发 asp开发 asp开发

 <Script Language="VBS">
    Dim d                   '创建一个变量
    Set d = CreateObject("Scripting.Dictionary")
    d.Add "0", "Athens"     '添加键和项目
    d.Add "1", "Belgrade"
    d.Add "2", "Cairo"
    For Each I in d
       document.write(I & " = " & d.Item(I) & "<BR>")
    Next
 </Script>