파일
첨부시 bodyformat 속성과 mailformat 속성을 html 형식으로 지정해야
합니다.
attachfile
파일 메소드 인자 중 인코딩 방식을 base64 방식으로 지정해야 합니다.
<%
if attach_count = 1
then '첨부파일이 있을
경우
.attachfile strfile,, cdoencodingbase64
'파일 첨부
if html <> 1 then '파일
첨부시 bodyformat 속성과 mailformat 속성을 html
형식으로 지정해야 함.
bodyformat = cdobodyformathtml
mailformat = cdomailformathtml
end if
end if%>
sendmail_ok.asp가
있는 디렉토리 내에 upfiles 이란 폴더를 하나 만들어 두어야 합니다.
fromaddr = trim(uploadform("fromaddr"))
'모든 폼의 request
된 값을 받음.
toaddr = trim(uploadform("toaddr"))
subject = uploadform("subject")
html = uploadform("html")
if html = "on" then 'html
사용
html = 1
else
html = 0
end if
body = uploadform("body")
attach_file = uploadform("file")
attach_file = trim(attach_file)
if (attach_file = "")
then '첨부파일 확인
attach_count = 0
else
attach_count = 1
end if
if attach_count = 1
then '첨부파일 처리
filename = mid(attach_file, instrrev(attach_file,
"\") + 1) '파일이름만
뽑아냄
strfile = server.mappath(".")&
"\upfiles\" '저장할
파일의 경로 지정
strfile = strfile & filename
size=uploadform("file").size
'첨부 파일의 size를 구함
if formatnumber(size/1024)
> 5120 then '첨부
파일의 size가 5mb 이상일때
<%
response.end
else '첨부파일 저장
uploadform("file").saveas
strfile
end if
end if
set uploadform = nothing '업로드
객체 소멸
set objmail = server.createobject("cdonts.newmail")
'newmail 객체 생성
with objmail
. from = fromaddr '보내는
사람 메일 주소 지정
.to = toaddr '받는
사람 메일 주소 지정
.subject = subject '제목
.body = body '내용
if html = 1 then 'html로
전송할 때
.bodyformat = cdobodyformathtml
.mailformat = cdomailformathtml
end if
if attach_count = 1
then '첨부파일이 있을
경우
.attachfile strfile,,cdoencodingbase64
'파일 첨부
if html <> 1
then '파일 첨부시 bodyformat
속성과 mailformat 속성을 html 형식으로 지정해야 함
.bodyformat = cdobodyformathtml
.mailformat = cdomailformathtml
end if
end if
.send '메일 보내기
end with
set objmail = nothing 'newmail
객체 소멸
if attach_count = 1 then
set objfso = server.createobject("scripting.filesystemobject")
'파일 시스템 객체 생성
if objfso.fileexists(strfile) then '지정한
파일이 있을 때
objfso.deletefile(strfile) '파일
삭제
end if
set objfso = nothing '객체
소멸
end if
%>
instrrev
함수를 사용하였기 때문에 전체 경로에서 가장 뒤에 나오는 역슬래쉬(\)의 위치를 반환하고
있는 것입니다.
이
위치를 이용하여 mid 함수에서 역슬래쉬 다음부터 끝까지의 문자열을 가져오게 되어 이것이
바로 파일명이 되는 것입니다.
그리고,
mappath method를 사용하여 서버에 저장할 파일의 경로를 만듭니다.
if formatnumber(size/1024) > 5120 then
%> <script language=javascript>
<!--
alert("첨부파일은 5mb를 넘을수 없습니다.");
history.back();
//--> </script>
이
부분은 formatnumber 함수를 이용하여 첨부 파일의 크기가 5mb 이상일 때는
경고창을 보여주는 부분입니다.
*
formatnumber - 함수
formatnumber
함수는 숫자로 형식화된 값을 반환합니다.
예를 들면,
num = 100.25
result = formatnumber(num/10, 2) '10.03을 반환
위의 예를 보면 알 수 있듯이 두번째 인자를 2로 지정하면 소수점 두자리까지 반환, 3으로
지정하면 세자리까지 반환합니다.
with objmail
.from = fromaddr
.to = toaddr
.subject = subject
.body = body
.send
end with
with 문을 사용해서 메일은 전송하는 부분입니다.
with 문을 사용하면 개체의 이름(여기선 objmail)을 다시 부여하지 않고도 지정된
개체에서 일련의 문을 실행할 수 있습니다.
예를 들어, 단일 개체의 여러 다른 속성을 변경하려면 with 제어 구조 내에 속성 할당문을
둡니다. (위의 경우처럼)
이렇게 하면 각 개체마다 속성 지정을 통해 참조하는 대신 개체를 한 번만 참조하면 됩니다.
if attach_count = 1 then
set objfso = server.createobject("scripting.filesystemobject")
if objfso.fileexists(strfile) then
objfso.deletefile(strfile)
end if
set objfso = nothing
end if
서버로 올려진 파일을 삭제하기 위해 파일 시스템 객체를 생성해서 파일이 존재하면 파일을
삭제하는 부분입니다.
전체흐름도