

<!-- 

1.

dim strPath
'strPath= strUploadRoot & "/" & bcode & "/" & d_attach
strPath=server.MapPath(path & "/" & bcode & "/" & file)

'실제 파일의 존재 유무 체크
dim fso
set fso=server.CreateObject("scripting.filesystemobject")

if not fso.FileExists(strPath) then
	AlertBack "오류 : 해당 첨부파일이 존재하지 않습니다."
	Response.End
end if


'다운로드

Response.ContentType = "application/unknown"
Response.AddHeader "Content-Disposition","attachment; filename=" & originFile    
'Server.URLPathEncode 처리를 안하면 한글 파일명이 깨진다.
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile strPath

download = objStream.Read
Response.BinaryWrite download 

Set objstream = nothing


2.

Response.AddHeader "Content-Disposition","attachment;filename=" & originFile

set objF=fso.GetFile(strPath)
Response.AddHeader "Content-Length",objF.Size 
set objF=nothing 
set fso=nothing

'	Response.ContentType = "application/x-msdownload" 
Response.ContentType = "application/unknown" 
Response.CacheControl = "public" 

Set objDownload = Server.CreateObject("DEXT.FileDownload") 
objDownload.Download strPath
Set uploadform = Nothing 

3.

Response.ContentType = "application/unknown"
Response.AddHeader "Content-Disposition","attachment; filename=" & Server.URLPathEncode(originFile)    
'Server.URLPathEncode 처리를 안하면 한글 파일명이 깨진다.
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile filepath

download = objStream.Read
Response.BinaryWrite download 

Set objstream = nothing

4.

Response.AddHeader "Content-Disposition","attachment;filename=" & Server.UrlPathEncode(originFile)

set objFS =Server.CreateObject("Scripting.FileSystemObject") 
set objF = objFS.GetFile(filepath) 
Response.AddHeader "Content-Length", objF.Size 
set objF = nothing 
set objFS = nothing

Response.ContentType = "application/unknown" 
Response.CacheControl = "public"

Set objDownload = Server.CreateObject("DEXT.FileDownload") 
objDownload.Download filepath 
Set objDownload = Nothing
-->