如何在经典 ASP 中遍历集合？

Question

我希望能够做到：

For Each thing In things
End For

经典 ASP - 不是 .NET！

Answer 1

像这样的东西？

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

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

请参见www.w3schools.com 。

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

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

Answer 2

无论您的 [事物] 是什么，都需要在 VBScript 之外编写。

在 VB6 中， 您可以编写自定义集合类，然后您需要编译为 ActiveX DLL 并将其注册到您的网络服务器上才能访问它。

Answer 3

您将获得的最接近的是使用字典（如 Pacifika 所述）

Dim objDictionary
Set objDictionary = CreateObject("Scripting.Dictionary")
objDictionary.CompareMode = vbTextCompare 'makes the keys case insensitive'
objDictionary.Add "Name", "Scott"
objDictionary.Add "Age", "20"

但我像收藏集一样遍历我的字典

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

Answer 4

我以前使用过的一种方法是使用返回数组的集合的属性，该数组可以迭代。

Class MyCollection
    Public Property Get Items
        Items = ReturnItemsAsAnArray()
    End Property
    ...
End Class

像这样迭代：

Set things = New MyCollection
For Each thing in things.Items
    ...
Next

Answer 5

正如 Brett 所说，最好使用 vb 组件来创建集合。 除非用于基于特定需求的应用程序，否则字典对象在 ASP 中不是很常用。

Answer 6

在使用 VB 脚本字典对象时要非常小心！
只是发现这个“ autovivication ”的东西，在这个对象上是原生的： http : //en.wikipedia.org/wiki/Autovivification

因此，当您需要比较值时，切勿使用布尔比较，例如：
If objDic.Item("varName") <> "" Then ...
这将自动将键“ varName ”添加到字典中（如果它不存在，则为空值），以便继续计算布尔表达式。

如果需要，请改用If objDic.Exists("varName") 。

只需花几天时间敲墙，使用微软的“功能”...
vbscript-dictionary-object-creating-a-key-which-never-existed-but-present-present-in-another-object