ASP Examples

ChilkatHOMEAndroid™ASPVisual BasicVB.NETC#iOS (IPhone)Objective-CC++CMFCDelphiFoxProJavaPerl
PHP ExtensionPHP ActiveXPythonPowerShellRubySQL ServerVBScript

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

 

 

 

 

 

 

String Compression

Download Chilkat Crypt ActiveX

ASP example to compress and decompress a string. This example demonstrates string-to-string compression. It is only worth doing if the input string is long enough and compresses well enough. The output of any compression algorithm is binary. To convert binary data to a printable string, some sort of encoding must be applied -- and this alway expands the size. For example, hex encoding produces a string that is 2 character for each byte (i.e. it doubles the size). Base64 encoding is a better choice because the output is 4 characters for every 3 bytes encoded.

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

'  The Crypt component has the BZip2 compression
'  and decompression features, combined with encoding/decoding,
'  that is required for string-to-string compression.
set crypt = Server.CreateObject("Chilkat.Crypt2")

'  Any string argument automatically begins the 30-day trial.
success = crypt.UnlockComponent("30-day trial")
If (success <> 1) Then
    Response.Write Server.HtmlEncode("Crypt component unlock failed") & "<br>"

End If

s = "A friend called me up the other day and talked about investing in a dot-com"
s = s & " that sells lobsters. Internet lobsters. Where will this end? --Donald Trump"

'  Make this string a bit bigger...
s = s + s
s = s + s
s = s + s

crypt.CryptAlgorithm = "none"
crypt.EncodingMode = "base64"

compressed = crypt.CompressStringENC(s)

Response.Write Server.HtmlEncode(compressed) & "<br>"

decompressed = crypt.InflateStringENC(compressed)

Response.Write Server.HtmlEncode(decompressed) & "<br>"


%>
</body>
</html>

 

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