ASP Examples

Chilkat • HOME • Android™ • ASP • Visual Basic • VB.NET • C# • iOS (IPhone) • Objective-C • C++ • C • MFC • Delphi • FoxPro • Java • Perl •
PHP Extension • PHP ActiveX • Python • PowerShell • Ruby • SQL Server • VBScript

ASP Examples

ASP String
ASP Byte Array
Bounced Mail
Bz2
Character Encoding
CSV
Digital Certificates
Digital Signatures
Email
FTP
HTML Conversion
HTTP
IMAP
Encryption
MHT / HTML Email
POP3
RSA
S/MIME
SMTP
Socket
Spider
SSH
SSH Tunnel
SSH Key
SFTP
Tar
ASP Upload
XML
XMP
Zip Compression

More Examples...
Amazon S3
Email Object
DKIM / DomainKey
NTLM
DH Key Exchange
DSA
FileAccess
RSS
Atom
Self-Extractor
Service
PPMD
Deflate
Bzip2
LZW

 

 

 

 

 

 

Amazon S3 - Delete Bucket (REST API)

Deletes an Amazon S3 bucket using the REST API. This example deletes the bucket named "chilkat3".

Download Chilkat XML ActiveX

Download Chilkat Crypt ActiveX

Download Chilkat HTTP ActiveX

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
set http = Server.CreateObject("Chilkat.Http")
success = http.UnlockComponent("Anything for 30-day trial.")
If (success <> 1) Then
    '  Unlock failed.
    Response.Write http.LastErrorText & "<br>"

End If

set crypt = Server.CreateObject("Chilkat.Crypt2")

success = crypt.UnlockComponent("Anything for 30-day trial.")
If (success <> 1) Then
    Response.Write crypt.LastErrorText & "<br>"

End If

'  The HTTP component now includes a method to generate
'  the current date/time in RFC 2616 compliant format.
'  Note: The GenTimeStamp method is available as a pre-release (as of 18-June-2008).
'  It will become available in the next new version dated after
'  18-June-2008.
curDateTime = http.GenTimeStamp()

'  Delete the bucket named "chilkat3"
strToSign = "DELETE" & vbLf & vbLf & vbLf & curDateTime & vbLf & "/chilkat3/"

'  We want SHA1 for the HMAC hash algorithm:
crypt.HashAlgorithm = "sha1"

'  These must be changed for your account:
AWSAccessKeyId = "zzzzzzzzzzzzzzzzzzzzz"
AWSSecretAccessKey = "zzzzzzzzzzzzzzzzzzzzzzzzzzz"

'  Set the HMAC secret key:
crypt.SetHmacKeyString AWSSecretAccessKey

'  By setting the charset = "utf-8", the string will be converted
'  to utf-8 (internal to the Chilkat component) prior to signing:
crypt.Charset = "utf-8"

'  Indicate that Base64 output is desired:
crypt.EncodingMode = "base64"

signature = crypt.HmacStringENC(strToSign)

authValue = "AWS " & AWSAccessKeyId & ":" & signature

'  The bucket to be deleted is specified in the Host header.
'  In this example, the "chilkat3" bucket is deleted
http.SetRequestHeader "Host","chilkat3.s3.amazonaws.com"

http.SetRequestHeader "Authorization",authValue
http.SetRequestHeader "Date",curDateTime

'  Send the DELETE request.

responseStr = http.QuickDeleteStr("http://s3.amazonaws.com/")

If (responseStr = vbNullString ) Then
    '  Failed.  Show the last request header, response header,
    '  and response body.
    Response.Write Server.HTMLEncode( http.LastHeader) & "<br>"
    Response.Write Server.HTMLEncode( "---") & "<br>"
    Response.Write Server.HTMLEncode( http.LastResponseHeader) & "<br>"
    Response.Write Server.HTMLEncode( "---") & "<br>"
    Response.Write Server.HTMLEncode( http.LastErrorText) & "<br>"
Else

    '  Success is indicated by an empty response string, and
    '  a response status of 204.
    If (http.LastStatus = 204) Then
        Response.Write "Bucket deleted!" & "<br>"

        '  Let's check out the response header anyway...
        Response.Write Server.HTMLEncode( http.LastResponseHeader) & "<br>"

    Else

        '  Is this a temporary redirect?
        If (http.LastStatus = 307) Then

            '  The new endpoint is in the XML contained within responseStr.
            set xml = Server.CreateObject("Chilkat.Xml")
            xml.LoadXml responseStr
            endpoint = xml.GetChildContent("Endpoint")
            responseStr = http.QuickDeleteStr(endpoint)
            If (http.LastStatus = 204) Then
                Response.Write "Bucket deleted after redirect!" & "<br>"

                '  Let's check out the response header anyway...
                Response.Write Server.HTMLEncode( http.LastResponseHeader) & "<br>"

            Else
                '  What happened???
                Response.Write Server.HTMLEncode( "LastStatus: " _
                     & http.LastStatus) & "<br>"
                Response.Write Server.HTMLEncode( "---") & "<br>"
                Response.Write Server.HTMLEncode( responseStr) & "<br>"
                Response.Write Server.HTMLEncode( "---") & "<br>"
                Response.Write Server.HTMLEncode( http.LastHeader) & "<br>"
                Response.Write Server.HTMLEncode( "---") & "<br>"
                Response.Write Server.HTMLEncode( http.LastResponseHeader) & "<br>"
                Response.Write Server.HTMLEncode( "---") & "<br>"
                Response.Write Server.HTMLEncode( http.LastErrorText) & "<br>"
            End If

        Else
            '  What response is this???
            Response.Write Server.HTMLEncode( "LastStatus: " _
                 & http.LastStatus) & "<br>"
            Response.Write Server.HTMLEncode( "---") & "<br>"
            Response.Write Server.HTMLEncode( responseStr) & "<br>"
            Response.Write Server.HTMLEncode( "---") & "<br>"
            '  Failed.  Show the last request header, response header,
            '  and response body.
            Response.Write Server.HTMLEncode( http.LastHeader) & "<br>"
            Response.Write Server.HTMLEncode( "---") & "<br>"
            Response.Write Server.HTMLEncode( http.LastResponseHeader) & "<br>"
            Response.Write Server.HTMLEncode( "---") & "<br>"
            Response.Write Server.HTMLEncode( http.LastErrorText) & "<br>"
        End If

    End If

End If

%>
</body>
</html>
 

© 2000-2012 Chilkat Software, Inc. All Rights Reserved.