(Classic ASP) Check if Integer Exists at JSON Path

Demonstrates how to get an integer value at a JSON path, and how to check to see if it exists.

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 json = Server.CreateObject("Chilkat.JsonObject")

' First build simple JSON..
success = json.UpdateInt("test.abc",100)

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

' This is our JSON:
' {
'   "test": {
'     "abc": 100,
'   }
' }

path = "test.notHere"

' The call to IntOf will return 0, because it's not present.
' But how do we know if it really was present, and the value was truly 0?
val = json.IntOf(path)
Response.Write "<pre>" & Server.HTMLEncode( "val = " & val) & "</pre>"

' We cannot use LastMethodSuccess because LastMethodSuccess only applies
' to methods that:
' - return a string
' - return a new Chilkat object, binary bytes, or a date/time.
' - returns a boolean status where 1 = success and 0 = failed.
' - returns an integer where failure is defined by a return value less than zero.
' The IntOf method fits none of these requirements, and therefore the LastMethodSuccess 
' is not a valid indicator..
wasFound = json.LastMethodSuccess
Response.Write "<pre>" & Server.HTMLEncode( "wasFound = " & wasFound & " (not a valid indicator)") & "</pre>"

' Instead, if the returned value is 0, we can double-check to see if the member was truly there..
If (val = 0) Then
    wasFound = json.HasMember(path)
    Response.Write "<pre>" & Server.HTMLEncode( "wasFound = " & wasFound) & "</pre>"
    If (wasFound = 1) Then
        Response.Write "<pre>" & Server.HTMLEncode( "The value was present and is 0.") & "</pre>"
    Else
        Response.Write "<pre>" & Server.HTMLEncode( "no member is present at test.notHere") & "</pre>"
    End If

Else
    Response.Write "<pre>" & Server.HTMLEncode( "val = " & val) & "</pre>"
End If

' Alternatively, you could check to see if the member exists beforehand..
If (json.HasMember(path) = 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( "val = " & json.IntOf(path)) & "</pre>"
Else
    Response.Write "<pre>" & Server.HTMLEncode( "no member at " & path) & "</pre>"
End If


%>
</body>
</html>