Classic ASP

Pretty Print JSON (Formatter, Beautifier)

Demonstrates how to emit JSON in a pretty, human-readable format with indenting of nested arrays and objects.

Chilkat Classic ASP Downloads

Classic ASP

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

set json = Server.CreateObject("Chilkat.JsonObject")

jsonStr = "{""name"": ""donut"",""image"":{""fname"": ""donut.jpg"",""w"": 200,""h"": 200},""thumbnail"":{""fname"": ""donutThumb.jpg"",""w"": 32,""h"": 32}}"

success = json.Load(jsonStr)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( json.LastErrorText) & "</pre>"
    Response.End
End If

' To pretty-print, set the EmitCompact property equal to 0
json.EmitCompact = 0

' If bare-LF line endings are desired, turn off EmitCrLf
' Otherwise CRLF line endings are emitted.
json.EmitCrLf = 0

' Emit the formatted JSON:
Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>"

%>
</body>
</html>