[ASP] 파일 다운로드 > 학습

본문 바로가기

사이트 내 전체검색

425,052명이 방문해 주셨습니다.

[  Etc  ] [ASP] 파일 다운로드

작성일 20-06-18 17:01

페이지 정보

작성자IPFT 조회 662회 댓글 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

Copyright © 소유하신 도메인. All rights reserved.