Classic ASP

Insert JSON Object into another JSON Object

Demonstrates how to insert one JSON object into another. Effectively, the JSON object must be copied into the other..

Chilkat Classic ASP Downloads

Classic ASP

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' Imagine we have two separate JSON objects.
set jsonA = Server.CreateObject("Chilkat.JsonObject")
success = jsonA.UpdateString("animal","zebra")
success = jsonA.UpdateString("colors[0]","white")
success = jsonA.UpdateString("colors[1]","black")

jsonA.EmitCompact = 0
Response.Write "<pre>" & Server.HTMLEncode( jsonA.Emit()) & "</pre>"

' jsonA contains:

' {
'   "animal": "zebra",
'   "colors": [
'     "white",
'     "black"
'   ]
' }

set jsonB = Server.CreateObject("Chilkat.JsonObject")
success = jsonB.UpdateString("type","mammal")
success = jsonB.UpdateBool("carnivore",0)

jsonB.EmitCompact = 0
Response.Write "<pre>" & Server.HTMLEncode( jsonB.Emit()) & "</pre>"

' jsonB contains:

' {
'   "type": "mammal",
'   "carnivore": false
' }

' Let's say we want to insert jsonB into jsonA to get this:

' {
'   "animal": "zebra",
'   "info" " {
'       "type": "mammal",
'       "carnivore": false
' 	},
'   "colors": [
'     "white",
'     "black"
'   ]
' }

success = jsonA.AddObjectCopyAt(1,"info",jsonB)

Response.Write "<pre>" & Server.HTMLEncode( jsonA.Emit()) & "</pre>"

' The result is this:

' {
'   "animal": "zebra",
'   "info": {
'     "type": "mammal",
'     "carnivore": false
'   },
'   "colors": [
'     "white",
'     "black"
'   ]
' }

%>
</body>
</html>