Blog

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

dir = request("dir")
filename = request("filename")
filepath = Server.MapPath("\webfs\") & "\Common\etcFiles\"&dir&"\" & filename

set objFS = Server.CreateObject("Scripting.FileSystemObject")
If objFS.FileExists(filepath) Then
    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
Else
    Response.Write("False")
End if