<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=big5">
<title>E-mail</title>
</head>
<body>
<?
// 顯示寄信結果 ===============================================================
if ( isset($_POST['mailto']) && strlen($_POST['mailto']) ) {
// register_globals = on 時，以下幾行可以省略
$mailfrom = $_POST['mailfrom'];
$mailto = $_POST['mailto'];
$method = $_POST['method'];
$subject = $_POST['subject'];
$content = $_POST['content'];
switch ($method) {
case "1": // 方式一 ========================================
$flag = mail($mailto, $subject."(1)", $content);
if ( $flag ) echo "寄送方式一，成功！<br><br>";
else echo "寄送方式一，失敗！<br><br>";
break;
case "2": // 方式二 ========================================
$header = "From: " . $mailfrom . "\nReply-To: " . $mailfrom . "\n";
$flag = mail($mailto, $subject."(2)", $content, $header);
if ( $flag ) echo "寄送方式二，成功！<br><br>";
else echo "寄送方式二，失敗！<br><br>";
break;
case "3": // 方式三 ========================================
$header = "From: " . $mailfrom . "\n";
$header .= "Content-Type: text/plain; charset=big-5\n";
$header .= "Content-Transfer-Encoding: 8bit";
$flag = mail($mailto, $subject."(3)", $content, $header);
if ( $flag ) echo "寄送方式三，成功！<br><br>";
else echo "寄送方式三，失敗！<br><br>";
break;
case "4": // 方式四 ========================================
$header = "From: " . $mailfrom . "\n";
$header .= "Reply-To: " . $mailfrom . "\n";
$header .= "MIME-version: 1.0\n";
$header .= "Content-Type: multipart/alternative;";
$header .= " boundary=\"Message-Boundary\"\n\n";
$msg_body = "This is a multi-part message in MIME format.\n\n";
$msg_body .= "--Message-Boundary\n";
$msg_body .= "Content-Type: text/plain;\n";
$msg_body .= " charset=\"big5\"\n";
$msg_body .= "Content-Transfer-Encoding: 8bit\n\n";
$msg_body .= $content . "\n\n";
$msg_body .= "--Message-Boundary\n";
$msg_body .= "Content-type: text/html;\n";
$msg_body .= " charset=\"big5\"\n";
$msg_body .= "Content-Transfer-Encoding: 8bit\n\n";
$msg_body .= "<html>";
$msg_body .= "<head>";
$msg_body .= "<title>測試</title>";
$msg_body .= "<meta http-equiv='Content-Type' content='text/html; charset=big5'>";
$msg_body .= "</head>";
$msg_body .= "<body bgcolor='#E0E0E0'>";
$msg_body .= $content;
$msg_body .= "</body>";
$msg_body .= "</html>\n\n";
$msg_body .= "--Message-Boundary--\n";
$flag = mail($mailto, $subject."(4)", $msg_body, $header);
if ( $flag ) echo "寄送方式四，成功！<br><br>";
else echo "寄送方式四，失敗！<br><br>";
}?>
<a href="<?echo $_SERVER['PHP_SELF'];?>">返回</a>
<a href="JavaScript:close();">關閉</a>
<?
}
// 顯示寫信介面 ===============================================================
else {?>
<form name="mail" action="<?echo $_SERVER['PHP_SELF'];?>" method=post onsubmit="return toCheck();">
<table>
<tr>
<td>
寄件人：</td>
<td>
<input type=text name="mailfrom" value="chensh@ks.edu.tw" readonly></td></tr>
<tr>
<td>
收件人：</td>
<td>
<input type=text name="mailto" value=""></td></tr>
<tr>
<td>
主 旨：</td>
<td>
<input type=text name="subject" value="PHP 研習郵件範例" readonly></td></tr>
<tr>
<td>
內 文：</td>
<td>
<textarea name="content" rows=4 cols=40 readonly>為了避免不必要的困擾，除了「收件人」與「寄送方式」之外，我都設為「readonly」，您無法對它們進行編輯。</textarea></td></tr>
<tr>
<td>
寄送方式：</td>
<td>
<input type=radio name="method" value="1" checked>方式一
<input type=radio name="method" value="2">方式二
<input type=radio name="method" value="3">方式三
<input type=radio name="method" value="4">方式四</td></tr>
<tr>
<td colspan=2 align=center>
<br><br>
<input type=submit name="go" value="寄出">
<input type=reset name="cancel" value="重寫"></td></tr>
</table>
</form>
<script language="JavaScript">
function toCheck() {
if ( document.mail.mailfrom.value == "" ) {
alert("請填寫「寄件人」的信箱！");
document.mail.mailfrom.focus();
return false;
}
if ( document.mail.mailto.value == "" ) {
alert("請填寫「收件人」的信箱！");
document.mail.mailto.focus();
return false;
}
if ( document.mail.subject.value == "" ) {
alert("請填寫信件主旨！");
document.mail.subject.focus();
return false;
}
if ( document.mail.content.value == "" ) {
alert("請填寫信件內文！");
document.mail.content.focus();
return false;
}
return true;
}
</script>
<?
}?>
</body>
</html>