| |
write.asp
<% session("pic") = request("r1") & "_b.jpg" %>
<html>
<head>
<title>폼메일 보내기 Step 2</title>
</head>
<script language="javascript">
function sendit()
{
if (document.form1.sender.value==""){
alert("자신의 이름을 적어주세요");
return;
}
if (document.form1.sender_email.value==""){
alert("자신의 E-mail을 적어주세요");
return;
}
if (document.form1.receiver.value==""){
alert("받으실 분의 이름은 반드시 적어주세요");
return;
}
if (document.form1.receiver_email.value=="") {
alert("받으실 분의 E-mail을 반드시 기입하셔야 합니다.");
return;
}
if (document.form1.content.value==""){
alert("메시지는 안 적으셨네요... 적어주세요");
return;
}
document.form1.submit();
}
</script>
<body bgcolor="#FFFFFF">
<p align="center"><b><font color="#004080">이제 메일보내기에 필요한
정보들을 입력해주세요~~</font></b></p>
<form method="POST" action="send4.asp" name="form1">
<table border="0" width="400" cellpadding="2" align=center>
<tr height="30">
<td bgcolor="slategray" align="center" width="150">
<font color=white face="돋움" size="2"><b>보낸 이 (이름)</b></font></td>
<td width="250"><input type="text" name="sender" size="20"></td>
</tr>
<tr height="30">
<td bgcolor="slategray" align="center">
<font color=white face="돋움" size="2"><b>보낸 이 E-mail</b></font></td>
<td><input type="text" name="sender_email" size="20"></td>
</tr>
<tr height="30">
<td bgcolor="slategray" align="center">
<font color=white face="돋움" size="2"><b>받을 이 (이름)</b></font></td>
<td><input type="text" name="receiver" size="20"></td>
</tr>
<tr height="30">
<td bgcolor="slategray" align="center">
<font color=white face="돋움" size="2"><b>받을 이 E-mail</b></font></td>
<td><input type="text" name="receiver_email" size="20"></td>
</tr>
<tr height="30">
<td bgcolor="slategray" align="center">
<font color=white face="돋움" size="2"><b>메일 제목</b></font></td>
<td><input type="text" name="title" size="20"></td>
</tr>
</table>
<table border="0" width="500" cellspacing="3" cellpadding="2" align=center>
<tr height="35">
<td bgcolor="#8090d1" align=center>
<font face="돋움" size="2" color=white><b>전달할 글내용</b></font></td>
</tr>
<tr>
<td align=center><textarea rows="9" name="content" cols="60"></textarea></td>
</tr>
</table>
<p align=center><input type="button" value=" OK~ Next Step " OnClick="sendit();"
style="width:150; height:25;border:1 solid gray" id=button1 name=button1></p>
</p>
</form>
</body>
</html>
send4.asp 소스
<%
Option Explicit
Dim sender, sender_email, receiver, receiver_email, title, content
sender = request("sender")
receiver = request("receiver")
sender_email = request("sender_email")
receiver_email = request("receiver_email")
title = request("title")
content = request("content")
content = replace(content,chr(13)&chr(10),"<br>")
Dim myMail
set myMail = server.createobject("CDONTS.NewMail")
myMail.from = sender_email
myMail.to = receiver_email
myMail.subject = title
Dim html
html = " <html> "
html = html & "<head>"
html = html & "<title></title>"
html = html & "</head>"
html = html & "<body bgcolor=white>"
html = html & content
html = html & "</body></html> "
myMail.BodyFormat = 0
myMail.MailFormat = 0
myMail.body = html
myMail.send
set myMail = nothing
%>
|