파일 강제 다운로드

강제로 다운로드 창 뜨게 하려면 사용하세요.

           

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 [출처] [본문스크랩] ASP 첨부파일 다운로드 창 자동 열기..|작성자 전기운동