字典怎么用的?
dim d
dim h
set d=createobject("scripting.dictionary")
Do While not dispose_Rs.eof
response.write dispose_Rs.recordcount
错误行------d.add dispose_Rs("code_name"),dispose_Rs("code_value")
' diction.add "s","d"
' response.write dispose_Rs("code_name")
dispose_Rs.movenext
Loop
出现如下错误
Microsoft VBScript 运行时错误 错误 '800a01c9'
此键已与该集合的一个元素关联
/edit/east/search/dispose.asp,行66