Classic ASP
Compress and Decompress a String

Demonstrates how to compress and decompress a string.
Chilkat Classic ASP Downloads

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

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

set sb = Server.CreateObject("Chilkat.StringBuilder")

For i = 1 To 20
    success = sb.Append("This is the original uncompressed string." & vbCrLf)
Next

set compress = Server.CreateObject("Chilkat.Compression")
compress.Algorithm = "deflate"
' Indicate that the utf-8 byte representation of the string should be compressed.
compress.Charset = "utf-8"

compressedBytes = compress.CompressString(sb.GetAsString())

' If the compressed data is desired in string format, then get the base64 representation of the bytes.
compress.EncodingMode = "base64"
compressedBase64 = compress.CompressStringENC(sb.GetAsString())
Response.Write "<pre>" & Server.HTMLEncode( "Compressed Bytes as Base64: " & compressedBase64) & "</pre>"

' Now decompress...
decompressedString = compress.DecompressString(compressedBytes)
Response.Write "<pre>" & Server.HTMLEncode( "The original string after decompressing from binary compressed data:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( decompressedString) & "</pre>"

' To decompress from Base64...
compress.EncodingMode = "base64"
decompressedString = compress.DecompressStringENC(compressedBase64)
Response.Write "<pre>" & Server.HTMLEncode( "The original string after decompressing from Base64:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( decompressedString) & "</pre>"

%>
</body>
</html>