使用 VBScript 在经典 ASP 中收集对象？

【问题标题】：Collection of objects in classic ASP using VBScript?使用 VBScript 在经典 ASP 中收集对象？
【发布时间】：2012-04-05 01:25:04
【问题描述】：

我有一个名为“Company”的类，它具有“CompanyName”、“CompanyCode”和“IsActive”等属性。此类在 VBScript 中。我想在经典 ASP 中使用 VBScript 存储公司对象的集合。这可能吗，如果可以，那我该怎么做？

【问题讨论】：

数组是非常基本的......你的最终目标是什么？您将如何处理该收藏？
我需要能够遍历公司对象并根据公司属性创建动态字符串。例如，根据字典集合中的 Company 对象创建以逗号分隔的 CompanyId 列表。
所以下面的 Guido 答案应该是你要找的，不是吗？
我的回答对你有用吗？如果是的话，你能标记它吗？

标签： collections asp-classic vbscript

【解决方案1】：

您可以使用数组或字典对象：

数组

' create an array with a fixed size
dim companies(2) 

' fill the array with the companies
set companies(0) = Company1 
set companies(1) = Company2
set companies(2) = Company3

' iteration example 1
dim company
for each company in companies
    response.write company.CompanyName
next

' iteration example 2
dim i
for i = 0 to ubound(companies)
    response.write companies(i).CompanyName
next

字典

' create a dictionary object
dim companies
set companies = server.createObject("Scripting.Dictionary")

' add the companies
companies.add "Key1", Company1
companies.add "Key2", Company2
companies.add "Key3", Company3

' iteration example
dim key
for each key in companies.keys
    response.write key & " = " & companies.item(key).CompanyName
next

【讨论】：