<% Option Explicit %> <html> <head> <title>ThaiCreate.Com ASP Zip</title> </head> <body> <% Dim objZip,sResult Set objZip = Server.CreateObject("Pnvzip.ZipFunctions") sResult = objZip.ZipFile(Server.MapPath("MyXls/MyCustomer.xls"),Server.MapPath("MyXls/MyCustomer.zip")) Response.Write "Result code :" & sResult & "<br>" '*** GZipFile(In,Out) for .gz ***' Response.Write "<a href=MyXls/MyCustomer.zip>Click here</a> Download Zip Files " Set objZip = Nothing %> </body> </html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน Source Code 2.0 ของทีมงานไทยครีเอท
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 05
