<html> <body> <% dim d set d=Server.CreateObject("Scripting.Dictionary") d.Add "p", "RuanChen" d.Add "m", "MicroSoft" if d.Exists("p")= true then Response.Write("存在此键值") else Response.Write("键值不存在") end if set d=nothing %> </body> </html>
效果会显示在右边 Create by 软晨网（RuanChen.com）