<%

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	7388
	22. 자료실 게시판 작성 프로젝트	-	Red+	2002-05-12	7610
	1. 자료실 게시판 테이블 설계 및 환경 설정		레드플러스	2004-04-26	6489
	Upload.sql	-	레드플러스	2004-10-05	5976
	/Upload/Global.asa	-	레드플러스	2004-10-05	6085
	2. 입력 페이지 설계	-	레드플러스	2004-04-27	5707
	/Upload/BoardWrite.asp	-	레드플러스	2004-10-05	5892
	3. 출력 페이지 설계	-	레드플러스	2004-04-27	5449
	/Upload/BoardList.asp	-	레드플러스	2004-10-05	5572
	4. 세부 출력 페이지 설계	-	레드플러스	2004-04-27	5589
	/Upload/BoardView.asp	-	레드플러스	2004-10-11	9860
	5. 수정 페이지 설계	-	레드플러스	2004-04-27	5557
	6. 삭제 페이지 설계	-	레드플러스	2004-04-27	5489
	7. 검색 페이지 설계	-	레드플러스	2004-04-27	5568
	8. 다운로드 페이지 설계	-	레드플러스	2004-04-27	5691
	boarddown.asp : 파일 강제 다운로드 페이지		레드플러스	2004-04-27	9052
	9. Windows Server 2003에서 파일 업로드 용량 제한 문제 해결 방법	-	레드플러스	2004-11-01	9456
	21. 파일 업로드 연습	-	관리자	2002-03-21	7802