解决方案

方法1：

dim cars(2),x
cars(0)="Volvo"
cars(1)="Saab"
cars(2)="BMW"

For Each x in cars
  response.write(x & "<br ")
Next

如果要关联键和值，请使用字典对象：

Dim objDictionary
Set objDictionary = CreateObject("Scripting.Dictionary")
objDictionary.Add "Name", "Scott"
objDictionary.Add "Age", "20"
if objDictionary.Exists("Name") then
    ' Do something
else
    ' Do something else 
end if

或者像集合一样浏览字典

For Each Entry In objDictionary
  Response.write objDictionary(Entry) & "<br "
Next

我们可以用这种方法遍历整个字典，写出看起来像这样的值：

Scott
20

我们也可以这样做

For Each Entry In objDictionary
  Response.write Entry & ": " & objDictionary(Entry) & "<br "
Next

输出：

Name: Scott
 Age: 20