<% DictionaryObject.CompareMode(mode) %>
<% Option Explicit %> <html> <head> <title>ThaiCreate.Com ASP Dictionary Object</title> </head> <body> <% Dim strObjDic,List Set strObjDic = Server.CreateObject("Scripting.Dictionary") strObjDic.CompareMode = 1 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 ของทีมงานไทยครีเอท
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 02
