<% Server.CreateObject("Scripting.Dictionary") %>
<% Option Explicit %> <html> <head> <title>ThaiCreate.Com ASP Dictionary Object</title> </head> <body> <% Dim strObjDic,List Set strObjDic = Server.CreateObject("Scripting.Dictionary") strObjDic.Add "re","Red" strObjDic.Add "gr","Green" strObjDic.Add "bl","Blue" strObjDic.Add "pi","Pink" Response.write ("strObjDic =" & strObjDic.Count & "<br>") For Each List In strObjDic.Keys Response.write List & " = " &strObjDic.Item(List)& "<br>" Next Set strObjDic = Nothing %> </body> </html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน Source Code 2.0 ของทีมงานไทยครีเอท