|
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) Check PayPal Access Token ExpirationChecks to see if the PayPal access token expired.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' Note: Requires Chilkat v9.5.0.64 or greater. ' This requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' In the example linked here: PayPal OAuth2 Token, ' we fetched a PayPal access token and saved it to a JSON file. ' We also recorded the current date/time. ' Load this JSON file and compare the current date/time with the fetch date/time ' and the "expires_in" value to see if the token is expired. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set json = Server.CreateObject("Chilkat.JsonObject") success = json.LoadFile("qa_data/tokens/paypal.json") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( "Failed to load access key json file.") & "</pre>" Response.End End If ' Get the current date/time. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.CkDateTime") set dateTime = Server.CreateObject("Chilkat.CkDateTime") bLocalTime = 0 dtNow = dateTime.GetAsUnixTime(bLocalTime) ' Get the access token create date/time dtCreate = json.IntOf("tokenCreateTimeUtc") ' Find out how many seconds have elapsed. numSeconds = dtNow - dtCreate ' Get the expires_in value from the JSON. expires_in = json.IntOf("expires_in") Response.Write "<pre>" & Server.HTMLEncode( "token age (in seconds) = " & numSeconds) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "expires_in = " & expires_in) & "</pre>" ' If the token expired, or if it will expire in 5 minutes or less, ' get another token. If (numSeconds < (expires_in - 300)) Then Response.Write "<pre>" & Server.HTMLEncode( "The token is not yet expired. No need to fetch another.") & "</pre>" Response.End End If Response.Write "<pre>" & Server.HTMLEncode( "Time to fetch a new access token...") & "</pre>" ' Get another token.. ' See the example at Get PayPal OAuth2 Token ' to get another token.. %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.