ASP3.0 기초 강의실

시삽: 레드플러스 님 
게시판 이동:
 제목 : 8. 다운로드 페이지 설계
글번호: 178
작성자: 레드플러스
작성일: 2004/04/27 오후 7:24:00
조회수: 5230
<%

Call Main()

Sub Main()

    strFileName = Request("strFileName")

    If strFileName = "" Then
        Call RedirFail()
        Exit Sub    
    Else
        Call RedirectFile(strFileName)
    End If

End Sub


Sub RedirectFile(strFileName)

    '서버에 저장될 파일의 위치와 이름
    strFilePath = Server.MapPath(".") + "\files\" & strFileName

    Set objFSO = Server.CreateObject("SiteGalaxyUpload.FileSystemObject")
    Set objFile = objFSO.OpenBinaryFile(strFilePath, 1, False)
    
    Response.Clear
    Response.ContentType = "application/octet-stream"
    Response.AddHeader "Content-disposition", "attachment; filename=" & strFileName
    Response.BinaryWrite objFile.ReadAll
    Response.End
    
    Set objFile = Nothing
    Set objFSO = Nothing

End Sub


Sub RedirFail()

    Response.Redirect("./boardlist.asp")

End Sub

%>
 
이전 글   다음 글 삭제 수정 답변 글쓰기 리스트

(댓글을 남기려면 로그인이 필요합니다.)

관련 아티클 리스트
  제       목 파일 작성자 작성일 조회
이전글 23. 쿠키 실습 예제 RequestResponseCookies.asp(860 Byte(s)) 레드플러스 2002-11-07 6915
  22. 자료실 게시판 작성 프로젝트 - Red+ 2002-05-12 7144
  1. 자료실 게시판 테이블 설계 및 환경 설정 Upload.sql(2 KB) 레드플러스 2004-04-26 6002
  Upload.sql - 레드플러스 2004-10-05 5522
  /Upload/Global.asa - 레드플러스 2004-10-05 5624
  2. 입력 페이지 설계 - 레드플러스 2004-04-27 5245
  /Upload/BoardWrite.asp - 레드플러스 2004-10-05 5431
  3. 출력 페이지 설계 - 레드플러스 2004-04-27 4987
  /Upload/BoardList.asp - 레드플러스 2004-10-05 5122
  4. 세부 출력 페이지 설계 - 레드플러스 2004-04-27 5124
  /Upload/BoardView.asp - 레드플러스 2004-10-11 9403
  5. 수정 페이지 설계 - 레드플러스 2004-04-27 5096
  6. 삭제 페이지 설계 - 레드플러스 2004-04-27 5043
  7. 검색 페이지 설계 - 레드플러스 2004-04-27 5103
현재글 8. 다운로드 페이지 설계 - 레드플러스 2004-04-27 5230
  boarddown.asp : 파일 강제 다운로드 페이지 boarddown.asp(813 Byte(s)) 레드플러스 2004-04-27 8588
  9. Windows Server 2003에서 파일 업로드 용량 제한 문제 해결 방법 - 레드플러스 2004-11-01 8979
다음글 21. 파일 업로드 연습 - 관리자 2002-03-21 7317
 
손님 사용자 Anonymous (손님)
로그인 Home