[asp] 파일 다운로드

<%
    Dim filename, path, ie_version, objStream, strFile
    
  filename = request("filename")
  path = request("path")
  ie_version = Request.ServerVariables("HTTP_USER_AGENT")
  Response.Clear
  Response.ContentType = "application/octet-stream"
  Response.AddHeader "Content-Disposition", "attachment;filename=" & filename
  Response.AddHeader "Content-Transfer-Encoding", "binary"
  Response.AddHeader "Pragma", "no-cache"
  Response.AddHeader "Expires", "0" 
 
  ' 스트림을 선언
 
  Set objStream = Server.CreateObject("ADODB.Stream")
  objStream.Open
 
  objStream.Type = 1
  objStream.LoadFromFile server.mappath(path) & "/" & filename '파일경로
  strFile = objStream.Read
 
  Response.BinaryWrite strFile
  Set objStream = Nothing 
 
%>