<%
file = Request ("filename")
'파일 이름
Response.ContentType = "application/unknown"
'ContentType 를 선언합니다.
Response.AddHeader "Content-Disposition","attachment; filename=" & file
'헤더값이 첨부파일을 선언합니다.
Set objStream = Server.CreateObject("ADODB.Stream")
'Stream 을 이용합니다.
objStream.Open
objStream.Type = 1
objStream.LoadFromFile Server.MapPath("..\upfile\trans\")&"\"& file
'절대경로
download = objStream.Read
Response.BinaryWrite download
Set objstream = nothing
'초기화
%>
출처 : http://www.taeyo.net/
반응형
'lang > asp' 카테고리의 다른 글
ASP Dictionary Object (0) | 2008.10.19 |
---|---|
ASP 함수목록 (0) | 2008.10.19 |
ASP 자주쓰는 함수 모음 (0) | 2007.05.12 |
ASP 에서 UTF-8 처리 (0) | 2007.04.04 |
FCKeditor 2.4.1 Build 14797 & asp 적용 (2) | 2007.04.03 |