Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Classic ASP) SugarCRM AuthenticateDemonstrates how to authenticate to the SugarCRM REST v10 API. This is how an OAuth2 access token is obtained.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% set rest = Server.CreateObject("Chilkat_9_5_0.Rest") success = rest.Connect("your.site.domain",443,1,1) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>" Response.End End If success = rest.AddHeader("Cache-Control","no-cache") ' The following code creates the JSON request body. ' The JSON created by this code is shown below. set jsonReq = Server.CreateObject("Chilkat_9_5_0.JsonObject") success = jsonReq.UpdateString("grant_type","password") success = jsonReq.UpdateString("client_id","sugar") success = jsonReq.UpdateString("client_secret","CLIENT_SECRET") success = jsonReq.UpdateString("username","admin") success = jsonReq.UpdateString("password","password") success = jsonReq.UpdateString("platform","custom_api") ' The JSON request body created by the above code: ' { ' "grant_type": "password", ' "client_id": "sugar", ' "client_secret": "CLIENT_SECRET", ' "username": "admin", ' "password": "password", ' "platform": "custom_api" ' } set sbReq = Server.CreateObject("Chilkat_9_5_0.StringBuilder") success = jsonReq.EmitSb(sbReq) success = rest.AddHeader("Content-Type","application/json") set sbJson = Server.CreateObject("Chilkat_9_5_0.StringBuilder") success = rest.FullRequestSb("POST","/rest/v10/oauth2/token",sbReq,sbJson) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>" Response.End End If If (rest.ResponseStatusCode <> 200) Then Response.Write "<pre>" & Server.HTMLEncode( "Received error response code: " & rest.ResponseStatusCode) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Response body:") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( sbJson.GetAsString()) & "</pre>" Response.End End If set json = Server.CreateObject("Chilkat_9_5_0.JsonObject") success = json.LoadSb(sbJson) ' The following code parses the JSON response. ' A sample JSON response is shown below the sample code. access_token = json.StringOf("access_token") expires_in = json.IntOf("expires_in") token_type = json.StringOf("token_type") scope = json.IsNullOf("scope") refresh_token = json.StringOf("refresh_token") refresh_expires_in = json.IntOf("refresh_expires_in") download_token = json.StringOf("download_token") ' A sample JSON response body that is parsed by the above code: ' { ' "access_token": "c6d495c9-bb25-81d2-5f81-533ef6479f9b", ' "expires_in": 3600, ' "token_type": "bearer", ' "scope": null, ' "refresh_token": "cbc40e67-12bc-4b56-a1d9-533ef62f2601", ' "refresh_expires_in": 1209600, ' "download_token": "cc5d1a9f-6627-3349-96e5-533ef6b1a493" ' } Response.Write "<pre>" & Server.HTMLEncode( "Example Completed.") & "</pre>" %> </body> </html> |
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.