|
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) S3 Get Bucket PolicyDemonstrates how to send a GET request to fetch the policy of a specified bucket. The following information is quoted from the AWS REST API reference documentation at http://docs.aws.amazon.com/AmazonS3/latest/API/RESTBucketGETpolicy.html To use this operation, you must have GetPolicy permissions on the specified bucket, and you must be the bucket owner. Important: This example requires Chilkat v9.5.0.66 or greater.
<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. ' Important: This example requires Chilkat v9.5.0.66 or greater. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Rest") set rest = Server.CreateObject("Chilkat.Rest") ' Connect to the Amazon AWS REST server in the desired region. bTls = 1 port = 443 bAutoReconnect = 1 success = rest.Connect("s3-us-west-2.amazonaws.com",port,bTls,bAutoReconnect) ' Provide AWS credentials. ' 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 = "s3" ' This particular bucket is in the Oregon region, as opposed to the US Standard, ' therefore the Region must be set appropriately. ' Also note that we connected to "s3-us-west-2.amazonaws.com". authAws.Region = "us-west-2" success = rest.SetAuthAws(authAws) ' Note: The above REST connection and setup of the AWS credentials ' can be done once. After connecting, any number of REST calls can be made. ' The "auto reconnect" property passed to rest.Connect indicates that if ' the connection is lost, a REST method call will automatically reconnect ' if needed. ' -------------------------------------------------------------------------- ' Set the bucket name via the HOST header. ' In this case, the bucket name is "chilkat.ocean". ' Note that the Host header should use "bucketName.s3.amazonaws.com", not "bucketName.s3-us-west-2.amazonaws.com" rest.Host = "chilkat.ocean.s3.amazonaws.com" ' Get the policy. responseJsonStr = rest.FullRequestNoBody("GET","/?policy") If (rest.LastMethodSuccess <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>" Response.End End If ' When successful, the S3 Storage service will respond with a 200 response code, ' with an XML body. If (rest.ResponseStatusCode <> 200) Then ' Examine the request/response to see what happened. Response.Write "<pre>" & Server.HTMLEncode( "response status code = " & rest.ResponseStatusCode) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "response status text = " & rest.ResponseStatusText) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "response header: " & rest.ResponseHeader) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "response body: " & responseJsonStr) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "---") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "LastRequestStartLine: " & rest.LastRequestStartLine) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "LastRequestHeader: " & rest.LastRequestHeader) & "</pre>" End If Response.Write "<pre>" & Server.HTMLEncode( "response body: " & responseJsonStr) & "</pre>" ' Load the JSON and display in a more human-readable manner: ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set json = Server.CreateObject("Chilkat.JsonObject") success = json.Load(responseJsonStr) json.EmitCompact = 0 Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>" ' Sample output: ' { ' "Version": "2012-10-17", ' "Statement": [ ' { ' "Effect": "Allow", ' "Resource": "arn:aws:s3.asp">chilkat.ocean/", ' "Principal": "*" ' } ' ] ' } ' %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.