|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Classic ASP) Create more Complex JSON DocumentSample code to create the following JSON document:
{
"Title": "The Cuckoo's Calling",
"Author": "Robert Galbraith",
"Genre": "classic crime novel",
"Detail": {
"Publisher": "Little Brown",
"Publication_Year": 2013,
"ISBN-13": 9781408704004,
"Language": "English",
"Pages": 494
},
"Price": [
{
"type": "Hardcover",
"price": 16.65
},
{
"type": "Kindle Edition",
"price": 7.00
}
]
}
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set json = Server.CreateObject("Chilkat.JsonObject") ' The only reason for failure in the following lines of code would be an out-of-memory condition.. ' An index value of -1 is used to append at the end. index = -1 success = json.AddStringAt(-1,"Title","The Cuckoo's Calling") success = json.AddStringAt(-1,"Author","Robert Galbraith") success = json.AddStringAt(-1,"Genre","classic crime novel") ' Let's create the Detail JSON object: success = json.AddObjectAt(-1,"Detail") ' detail is a Chilkat.JsonObject Set detail = json.ObjectAt(json.Size - 1) success = detail.AddStringAt(-1,"Publisher","Little Brown") success = detail.AddIntAt(-1,"Publication_Year",2013) success = detail.AddNumberAt(-1,"ISBN-13","9781408704004") success = detail.AddStringAt(-1,"Language","English") success = detail.AddIntAt(-1,"Pages",494) ' Add the array for Price success = json.AddArrayAt(-1,"Price") ' aPrice is a Chilkat.JsonArray Set aPrice = json.ArrayAt(json.Size - 1) ' Entry entry in aPrice will be a JSON object. ' Append a new/empty ojbect to the end of the aPrice array. success = aPrice.AddObjectAt(-1) ' Get the object that was just appended. ' priceObj is a Chilkat.JsonObject Set priceObj = aPrice.ObjectAt(aPrice.Size - 1) success = priceObj.AddStringAt(-1,"type","Hardcover") success = priceObj.AddNumberAt(-1,"price","16.65") success = aPrice.AddObjectAt(-1) ' priceObj is a Chilkat.JsonObject Set priceObj = aPrice.ObjectAt(aPrice.Size - 1) success = priceObj.AddStringAt(-1,"type","Kindle Edition") success = priceObj.AddNumberAt(-1,"price","7.00") json.EmitCompact = 0 Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>" %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.