Classic ASP

Configure OAuth 1.0a Authentication for REST

Demonstrates Rest.SetAuthOAuth1, which associates an OAuth1 provider so Chilkat computes the OAuth 1.0/1.0a signature for each request. The second argument selects whether OAuth parameters are placed in the query string or the Authorization header.

Background. OAuth 1.0a signs each request using the consumer key/secret and the access token/secret. Chilkat generates the nonce, timestamp, and signature automatically for every request sent through the object.

Chilkat Classic ASP Downloads

Download Chilkat for Classic ASP

Classic ASP

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

set rest = Server.CreateObject("Chilkat.Rest")
bTls = 1
bAutoReconnect = 1
success = rest.Connect("example.com",443,bTls,bAutoReconnect)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>"
    Response.End
End If

'  Configure OAuth 1.0a request signing.  Provide the consumer credentials and the access token
'  credentials; Chilkat computes the OAuth signature for each request.
set oauth1 = Server.CreateObject("Chilkat.OAuth1")
'  Normally you would not hard-code secrets in source.  You should instead obtain them from an
'  interactive prompt, environment variable, or a secrets vault.
oauth1.ConsumerKey = "CONSUMER_KEY"
oauth1.ConsumerSecret = "CONSUMER_SECRET"
oauth1.Token = "ACCESS_TOKEN"
oauth1.TokenSecret = "ACCESS_TOKEN_SECRET"
oauth1.SignatureMethod = "HMAC-SHA1"

'  The 2nd argument selects whether OAuth parameters are placed in the query string (1) or the
'  Authorization header (0).
bUseQueryParams = 0
success = rest.SetAuthOAuth1(oauth1,bUseQueryParams)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>"
    Response.End
End If

responseText = rest.FullRequestNoBody("GET","/api/resource")
If (rest.LastMethodSuccess = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( responseText) & "</pre>"

%>
</body>
</html>