2009-07-17 7 views
6

디버깅 목적으로 데이터를 인쇄하고 싶습니다.ASP 인쇄 배열

데이터 형식은

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

resArray는 10 개 이상의 레코드를 자체 구성과 같은 것입니다.

나는 인쇄하려했지만 실패했습니다. 나는 확실히 믿는다

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 

작동하지 않습니다 또한

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 

버전 2를 작동하지

버전 1은 당신은 Scripting.Dictionary를 사용하는

+0

"실패"라고하면 실제로 무엇이 일어나고 있습니까? –

+0

그리고 "resArray"는 어떤 데이터 유형입니까? –

+0

데이터를 인쇄하지 못했습니다. resArray에 할당 된 NVP Collection 객체입니다. –

답변

7

기존 ASP에서 인쇄하는 몇 가지 방법이있어 의심의 여지가 없습니다. 다음을 사용하도록 주문하지 않았습니다. -

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

감사합니다. 솔루션이 작동합니다. –

1

resArray 유형은 무엇입니까? 컬렉션입니까? 첫 번째 코드 섹션에서 키를 기준으로 항목에 액세스하는 것처럼 보이므로 간단한 배열 일 수는 없습니다. resArray가 선언되고 채워지는 방법에 대한 코드 예제를 줄 수 있습니까? 컬렉션이 0 기지 인 경우

이 될 것입니다 : 그것은 기본 배열 인 경우

For x = 1 to myarr.Count 

, 당신은하지 않습니다 컬렉션이 0 기본이

For x = 0 to myarr.Count - 1 

경우가있을 것입니다

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