![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Classic ASP) Get the Root of a JSON DocumentDemonstrates 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.
<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> |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.