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) Create Restricted Data Token (RDT)See more Amazon SP-API ExamplesReturns a Restricted Data Token (RDT) for one or more restricted resources that you specify. For more information, see https://developer-docs.amazon.com/sp-api/docs/tokens-api-v2021-03-01-reference#post-tokens2021-03-01restricteddatatoken
<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. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.AuthAws") set authAws = Server.CreateObject("Chilkat.AuthAws") authAws.AccessKey = "AWS_ACCESS_KEY" authAws.SecretKey = "AWS_SECRET_KEY" authAws.ServiceName = "execute-api" ' Use the region that is correct for your needs. authAws.Region = "eu-west-1" ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Rest") set rest = Server.CreateObject("Chilkat.Rest") bTls = 1 port = 443 bAutoReconnect = 1 ' The sandbox endpoint (sandbox.sellingpartnerapi-eu.amazon.com) fails. ' Use the production endpoint and see the note below. success = rest.Connect("sellingpartnerapi-eu.amazon.com",port,bTls,bAutoReconnect) If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>" Response.End End If success = rest.SetAuthAws(authAws) ' Load the previously obtained LWA access token. ' See Fetch SP-API LWA Access Token ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set jsonToken = Server.CreateObject("Chilkat.JsonObject") success = jsonToken.LoadFile("qa_data/tokens/sp_api_lwa_token.json") If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( "Failed to load LWA access token.") & "</pre>" Response.End End If ' Add the x-amz-access-token request header. lwa_token = jsonToken.StringOf("access_token") success = rest.ClearAllHeaders() success = rest.AddHeader("x-amz-access-token",lwa_token) ' We're going to send a POST with the following JSON body: ' { ' "restrictedResources": [ ' { ' "method": "GET", ' "path": "/orders/v0/orders", ' "dataElements": ["buyerInfo", "shippingAddress"] ' } ' ] ' } ' Use this online tool to generate code from sample JSON: ' Generate Code to Create JSON ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set json = Server.CreateObject("Chilkat.JsonObject") success = json.UpdateString("restrictedResources[0].method","GET") success = json.UpdateString("restrictedResources[0].path","/orders/v0/orders") success = json.UpdateString("restrictedResources[0].dataElements[0]","buyerInfo") success = json.UpdateString("restrictedResources[0].dataElements[1]","shippingAddress") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder") set sbRequest = Server.CreateObject("Chilkat.StringBuilder") success = json.EmitSb(sbRequest) ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder") set sbResponse = Server.CreateObject("Chilkat.StringBuilder") uri = "/tokens/2021-03-01/restrictedDataToken" success = rest.FullRequestSb("POST",uri,sbRequest,sbResponse) If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>" Response.End End If ' ------------------------------------------------------------------------------------ ' Note: Using the sandbox endpoint, such as sandbox.sellingpartnerapi-eu.amazon.com ' results in a response status code of 400 with the following error: ' [{"code":"InvalidInput","message":"Could not match input arguments"}] ' Getting a restricted data token seems to only work with the production endpoint. ' ------------------------------------------------------------------------------------ ' Examine the response status. statusCode = rest.ResponseStatusCode If (statusCode <> 200) Then Response.Write "<pre>" & Server.HTMLEncode( "Response status code: " & statusCode) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Response status text: " & rest.ResponseStatusText) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Response body: ") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( sbResponse.GetAsString()) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Failed.") & "</pre>" Response.End End If Response.Write "<pre>" & Server.HTMLEncode( sbResponse.GetAsString()) & "</pre>" ' If successful, gets a JSON response such as the following: ' { ' "expiresIn": 3600, ' "restrictedDataToken": "Atz.sprdt|AYAB.....TQ=" ' } ' Use this online tool to generate parsing code from sample JSON: ' Generate Parsing Code from JSON ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set jsonResp = Server.CreateObject("Chilkat.JsonObject") success = jsonResp.LoadSb(sbResponse) expiresIn = jsonResp.IntOf("expiresIn") restrictedDataToken = jsonResp.StringOf("restrictedDataToken") ' Save the RDT for subsequent use.. success = jsonResp.WriteFile("qa_data/tokens/sp_api_rdt_token.json") Response.Write "<pre>" & Server.HTMLEncode( "Success!") & "</pre>" %> </body> </html> |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.