如何遍历经典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并将其注册到您的网络服务器上才能访问它。