<%@ LANGUAGE=»VBScript» %>
<%
	Response.AddHeader «content-encoding», «gzip»
	Const adTypeBinary = 1
	Dim strFilePath
	Set objStream = Server.CreateObject(«ADODB.Stream»)
	objStream.Open
	objStream.Type = adTypeBinary
	objStream.LoadFromFile Request.ServerVariables(«APPL_PHYSICAL_PATH»)+»test.gz»
	Response.BinaryWrite objStream.Read
	objStream.Close
	Set objStream = Nothing
%>

Поделитесь материалом с коллегами и друзьями