2009-07-17 24 views
6

Tôi muốn in ra dữ liệu, cho mục đích gỡ lỗi.ASP in mảng

định dạng dữ liệu sẽ là như thế này

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

các resArray bao gồm hơn 10 hồ sơ riêng của mình.

Tôi đã cố gắng in ra nhưng không thành công.

phiên bản 1 không làm việc

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 

phiên bản 2 cũng không làm việc

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 

Tôi tin rằng chắc chắn có một số cách để in ra trong asp cổ điển

+0

Khi bạn nói "không thành công" - điều gì đang thực sự xảy ra? –

+0

Và loại dữ liệu nào là "resArray" của bạn? –

+0

Không in được bất kỳ dữ liệu nào. đối tượng Bộ sưu tập NVP được gán vào resArray. –

Trả lời

7

Bạn đang sử dụng một Scripting.Dictionary không nghi ngờ gì. Nó không được đặt hàng sử dụng điều này: -

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

cảm ơn, giải pháp của bạn hoạt động. –

1

Loại nào là resArray? Nó là một bộ sưu tập? Từ phần mã đầu tiên, có vẻ như bạn truy cập các mục theo khóa, vì vậy nó không thể là một mảng đơn giản ..? Bạn có thể đưa ra ví dụ về cách resArray được khai báo và điền vào không?

Nếu bộ sưu tập là 0 cơ sở đó sẽ là:

For x = 0 to myarr.Count - 1 

Nếu bộ sưu tập là 0 cơ sở đó sẽ là:

For x = 1 to myarr.Count 

Nếu nó là một mảng cơ bản, và bạn không biết cơ sở chỉ mục nào là:

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