(Classic ASP) HTTP POST JSON
Demonstrates how to send a JSON POST and get the JSON response.
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' This requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http")
set http = Server.CreateObject("Chilkat.Http")
jsonText = "{""user"":""doctoravatar@penzance.com"",""forecast"":7,""t"":""vlIj"",""zip"":94089}"
' IMPORTANT: Make sure to change the URL, JSON text,
' and other data items to your own values. The URL used
' in this example will not actually work.
' resp is a Chilkat.HttpResponse
Set resp = http.PostJson("https://json.penzance.org/request",jsonText)
If (http.LastMethodSuccess <> 1) Then
Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
Else
' Display the JSON response.
Response.Write "<pre>" & Server.HTMLEncode( resp.BodyStr) & "</pre>"
End If
%>
</body>
</html>
|
