collections - VBScriptを使用した従来のASPのオブジェクトのコレクション？

Question

「CompanyName」、「CompanyCode」、「IsActive」などのプロパティを持つ「Company」というクラスがあります。このクラスはVBScriptにあります。従来のASPでVBScriptを使用してCompanyオブジェクトのコレクションを保存したいと思います。これは可能ですか？もしそうなら、どうすればいいですか？

Answer 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