[ Etc ] [ASP] 파일 다운로드
작성일 20-06-18 17:01
페이지 정보
작성자IPFT 조회 918회 댓글 2건본문
*** download.asp ***
<%
Dim file, Path
file = Request("filename") '파일명
Path = Server.MapPath("/file/") '업로드 파일 경로
Set object = server.CreateObject("Scripting.FileSystemObject")
'파일 있다면
If object.FileExists(Path&"\"&file)=true Then
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition", "attachment;filename=" & file
Response.CacheControl = "public"
Set object2 = Server.CreateObject("Adodb.Stream")
object2.Open
object2.Type = 1
object2.LoadFromFile Path&"\"&file
Response.BinaryWrite object2.Read
object2.Close
Set object2 = Nothing
'파일 없다면
Else
Response.write "<script language='javascript'>"
Response.write "alert('해당 파일을 찾을 수 없습니다.');"
Response.write "history.back();"
Response.write "</script>"
End If
%>
*** HTML ***
<a href="/inf/download.asp?filename=test_pdf.pdf">catalog-1 download</a>
댓글목록
또링님의 댓글
또링 작성일forest_code님의 댓글
forest_code 작성일
filepath = "경로"
filename = request("filename") '파일명
Response.Expires = 0
Response.Buffer = True
Response.Clear
Set fs = Server.CreateObject("Scripting.FileSystemObject")
If fs.FileExists(filepath & filename) Then
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 & filename
Response.BinaryWrite Stream.Read
Stream.close
Set Stream = nothing
Else
Response.Write "해당 파일을 찾을 수 없습니다."
End If
Set fs = Nothing