01.<% Option Explicit %>
02.<html>
03.<head>
04.<title>ThaiCreate.Com ASP Dictionary Object</title>
05.</head>
06.<body>
07.<%
08.Dim strObjDic,List
09.Set strObjDic = Server.CreateObject("Scripting.Dictionary")
10.
11.strObjDic.Add "re","Red"
12.strObjDic.Add "gr","Green"
13.strObjDic.Add "bl","Blue"
14.strObjDic.Add "pi","Pink"
15.
16.strObjDic.RemoveAll
17.
18.For Each List In strObjDic.Keys
19. Response.write List& " = " & strObjDic.Item(List) & "<br>"
20.Next
21.
22.Set strObjDic = Nothing
23.%>
24.</body>
25.</html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
