<%

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. 쿠키 실습 예제		레드플러스	2002-11-07	7408
	22. 자료실 게시판 작성 프로젝트	-	Red+	2002-05-12	7634
	1. 자료실 게시판 테이블 설계 및 환경 설정		레드플러스	2004-04-26	6514
	Upload.sql	-	레드플러스	2004-10-05	5998
	/Upload/Global.asa	-	레드플러스	2004-10-05	6109
	2. 입력 페이지 설계	-	레드플러스	2004-04-27	5730
	/Upload/BoardWrite.asp	-	레드플러스	2004-10-05	5911
	3. 출력 페이지 설계	-	레드플러스	2004-04-27	5473
	/Upload/BoardList.asp	-	레드플러스	2004-10-05	5594
	4. 세부 출력 페이지 설계	-	레드플러스	2004-04-27	5617
	/Upload/BoardView.asp	-	레드플러스	2004-10-11	9890
	5. 수정 페이지 설계	-	레드플러스	2004-04-27	5586
	6. 삭제 페이지 설계	-	레드플러스	2004-04-27	5514
	7. 검색 페이지 설계	-	레드플러스	2004-04-27	5592
	8. 다운로드 페이지 설계	-	레드플러스	2004-04-27	5715
	boarddown.asp : 파일 강제 다운로드 페이지		레드플러스	2004-04-27	9081
	9. Windows Server 2003에서 파일 업로드 용량 제한 문제 해결 방법	-	레드플러스	2004-11-01	9481
	21. 파일 업로드 연습	-	관리자	2002-03-21	7823