Save String to .gz GZip Compressed File
ASP script to save the contents of a string to a .gz file.
<html>
<head><meta http-equiv="Content-Type" content="text/html; charset=utf-8"></head>
<body>
<%
' Create a .gz file (GZip file format) directly from the contents
' of a string variable.
set gzip = Server.CreateObject("Chilkat_9_5_0.Gzip")
' The GZip component is included in the "Chilkat Zip" license
gzip.UnlockComponent "anything for 30-day trial"
' Create a string that will be saved in a .gz
s = ""
for i = 0 to 100
s = s + "Hello World!" + vbcrlf
next
' Make sure ASP has write permission to the directory...
' The Unicode VB String is converted to Windows-1252 before compressing to create a .gz
gzip.CompressStringToFile s, "windows-1252", Server.MapPath("/data/helloWorld.txt.gz")
Response.Write "Done!"
%>
</body>
</html>
|
