Decode Base64 MIME Body

Download Chilkat MIME ActiveX

Decoding a MIME body from Base64.

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
set mime = Server.CreateObject("Chilkat.Mime")

success = mime.UnlockComponent("Anything for 30-day trial")
If (success = 0) Then
    Response.Write "Failed to unlock component" & "<br>"

End If

'  Create MIME with base64 encoding:
mime.SetBodyFromPlainText "This is a test"
mime.Charset = "windows-1252"
mime.Encoding = "base64"

mimeStr1 = mime.GetMime()

Response.Write Server.HTMLEncode( mimeStr1) & "<br>"
Response.Write Server.HTMLEncode( "-------------------------------") & "<br>"

'  Output looks like this:
'  Content-Type: text/plain;
'           charset="windows-1252"
'  content-transfer-encoding: base64
' 
'  VGhpcyBpcyBhIHRlc3Q=

'  Load the MIME into another Chilkat MIME object:
set mime2 = Server.CreateObject("Chilkat.Mime")
mime2.LoadMime mimeStr1

'  Get the MIME body decoded:
decodedBody = mime2.GetBodyDecoded()

'  Prints: this is a test
Response.Write Server.HTMLEncode( decodedBody) & "<br>"


%>
</body>
</html>