ADODB.Stream을 이용한 파일다운로드 소스

ADODB.Stream을 이용한 파일다운로드 소스

==================================================================================

파일 다운로드시 바로열기를 하거나 할때 브라우저에 따라 문제가 발생할때 사용가능한 모듈 입니다.

[download.asp]

<% Option Explicit %>
<%
Dim fileName,filepath,file
Dim objFS,objF,objDownload
Dim pathname ,objStream,download
Dim file_split

file= request("fileName")
filePath = request("filePath")
pathname = Server.MapPath(filePath)&"\"&file

'파일 이름
Response.ContentType = "application/unknown"
'ContentType 를 선언합니다.
Response.AddHeader "Content-Disposition","attachment; filename=" & file
'헤더값이 첨부파일을 선언합니다.
Set objStream = Server.CreateObject("ADODB.Stream")
'Stream 을 이용합니다.
objStream.Open
'무엇이든 Set 으로 정의했으면 열어야 겠지요^^
objStream.Type = 1
objStream.LoadFromFile pathname
download = objStream.Read
Response.BinaryWrite download
'이게 보통 Response.Redirect 로 파일로 연결시켜주는 부분을 대신하여 사용된 것입니다.
Set objstream = nothing
'초기화시키구요.
%>

[사용방법]

<a href="http://localhost/download.asp?filePath=/file/&fileName=filename.hwp" target="_blank">filename.hwp</a>