(Classic ASP) Get the Root of a JSON Document

Demonstrates how to get back to the JSON root object from anywhere in the JSON document. This example uses the following JSON document:

{
  "flower": "tulip",
  "abc":
    {
    "x": [
       { "a" : 1 },
       { "b1" : 100, "b2" : 200 },
       { "c" : 3 }
    ],
    "y": 200,
    "z": 200
    }
}

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

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

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

jsonStr = "{""flower"": ""tulip"",""abc"":{""x"": [{ ""a"" : 1 },{ ""b1"" : 100, ""b2"" : 200 },{ ""c"" : 3 }],""y"": 200,""z"": 200}}"

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

' Get the "abc" object.
set abcObj = Server.CreateObject("Chilkat.JsonObject")
success = json.ObjectOf2("abc",abcObj)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( json.LastErrorText) & "</pre>"
    Response.End
End If

' Side note: The JSON of a sub-part of the document can be emitted from any JSON object:
abcObj.EmitCompact = 0
Response.Write "<pre>" & Server.HTMLEncode( abcObj.Emit()) & "</pre>"

' Navigate to the "x" array
set xArray = Server.CreateObject("Chilkat.JsonArray")
success = abcObj.ArrayOf2("x",xArray)

' Navigate to the 2nd object contained within the array.  This contains members b1 and b2
set bObj = Server.CreateObject("Chilkat.JsonObject")
success = xArray.ObjectAt2(1,bObj)

' Show that we're at "b1/b2".
' The value of "b1" should be "200"
Response.Write "<pre>" & Server.HTMLEncode( "b2 = " & bObj.IntOf("b2")) & "</pre>"

' Now go back to the JSON doc root:
set docRoot = Server.CreateObject("Chilkat.JsonObject")
success = bObj.GetDocRoot2(docRoot)

' We'll skip the null check and assume it's non-null...

' Pretty-print the JSON doc from the root to show that this is indeed the root.
docRoot.EmitCompact = 0
Response.Write "<pre>" & Server.HTMLEncode( docRoot.Emit()) & "</pre>"

%>
</body>
</html>