2009-07-17 21 views
6

Me gustaría imprimir los datos, con fines de depuración.ASP imprimir matriz

Formato de datos sería así

cntryCode  = resArray("COUNTRYCODE") 
    business  = resArray("BUSINESS") ' Payer's business name. 
    shipToName  = resArray("SHIPTONAME") 

la resArray consisten de más de 10 registros en sí.

He intentado imprimir, pero fallar.

versión 1 no funciona

public sub prArray (myarr) 
    Dim x, ResponseData 
    For x = 0 to myarr.Count 
     ResponseData = ResponseData & myarr.Key(x) & " = " & myarr.Item(x) & "<br>" 
    Next 
    Response.Write ResponseData 
end sub 

versión 2 también no trabajar

public sub prArray (myarr) 
    Dim x, ResponseData 
    For x = 0 to UBound(myarr) 
     ResponseData = ResponseData & myarr(x) & " = " & myarr(x) & "<br>" 
    Next 
    Response.Write ResponseData 
end sub 

Creo Seguro tiene alguna forma de imprimir en ASP clásico

+0

Cuando dices "fallar", ¿qué está pasando realmente? –

+0

¿Y qué tipo de datos es su "resArray"? –

+0

Error al imprimir cualquier dato. es un objeto de colección NVP asignado a resArray. –

Respuesta

7

Está utilizando un Scripting.Dictionary sin duda. No está ordenado use esto: -

Sub prArray(myArr) 
    Dim key 
    For Each key in myArr 
     Response.Write key & " = " & myArr.Item(key) & "<br />" 
    Next 
End Sub 
+0

gracias, su solución funciona. –

1

¿Qué tipo es resArray? ¿Es una colección? Desde la primera sección del código, parece que accede a los elementos por clave, por lo que no puede ser una matriz simple ... ¿Puedes dar un ejemplo de código de cómo se declara y se rellena resArray?

Si la colección es 0 de base será:

For x = 0 to myarr.Count - 1 

Si la colección es 0 de base será:

For x = 1 to myarr.Count 

Si se trata de una matriz básica, y no lo hace saber qué base de índice es:

For x = LBound(myarr) to UBound(myarr) 
Cuestiones relacionadas