Classic ASP Requires Chilkat v11.5.0+

Box: Authorize a User with OAuth 2.0

See more Box Examples

Interactive local-development example using a browser and a loopback callback. Register exactly http://localhost:3017/ in the Box User app. Run this in a trusted environment that can hold the client secret. A deployed web app must handle its registered HTTPS callback on the server.

See the Box API guide for setup and the complete workflow.

Classic ASP

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

'  Requires Chilkat 11.5.0 or later and a previously unlocked Chilkat bundle.
'  See Global Unlock Sample.
'  Guide: Box API Guide.

success = 0

set oauth2 = Server.CreateObject("Chilkat.OAuth2")
oauth2.ListenPort = 3017
oauth2.AuthorizationEndpoint = "https://account.box.com/api/oauth2/authorize"
oauth2.TokenEndpoint = "https://api.box.com/oauth2/token"
oauth2.ClientId = "BOX_CLIENT_ID"
oauth2.ClientSecret = "BOX_CLIENT_SECRET"
'  Use Box's documented confidential-client authorization-code flow.
oauth2.CodeChallenge = 0
url = oauth2.StartAuth()
If (oauth2.LastMethodSuccess <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( oauth2.LastErrorText) & "</pre>"
    Response.End
End If

success = oauth2.LaunchBrowser(url)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( oauth2.LastErrorText) & "</pre>"
    Response.End
End If

elapsedMs = 0
Do While (elapsedMs < 120000) And (oauth2.AuthFlowState < 3)
    oauth2.SleepMs 100
    elapsedMs = elapsedMs + 100
Loop
If (oauth2.AuthFlowState < 3) Then
    success = oauth2.Cancel()
    Response.Write "<pre>" & Server.HTMLEncode( "Authorization timed out.") & "</pre>"
    Response.End
End If

If (oauth2.AuthFlowState <> 3) Then
    Response.Write "<pre>" & Server.HTMLEncode( "Authorization was denied or failed. State: " & oauth2.AuthFlowState) & "</pre>"
    Response.End
End If

'  Retain both tokens in your application's protected token store.
'  The variables below are deliberately not printed.
accessToken = oauth2.AccessToken
refreshToken = oauth2.RefreshToken
'  For this local-development example only, save in a directory restricted to this user.
'  Create qa_data/tokens before running; never put this file under a web root.
set tokens = Server.CreateObject("Chilkat.JsonObject")
success = tokens.Load(oauth2.AccessTokenResponse)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( tokens.LastErrorText) & "</pre>"
    Response.End
End If

success = tokens.WriteFile("qa_data/tokens/box_oauth.json")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( tokens.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "Authorization complete; token response saved in the protected local token file.") & "</pre>"

%>
</body>
</html>