使用php直接打開socket端口進(jìn)行發(fā)信的小程序
特點是使用smtp認(rèn)證，能夠更好的使用滿足一般網(wǎng)友建站需要。

整個源碼附在本文中，同樣內(nèi)容可到下列地址下載。
轉(zhuǎn)載請注明出處。

http://www.knowsky.com/download/phpsendmail.rar

/******************************************/
/*????????? Php webmail sender??????????? */
/*?????????? www.ebugs.org??????????????? */
/* Copyright 富翁 in im286.com 2005.03.07 */
/*?????????? 轉(zhuǎn)載請注明出處?????????????? */
/******************************************/

//使用前請首先按照提示進(jìn)行配置發(fā)信認(rèn)證的用戶名、密碼以及smtp服務(wù)器地址、發(fā)件人信箱等。
//注意將#替換成#，落伍(www.im286.com）負(fù)翁版權(quán)所有，可隨意使用，但保留版權(quán)信息

//例子
echo send_mail('fuweng#im286.com','發(fā)信標(biāo)題','發(fā)信內(nèi)容');

function send_mail($to, $subject = 'No subject', $body) {
??????? $loc_host = "im286";??????????? //發(fā)信計算機名，可隨意
??????? $smtp_acc = "fuweng#im286.com"; //Smtp認(rèn)證的用戶名，類似fuweng@im286.com，或者fuweng
??????? $smtp_pass="password";????????? //Smtp認(rèn)證的密碼，一般等同pop3密碼
??????? $smtp_host="smtp.im286.com";??? //SMTP服務(wù)器地址，類似 smtp.tom.com
??????? $from="fuweng#im286.com";?????? //發(fā)信人Email地址，你的發(fā)信信箱地址
??? $headers = "Content-Type: text/plain; charset=\"gb2312\"\r\nContent-Transfer-Encoding: base64";
??? $lb="\r\n";??????????????????? //linebreak

??????? $hdr = explode($lb,$headers);???? //解析后的hdr
??? if($body) {$bdy = preg_replace("/^\./","..",explode($lb,$body));}//解析后的Body

??????? $smtp = array(
??????????????? //1、EHLO，期待返回220或者250
??????????????? array("EHLO ".$loc_host.$lb,"220,250","HELO error: "),
??????????????? //2、發(fā)送Auth Login，期待返回334
??????????????? array("AUTH LOGIN".$lb,"334","AUTH error:"),
??????????????? //3、發(fā)送經(jīng)過Base64編碼的用戶名，期待返回334
??????????????? array(base64_encode($smtp_acc).$lb,"334","AUTHENTIFICATION error : "),
??????????????? //4、發(fā)送經(jīng)過Base64編碼的密碼，期待返回235
??????????????? array(base64_encode($smtp_pass).$lb,"235","AUTHENTIFICATION error : "));
??????? //5、發(fā)送Mail From，期待返回250
??????? $smtp[] = array("MAIL FROM: ".$lb,"250","MAIL FROM error: ");
??????? //6、發(fā)送Rcpt To。期待返回250
??????? $smtp[] = array("RCPT TO: ".$lb,"250","RCPT TO error: ");
??????? //7、發(fā)送DATA，期待返回354
??????? $smtp[] = array("DATA".$lb,"354","DATA error: ");
??????? //8.0、發(fā)送From
??????? $smtp[] = array("From: ".$from.$lb,"","");
??????? //8.2、發(fā)送To
??????? $smtp[] = array("To: ".$to.$lb,"","");
??????? //8.1、發(fā)送標(biāo)題
??????? $smtp[] = array("Subject: ".$subject.$lb,"","");
??????? //8.3、發(fā)送其他Header內(nèi)容
??????? foreach($hdr as $h) {$smtp[] = array($h.$lb,"","");}
??????? //8.4、發(fā)送一個空行，結(jié)束Header發(fā)送
??????? $smtp[] = array($lb,"","");
??????? //8.5、發(fā)送信件主體
??????? if($bdy) {foreach($bdy as $b) {$smtp[] = array(base64_encode($b.$lb).$lb,"","");}}
??????? //9、發(fā)送“.”表示信件結(jié)束，期待返回250
??????? $smtp[] = array(".".$lb,"250","DATA(end)error: ");
??????? //10、發(fā)送Quit，退出，期待返回221
??????? $smtp[] = array("QUIT".$lb,"221","QUIT error: ");

??????? //打開smtp服務(wù)器端口
??????? $fp = @fsockopen($smtp_host, 25);
??????? if (!$fp) echo "Error: Cannot conect to ".$smtp_host."
";
??????? while($result = @fgets($fp, 1024)){if(substr($result,3,1) == " ") { break; }}

??????? $result_str="";
??????? //發(fā)送smtp數(shù)組中的命令/數(shù)據(jù)
??????? foreach($smtp as $req){
??????????????? //發(fā)送信息
??????????????? @fputs($fp, $req[0]);
??????????????? //如果需要接收服務(wù)器返回信息，則
??????????????? if($req[1]){
??????????????????????? //接收信息
??????????????????????? while($result = @fgets($fp, 1024)){
??????????????????????????????? if(substr($result,3,1) == " ") { break; }
??????????????????????? };
??????????????????????? if (!strstr($req[1],substr($result,0,3))){
??????????????????????????????? $result_str.=$req[2].$result."
";
??????????????????????? }
??????????????? }
??????? }
??????? //關(guān)閉連接
??????? @fclose($fp);
??????? return $result_str;
}
?>?