使用VBScript在經典ASP中收集對象？

Question

我有一個名爲'Company'的類，具有'CompanyName'，'CompanyCode'和'IsActive'等屬性。這個類在VBScript中。我想在傳統的ASP中使用VBScript存儲公司對象的集合。這是可能的，如果是的話，那我該怎麼做呢？

Answer 1

可以使用數組或Dictionary對象：

陣列

' 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