html 문서에서 파일 다운로드 모듈(?) asp 문서 소스

get 방식으로 asp 모듈 문서를 호출한다.
물론 변수로 다운로드할 파일명을 같이 전달한다.


<%
Dim filename, Url
filename = Request.QueryString("d_filename")
Url=Server.MapPath(".")&"\"
Url=Url & "download\"

Dim objStream, strFile
Response.ContentType = "application/unknown"
Response.AddHeader "Content-Disposition","attachment; filename=" & filename & ""

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1

objStream.LoadFromFile Url & filename
' objStream.LoadFromFile "파일 경로" & filename
' 파일경로 & 파일 이름

strFile = objStream.Read

Set objStream = Nothing
Response.BinaryWrite strFile
%>