Classic ASP

JSON Iterate Members

Demonstrates how to loop over the immediate members of a JSON object.

Chilkat Classic ASP Downloads

Classic ASP

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

set json = Server.CreateObject("Chilkat.JsonObject")

jsonStr = "{ ""id"": 1, ""name"": ""A green door"", ""tags"": [""home"", ""green""], ""price"": 125 }"

success = json.Load(jsonStr)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( json.LastErrorText) & "</pre>"
    Response.End
End If

numMembers = json.Size

For i = 0 To numMembers - 1

    name = json.NameAt(i)
    value = json.StringAt(i)

    Response.Write "<pre>" & Server.HTMLEncode( name & ": " & value) & "</pre>"

    iValue = json.IntAt(i)
    Response.Write "<pre>" & Server.HTMLEncode( name & " as integer: " & iValue) & "</pre>"

Next

' Note: The StringAt method returns the value as a string regardless of the type.
' If the value is a JSON array (such as for ["home", "green"]), then the JSON encoding
' of the entire array is returned.

' The IntAt method returns the value as an integer.  If the value does not convert to 
' an integer, then 0 is returned

%>
</body>
</html>