Classic ASP

Cloudfare DNS over HTTPS

See more Cloudfare Examples

Cloudflare offers a DNS over HTTPS resolver at: https://cloudflare-dns.com/dns-query

This example demonstrates how to do a DNS lookup for a domain using Cloudfare's HTTPS resolver.

Classic ASP

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
'  This example requires the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

set http = Server.CreateObject("Chilkat.Http")

'  Send the following CURL request:   curl -H 'accept: application/dns-json' 'https://cloudflare-dns.com/dns-query?name=chilkat.io&type=A'

http.Accept = "application/dns-json"

url = "https://cloudflare-dns.com/dns-query?name=chilkat.io&type=A"

jsonResp = http.QuickGetStr(url)
If (http.LastMethodSuccess <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "Response Status Code: " & http.LastStatus) & "</pre>"

set json = Server.CreateObject("Chilkat.JsonObject")
success = json.Load(jsonResp)
json.EmitCompact = 0
Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>"

If (http.LastStatus <> 200) Then
    Response.Write "<pre>" & Server.HTMLEncode( "Failed.") & "</pre>"
    Response.End
End If

'  Sample output...
'  (See the parsing code below..)
'  

'  {
'    "Status": 0,
'    "TC": false,
'    "RD": true,
'    "RA": true,
'    "AD": false,
'    "CD": false,
'    "Question": [
'      {
'        "name": "chilkat.io.",
'        "type": 1
'      }
'    ],
'    "Answer": [
'      {
'        "name": "chilkat.io.",
'        "type": 1,
'        "TTL": 900,
'        "data": "52.25.83.238"
'      }
'    ]
'  }

'  Use this online tool to generate parsing code from sample JSON: 
'  Generate Parsing Code from JSON

Status = json.IntOf("Status")
TC = json.BoolOf("TC")
RD = json.BoolOf("RD")
RA = json.BoolOf("RA")
AD = json.BoolOf("AD")
CD = json.BoolOf("CD")
i = 0
count_i = json.SizeOfArray("Question")
Do While i < count_i
    json.I = i
    name = json.StringOf("Question[i].name")
    type = json.IntOf("Question[i].type")
    i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("Answer")
'  The domain name resolves to 1 or more IP addresses..
Do While i < count_i
    json.I = i
    name = json.StringOf("Answer[i].name")
    type = json.IntOf("Answer[i].type")
    TTL = json.IntOf("Answer[i].TTL")
    ipAddr = json.StringOf("Answer[i].data")

    Response.Write "<pre>" & Server.HTMLEncode( "IP Address: " & ipAddr) & "</pre>"
    i = i + 1
Loop

%>
</body>
</html>