作者smileray ()
看板Programming
标题[请益] 此程式哪里有问题?
时间Thu Apr 12 03:02:19 2007
※ [本文转录自 PHP 看板]
作者: smileray () 看板: PHP
标题: [请益] 此程式哪里有问题?
时间: Thu Apr 12 03:01:12 2007
想写一个 可以寄email的程式 @@
看书上改写的
-----mail_online.php-----
<html>
<head><title>PHP_MAIL_Attach</title></head>
<body>
<form method=post action=mail_online_sent.php name=mailform
Enctype="multipart/form-data">
寄件人:
<input type=text name=from><P>
受件者姓名：<input type=text name=whom><P>
受件者邮址：<input type=text name=to><P>
信件标题：<input type=text name=subject><P>
优先顺序：
<select name="Priority">
<option value="1">紧急</option>
<option value="3" selected>普通</option>
<option value="5">次要</option></select>
<P>
信件内容：<BR>
<textarea name="msg" cols="70" rows="8" maxlength="70"></textarea><P>
夹带档案：<BR>
<input type="file" name="filename"><BR>
<input type=submit value=寄信 name=submit>
</form>
</body>
</html>
-------mail_online_sent.php-----
<head>
<title>PHPMail</title>
<meta http-equiv="Content-Type" content="text/html; charset=big5">
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#33CC33" vlink="#33CC33"
alink="#33CC33">
<?php
function encode_file($filename) {
if (is_readable($filename)) {
$fd = fopen($filename, "r");
$contents = fread($fd, filesize($filename));
$encoded = my_chunk_split(base64_encode($contents));
fclose($fd);
}
return $encoded;
}
function my_chunk_split($str) {
$stmp = $str;
$len = strlen($stmp);
$out = "";
while ($len > 0) {
if ($len >= 76) {
$out = $out . substr($stmp, 0, 76) . "\r\n";
$stmp = substr($stmp, 76);
$len = $len - 76;
}
else {
$out = $out . $stmp . "\r\n";
$stmp = ""; $len = 0;
}
}
return $out;
}
echo "邮件标题: $subject , 受件人: $to<BR>\n";
echo "<B>夹带档案资讯</B><BR>\n";
echo "档案名称：".$filename_name."<BR>\n";
echo "档案大小：".$filename_size." bytes<BR>\n";
echo "档案格式：".$filename_type."<HR>\n";
echo "信件已经成功寄出！";
$contents=encode_file($filename);
mail("$to","$subject","
---==attached==-
Content-Type: text/plain; charset=\"US-ASCII\"
Content-Transfer-Encoding: 7bit
$msg
---==attached==-
Content-Type: \"$filename_type\"; name=\"$filename_name\"
Content-Disposition: attachment; filename=\"$filename_name\"
Content-Transfer-Encoding: base64
$contents
---==attached==-
",
"From: ${from}
Reply-To: ${from}
X-Mailer: PHP_MAIL_VEGA
MIME-Version: 1.0
X-Priority: ${Priority}
Content-Type: multipart/mixed; boundary=\"-==attached==-\"
Content-Transfer-Encoding: 7bit");
?>
</body>
</html>
--
烦请各位高手帮忙 orz 感激不尽啊
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.162.64.121
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.162.64.121