<% Application_OnStart() %>
<script language="VBScript" runat="Server"> Sub Application_OnStart Set Application("Zip") = Server.CreateObject("Pnvzip.ZipFunctions") End Sub Sub Application_End Set Application("Zip") = Nothing End Sub </script>
<% Option Explicit %> <html> <head> <title>ThaiCreate.Com ASP Application Object</title> </head> <body> <% Dim sResult sResult = Application("Zip").ZipFile(Server.MapPath("MyFiles/thaicreate.txt"),Server.MapPath("MyFiles/thaicreate.zip")) Response.Write "Result code :" & sResult & "<br>" %> </body> </html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน Source Code 2.0 ของทีมงานไทยครีเอท