Classic ASP

Add Text Files to a ZIP Using AddString

This example demonstrates how to use the AddString method to add multiple text files directly from string variables into a ZIP archive.

Each string is converted to bytes using the specified character encoding and stored as a separate file entry within the ZIP archive.

This method is useful for dynamically generating small text files such as configuration files, reports, JSON documents, XML, or log files entirely in memory.

Chilkat Classic ASP Downloads

Download Chilkat for Classic ASP

Classic ASP

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

set zip = Server.CreateObject("Chilkat.Zip")

success = zip.NewZip("stringEntries.zip")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>"
    Response.End
End If

' Add a README text file.
readmeText = "This ZIP archive was created using AddString."

success = zip.AddString("docs/readme.txt",readmeText,"utf-8")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>"
    Response.End
End If

' Add a JSON configuration file.
jsonText = "{ ""server"": ""example.com"", ""port"": 443 }"

success = zip.AddString("config/settings.json",jsonText,"utf-8")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>"
    Response.End
End If

' Add a small XML document.
xmlText = "<root><status>OK</status></root>"

success = zip.AddString("xml/status.xml",xmlText,"utf-8")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>"
    Response.End
End If

' Write the ZIP archive to disk and close it.
success = zip.WriteZipAndClose()
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "ZIP archive created successfully.") & "</pre>"

%>
</body>
</html>