Как я пересекаю набор в классическом ASP?
Динамический 2D-массив в основном представляет собой массив указателей для массивов . Вы можете инициализировать его с помощью цикла, например:
int** a = new int*[rowCount];
for(int i = 0; i < rowCount; ++i)
a[i] = new int[colCount];
Вышеупомянутые для colCount= 5 и rowCount = 4 приведут к следующему:
[/g1]
5 ответов
Безотносительно Вашего [вещи] потребность, которая будет записана за пределами VBScript.
В VB6, можно записать Пользовательский класс Набора, затем необходимо будет скомпилировать в DLL ActiveX и зарегистрировать его на веб-сервере для доступа к нему.
Самое близкое, которое Вы собираетесь получить, использует Словарь (как упомянуто Pacifika)
Dim objDictionary
Set objDictionary = CreateObject("Scripting.Dictionary")
objDictionary.CompareMode = vbTextCompare 'makes the keys case insensitive'
objDictionary.Add "Name", "Scott"
objDictionary.Add "Age", "20"
, Но я циклично выполняюсь через свои словари как набор
For Each Entry In objDictionary
Response.write objDictionary(Entry) & "<br />"
Next
, можно циклично выполнить через весь словарь этот способ выписать значения, которые были бы похожи на это:
Scott
20
можно также сделать это
For Each Entry In objDictionary
Response.write Entry & ": " & objDictionary(Entry) & "<br />"
Next
, Который произвел бы
Name: Scott
Age: 20
Что-то вроде этого?
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
Один подход, который я использовал прежде, должен использовать свойство набора, который возвращает массив, который может быть выполнен с помощью итераций.
Class MyCollection
Public Property Get Items
Items = ReturnItemsAsAnArray()
End Property
...
End Class
Выполняют итерации как:
Set things = New MyCollection
For Each thing in things.Items
...
Next
Поскольку Brett сказал, лучше для использования vb компонента для создания наборов. Объекты словаря не являются очень наиболее часто используемыми в ASP если для определенных основанных на потребности приложений.