![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Classic ASP) Twitter - Application Only AuthenticationDemonstrates how to get a Twitter OAuth2 token for application-only authentication. This example is deprecated and no longer valid.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' It requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' Note: Define your Twitter apps at https://apps.twitter.com/ ' We're going to send an HTTPS POST that looks like this: ' POST /oauth2/token HTTP/1.1 ' Host: api.twitter.com ' User-Agent: My Twitter App v1.0.23 ' Authorization: Basic eHZ6MWV2RlM0d0VFUFRHRUZQSEJvZzpMOHFxOVBaeVJn ' NmllS0dFS2hab2xHQzB2SldMdzhpRUo4OERSZHlPZw== ' Content-Type: application/x-www-form-urlencoded;charset=UTF-8 ' Content-Length: 29 ' Accept-Encoding: gzip ' ' grant_type=client_credentials ' Update these values with your consumer key and secret (also known as API key and API secret). consumerKey = "TWITTER_CONSUMER_KEY" consumerSecret = "TWITTER_CONSUMER_SECRET" ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http") set http = Server.CreateObject("Chilkat.Http") http.BasicAuth = 1 http.Login = consumerKey http.Password = consumerSecret ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.HttpRequest") set req = Server.CreateObject("Chilkat.HttpRequest") req.AddParam "grant_type","client_credentials" ' resp is a Chilkat.HttpResponse Set resp = http.PostUrlEncoded("https://api.twitter.com/oauth2/token",req) If (http.LastMethodSuccess <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>" Response.End End If Response.Write "<pre>" & Server.HTMLEncode( "Response Status Code: " & resp.StatusCode) & "</pre>" If (resp.StatusCode <> 200) Then Response.Write "<pre>" & Server.HTMLEncode( "Expected a 200 response status code for success.") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( resp.BodyStr) & "</pre>" Response.End End If ' We should get a JSON response like this: ' { ' "token_type":"bearer", ' "access_token":"..." ' } ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set json = Server.CreateObject("Chilkat.JsonObject") success = json.Load(resp.BodyStr) Response.Write "<pre>" & Server.HTMLEncode( "Access token = " & json.StringOf("access_token")) & "</pre>" %> </body> </html> |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.