Return Dynamically Created In-Memory Zip

This ASP script shows how to create a Zip file in-memory and return it as a downloadable Zip file.

<%
' Return a Zip file created from in-memory data.
set zip = Server.CreateObject("Chilkat_9_5_0.Zip")

' Any value passed to UnlockComponent begins the 30-day trial.
unlocked = zip.UnlockComponent("30-day trial")
if unlocked then

	' Create a new instance of the ASP Zip object.
	zip.NewZip "something.zip"

	str = "This will be the contents of a file in the Zip that is returned."
	zip.AppendString "test.txt",str

	str = "Hello World! Hello World! Hello World! Hello World! Hello World!"
	zip.AppendString "hello.txt",str

	Response.Buffer = True

	Response.Expires = 0
	
	Response.ContentType = "application/zip"

	Response.AddHeader "Content-transfer-encoding", "binary"

	Response.AddHeader "Content-Disposition", "attachment;filename=something.zip"

	' Write the Zip to memory
	zipImage = zip.WriteToMemory()

	' Write the Zip to the ASP response
	Response.BinaryWrite(zipImage)

	Response.Flush()

end if

%>