RemoveAll 方法从 Dictionary 对象中删除所有的 key/item 对。
DictionaryObject.RemoveAll
<%
dim d,a,i
set d=Server.CreateObject("Scripting.Dictionary")
d.Add "n","Norway"
d.Add "i","Italy"
d.Add "s","Sweden"
d.RemoveAll
Response.Write("<p>Key values:</p>")
a=d.Keys
for i=0 to d.Count-1
Response.Write(a(i))
Response.Write("<br>")
next
set d=nothing
%>
输出:
Key values:
(nothing)