[classic asp] json 생성

Dim JsonData, Json, success
Set Json = Server.CreateObject("Chilkat_9_5_0.JsonObject")

success = Json.UpdateInt("result",1)
success = Json.UpdateBool("resultType",1)

success = Json.UpdateString("documents[0].member.name","홍길동")
success = Json.UpdateInt("documents[0].member.age",20)

success = Json.UpdateString("documents[0].member.class[0].name","수학")
success = Json.UpdateInt("documents[0].member.class[0].time",16)

success = Json.UpdateString("documents[1].member.member","유재석")
success = Json.UpdateInt("documents[1].member.age",30)

success = Json.UpdateString("documents[1].member.class[0].name","영어")
success = Json.UpdateInt("documents[1].member.class[0].time",4)                

Json.EmitCompact = 0
JsonData = Json.Emit()
Set Json = Nothing

 

결과:
{
  "result": 1,
  "resultType": true,
  "documents": [
    {
      "member": {
        "name": "홍길동",
        "age": 20,
        "class": [
          {
            "name": "수학",
            "time": 16
          }
        ]
      }
    },
    {
      "member": {
        "member": "유재석",
        "age": 30,
        "class": [
          {
            "name": "영어",
            "time": 4
          }
        ]
      }
    }
  ]
}