源代码:
<html> <body> <FONT COLOR=#ff0000><% dim d set d=Server.CreateObject("Scripting.Dictionary") d.Add "n", "Norway" d.Add "i", "Italy" d.Key("i") = "it" Response.Write("The key i has been set to it, and the value is: " & d.Item("it")) set d=nothing %></FONT> </body> </html>
运行结果：
<html> <body> <FONT COLOR=#ff0000><% dim d set d=Server.CreateObject("Scripting.Dictionary") d.Add "n", "Norway" d.Add "i", "Italy" d.Key("i") = "it" Response.Write("The key i has been set to it, and the value is: " & d.Item("it")) set d=nothing %></FONT> </body> </html>