(Classic ASP) JSON Copy Objects

Copy objects from one JSON document to another.

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>
<%
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json1 = Server.CreateObject("Chilkat.JsonObject")
success = json1.UpdateString("ID1.cn","Name")
success = json1.UpdateString("ID1.objectGUID","GUID")
success = json1.UpdateString("ID2.cn","Name")
success = json1.UpdateString("ID2.objectGUID","GUID")

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

' json1 contains:
' {
'   "ID1": {
'     "cn": "Name",
'     "objectGUID": "GUID"
'   },
'   "ID2": {
'     "cn": "Name",
'     "objectGUID": "GUID"
'   }
' }

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json2 = Server.CreateObject("Chilkat.JsonObject")
success = json2.UpdateString("Name1.ID1.cn","Name")
success = json2.UpdateString("Name1.ID1.objectGUID","GUID")
success = json2.UpdateString("Name1.ID2.cn","Name")
success = json2.UpdateString("Name1.ID2.objectGUID","GUID")
success = json2.UpdateString("Name2.ID3.cn","Name")
success = json2.UpdateString("Name2.ID3.objectGUID","GUID")

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

' {
'   "Name1": {
'     "ID1": {
'       "cn": "Name",
'       "objectGUID": "GUID"
'     },
'     "ID2": {
'       "cn": "Name",
'       "objectGUID": "GUID"
'     }
'   },
'   "Name2": {
'     "ID3": {
'       "cn": "Name",
'       "objectGUID": "GUID"
'     }
'   }
' }

' Copy Name1, Name2 into json1

i = 0
numMembers = json2.Size
Do While i < numMembers
    ' jsonObj is a Chilkat.JsonObject
    Set jsonObj = json2.ObjectAt(i)
    success = json1.AppendObjectCopy(json2.NameAt(i),jsonObj)
    i = i + 1
Loop

' Now see what json1 contains:
Response.Write "<pre>" & Server.HTMLEncode( json1.Emit()) & "</pre>"

' {
'   "ID1": {
'     "cn": "Name",
'     "objectGUID": "GUID"
'   },
'   "ID2": {
'     "cn": "Name",
'     "objectGUID": "GUID"
'   },
'   "Name1": {
'     "ID1": {
'       "cn": "Name",
'       "objectGUID": "GUID"
'     },
'     "ID2": {
'       "cn": "Name",
'       "objectGUID": "GUID"
'     }
'   },
'   "Name2": {
'     "ID3": {
'       "cn": "Name",
'       "objectGUID": "GUID"
'     }
'   }
' }

%>
</body>
</html>