(Classic ASP) Example: Secrets.SecretSpecToJson method

Demonstrates the SecretSpecToJson method. This method converts a secret specification string to the JSON required to create or lookup the secret.

Note: This example requires Chilkat v11.5.0 or greater.

For more information, see https://www.chilkatsoft.com/secret_specification_strings.asp

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>
<%
success = 0

set secrets = Server.CreateObject("Chilkat.Secrets")
set json = Server.CreateObject("Chilkat.JsonObject")
json.EmitCompact = 0

' A secret name can include up to 4 components:
' [appName] / service / [domain] / username

' This example will demonstrate secret specification strings
' for each possible combination.

' ------------------------------------------------------
' 1: service + username
sspec = "!!imap|john@example.com"

success = secrets.SecretSpecToJson(sspec,json)
Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>"

' Result:
' {
'   "service": "imap",
'   "username": "john@example.com"
' }

' ------------------------------------------------------
' 2: appName + service + username
sspec = "!!myApp|imap|john@example.com"

success = secrets.SecretSpecToJson(sspec,json)
Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>"

' Result:
' {
'   "appName": "myApp",
'   "service": "imap",
'   "username": "john@example.com"
' }

' ------------------------------------------------------
' 3: service + domain + username
sspec = "!!|imap|imap.example.com|john"

success = secrets.SecretSpecToJson(sspec,json)
Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>"

' Result:
' {
'   "service": "imap",
'   "domain": "imap.example.com",
'   "username": "john"
' }

' ------------------------------------------------------
' 4: appName + service + domain + username
sspec = "!!myApp|imap|imap.example.com|john"

success = secrets.SecretSpecToJson(sspec,json)
Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>"

' Result:
' {
'   "appName": "myApp",
'   "service": "imap",
'   "domain": "imap.example.com",
'   "username": "john"
' }

%>
</body>
</html>