[ASP] 다운로드 페이지 프로그램

<%


     Dim File_Name, file_path, strUA

     Dim intVersion, up_path

     Dim objStream

     Dim strFile


     File_Name = Trim(Request.QueryString("filename"))


     file_path = Server.MapPath("/m/weekly_report/") & "\" & File_Name

     'Response.write "file_path=" & file_path & "<BR>"

     'Response.end

     strUA = Request.ServerVariables("HTTP_USER_AGENT")


     Response.ContentType = "application/unknown"


     'If InStr(Request.ServerVariables("HTTP_USER_AGENT"), "Chrome") > 0 Then

     Response.AddHeader "Content-Disposition","attachment; filename="&Server.URLPathEncode(File_Name) ' ie,크롬 다운로드 잘됨

     'Else

          'Response.AddHeader "Content-Disposition","attachment; filename="&Server.URLPathEncode(File_Name)

     'End If

              

     Set objStream = Server.CreateObject("ADODB.Stream")   

     objStream.Open


     objStream.Type = 1

     objStream.LoadFromFile(file_path)

     strFile = objStream.Read


     Response.BinaryWrite strFile


     Set objStream = Nothing

%>