강제 다운로드

    서버측에서 실행되지 않도 강제로 다운로드 되도록 하는 방법을 소개한다.

    Response.Expires = 0
    Response.Buffer =  True
    Response.Clear

    On Error Resume Next

    filename = Request("filename")
    filepath = Server.MapPath(".") & "\Upload\" & filename

    Response.ContentType =  "application/unknown"
    Response.CacheControl = "public"
    Response.AddHeader "Content-Disposition", "attachment;filename=" & filename

    '스트림 이용
    Set objStream = Server.CreateObject("ADODB.Stream")
    objStream.Open
    objStream.Type = 1
    objStream.LoadFromFile filepath
    strFile = objStream.Read
    Response.BinaryWrite strFile
    Response.Flush
    Set objStream = Nothing

    'SiteGalaxy이용
    set fso = server.CreateObject("SiteGalaxyUpload.FileSystemObject")
      set file = fso.OpenBinaryFile (filepath,1,false)
      Response.BinaryWrite file.ReadAll 
    set fso=nothing

    'DextDownLoad 이용
    Set objDownload = Server.CreateObject("DEXT.FileDownload")
    objDownload.Download filepath
    Set objDownload = Nothing

    If Err Then
     Response.Write Err.number & "<br>" & Err.source & "<br>" & Err.description & "<br>"
     Err.Clear
    End If




    출처 : Notebook of gogh(http://gogh914.tistory.com/62)
    Posted by 부니기