<%
Set objDic = Server.CreateObject("Scripting.Dictionary")
objDic.Add "aaa", "伊藤"
objDic.Add "bbb", "田中"
objDic.Add "ccc", "鈴木"
aryTemp = objDic.Items
For i = 0 To objDic.Count -1
Response.Write "項目:" & aryTemp(i) & "<br>"
Next
Set objDic = Nothing
%>
|