ASP 첨부파일 다운로드(한글 깨짐 방지)

1. 첨부파일 링크주소

<a href="/inc/download.asp?filesavename=<%=Server.URLEncode(GetDataFile(2,i))%>&filename=<%=Server.URLEncode(GetDataFile(1,i))%>&filepath=<%=PhysicalDocUrl%>" onfocus="this.blur();"><%=GetDataFile(1,i) %></a><Br>

2. download.asp

<%

    fileName = Request("filename")

    fileSaveName = Request("filesavename")

    filePath = Request("filepath")

'    Response.Write fileName&"<br/>"

'    Response.Write fileSaveName&"<br/>"

'    Response.Write filePath

'    Response.End

'    Response.Expires = 0

'    Response.Buffer = True

'    Response.Clear

'

'    Set fs = Server.CreateObject("Scripting.FileSystemObject")

'

'         '파일이 있을경우 파일을 스트림 형태로 열어 보낸다.

'         Response.ContentType = "application/octet-stream"

'         Response.CacheControl = "public"

'         Response.AddHeader "Content-Disposition","attachment;filename=" & filename

'

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

'         Stream.Open

'         Stream.Type=1

'         Stream.LoadFromFile filepath & fileSaveName

'         Response.BinaryWrite Stream.Read

'         Stream.close

'         Set Stream = nothing

'     

'     Set fs = Nothing

    Response.ContentType = "application/unknown"

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

'Server.URLPathEncode 처리를 안하면 한글 파일명이 깨진다.

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

    objStream.Open

    objStream.Type = 1

    objStream.LoadFromFile filePath & fileSaveName

    download = objStream.Read

    Response.BinaryWrite download 

    Set objstream = nothing 

%>