asp-classic - for - submit asp classic

¿Cómo atravieso una colección en ASP clásico?

Question

Quiero ser capaz de hacer:

For Each thing In things
End For

ASP CLÁSICO - ¡NO .NET!

Answer 1

Cualesquiera que sean sus [cosas] deben escribirse fuera de VBScript.

En VB6, puede escribir una clase de Colección personalizada , luego tendrá que compilar en una DLL ActiveX y registrarla en su servidor web para acceder a ella.

Answer 2

¿Algo como esto?

dim cars(2),x
cars(0)="Volvo"
cars(1)="Saab"
cars(2)="BMW"
For Each x in cars
response.write(x & "<br />")
Next

Vea www.w3schools.com .

Si desea asociar claves y valores, use un objeto de diccionario en su lugar:

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

Answer 3

Lo más cercano que va a obtener es usar un diccionario (como lo menciona Pacifika)

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

Pero recorro mis diccionarios como una colección

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

Puede recorrer todo el diccionario de esta manera escribiendo los valores que se verían así:

Scott
20

También puedes hacer esto

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

Que produciría

 Name: Scott
Age: 20

Answer 4

Como dijo Brett, es mejor usar un componente vb para crear colecciones. Los objetos de diccionario no se usan con mucha frecuencia en ASP a menos que sea para aplicaciones basadas en necesidades específicas.

Answer 5

Un enfoque que he usado anteriormente es usar una propiedad de la colección que devuelve una matriz, que puede repetirse.

Class MyCollection
Public Property Get Items
Items = ReturnItemsAsAnArray()
End Property
...
End Class

Iterar como:

Set things = New MyCollection
For Each thing in things.Items
...
Next

Answer 6

¡TENGA MUCHO cuidado al usar VB Script Dictionary Object!
Solo descubre esta cosa de " autovigilancia ", nativa de este objeto: http://en.wikipedia.org/wiki/Autovivification

Entonces, cuando necesite comparar valores, NUNCA use una comparación de boolen como:
If objDic.Item("varName") <> "" Then ...
Esto agregará automáticamente la clave " varName " al diccionario (si no existe, con un valor vacío), para continuar evaluando la expresión booleana.

Si es necesario, use en su lugar If objDic.Exists("varName") .

Solo pase unos días golpeando las paredes, con esta " característica " de Mcrosoft ...
vbscript-dictionary-object-creating-a-key-which-never-exist-but-present-in-another-object