예를 들어 웹 에서 링크된 xls 파일이나 txt 파일 클릭을 하면
웹브라우져에서 바로 실행이 될것이다. 이 소스는 바로 실행이 되지않고
다운로드 창을 띄우고자 할때 사용한다.
예제로 파일 두개를 생성하겠다.
file.asp
<a href="download.asp"> DownLoad!! </a>
여기서는 아래 파일을 링크 해놓았다.
download.asp
Dim file
file = "sampleFile.xls"
Response.ContentType = "application/unknown"
Response.AddHeader "Content-Disposition","attachment; filename=" & file
Dim objStream, download
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile Server.MapPath("./")&"\"& "sampleF.xls"
' 위소스는 실제 서버에 존재하는 파일경로와 파일 이름을 지정해준다.
download = objStream.Read
Response.BinaryWrite download
Set objstream = nothing
위와 같이 두 파일을 만든후 file.asp 를 실행하면DownLoad!! 라는 링크가 나타날것이다.
클릭을하면 txt 든 xls 든 상관 않고 다운로드 창이 뜬다.