首页 / 知识

关于vbscript：如何在经典ASP中遍历集合？

2023-04-11 16:20:00

How do I traverse a collection in classic ASP?

我希望能够做到：

1 2	For Each thing In things End For

经典ASP-不是.NET！

像这样吗

1
2
3
4
5
6
7
8

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。

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

1
2
3
4
5
6
7
8
9

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

无论您需要什么，都需要在VBScript之外编写。

在VB6中，您可以编写一个Custom Collection类，然后需要编译为ActiveX DLL并在Web服务器上注册它才能访问它。

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

1
2
3
4
5

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

但是我像集合一样浏览字典

1
2
3

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

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

1
2

Scott
20

您也可以这样做

1
2
3

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

哪个会产生