AspEasyZip is a COM component written by MITData, S.C.P. With this component you can easily crate and extract zip files from code on our server. The full documentation can be obtained at:
http://www.mitdata.com/AspEasy/index_zip.asp?lang=us
Example for zipping:
set ZIP = server.createobject("aspZip.EasyZIP")
Zip.ZipFileName = "c:\yourabsolutepath\yourzipfile.zip"
Zip.ArgsClear
Zip.ArgsAdd("c:\yourabsolutepath\*.asp")
Zip.ArgsAdd("c:\yourabsolutepath\*.htm")
Zip.ArgsAdd("c:\yourabsolutepath\cgi-bin\*.*")
Zip.Zip
response.Write "Files Zipped=" & Zip.SuccessCNT & " with Error="& Zip.Error
response.Write "Message: " & Zip.LastMessage
Example for unzipping:
set ZIP = server.createobject("aspZip.EasyZIP")
Zip.ZipFileName = "c:\yourabsolutepath\yourzipfile.zip"
Zip.ArgsClear
Zip.ArgsAdd("*.*") 'Unzip all files
Zip.UnZip
response.Write "Files Unzipped=" & Zip.SuccessCNT & " with Error="& Zip.Error
response.Write "Message: " & Zip.LastMessage
Example for showing the contents of a zip file:
set ZIP = server.createobject("aspZip.EasyZIP")
Zip.ZipFileName = "c:\yourabsolutepath\yourzipfile.zip"
for f = 0 to Zip.GetZipItemsCount - 1
   response.Write Zip.GetZipItem_FIleName( f ) & " "
   response.Write Zip.GetZipItem_CompressedSize( f ) & " "
   response.Write Zip.GetZipItem_UNCompressedSize( f ) & " "
   response.Write "<br>"
Next
Example on how to delete an item on the zip file:
set ZIP = server.createobject("aspZip.EasyZIP")
Zip.ZipFileName = "c:\yourabsolutepath\yourzipfile.zip"
Zip.ArgsClear
Zip.ArgsAdd("c:\yourabsolutepath\*.asp")
Zip.RemoveZip
Example for zipping a full directory:
   const AddDirNames = 1
   const AddZipTime = 2
   const AddRecurseDirs = 4
   const AddHiddenFiles = 8
   const AddEncrypt = 16
   const AddSeparateDirs = 32
   set ZIP = server.createobject("aspZip.EasyZIP")
   Zip.ZipFileName = "c:\yourabsolutepath\yourzipfile.zip"
   Zip.ArgsClear
   Zip.AddOptions = AddDirNames + AddRecurseDirs + AddSeparateDirs
   Zip.ArgsAdd("c:\yourabsolutepath\*.*")
   Zip.Zip
   response.Write "Files Zipped=" & Zip.SuccessCNT & " with Error="& Zip.Error
   response.Write "Message: " & Zip.LastMessage
If you are unsure on your absulute path please read this article.