<% DictionaryObject.RemoveAll() %>
<% 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" strObjDic.RemoveAll For Each List In strObjDic.Keys Response.write List& " = " & strObjDic.Item(List) & "<br>" Next Set strObjDic = Nothing %> </body> </html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน Source Code 2.0 ของทีมงานไทยครีเอท