在作者所申請(qǐng)的幾個(gè)PHP 主頁(yè)空間中，能夠提供mail功能的實(shí)在不多，總是調(diào)用完mail()函數(shù)之后就毫無(wú)下文了。但是電子郵件在網(wǎng)上生活中的作用越來(lái)越大。想一想網(wǎng)蟲(chóng)上網(wǎng)不收郵件能叫真正的網(wǎng)蟲(chóng)嗎？郵件的作用我不想再說(shuō)了，但是如果主頁(yè)空間不支持mail()發(fā)送那么怎么辦呢？我也想過(guò)通過(guò)socket來(lái)實(shí)現(xiàn)郵件發(fā)送，但無(wú)奈對(duì)用php 進(jìn)行socket編程不熟悉，再加上發(fā)送郵件要用到SMTP協(xié)議，又要讀不少的英文了，所以一直也沒(méi)有去研究過(guò)。終于有一天我發(fā)現(xiàn)了一篇文章，關(guān)于用socket編程發(fā)送郵件。我如獲至寶般將其拷貝下來(lái)，并且將其改造成了一個(gè)php 可用的類，供大家使用。原來(lái)的文章只是一個(gè)簡(jiǎn)單的例子，而且還有一些錯(cuò)誤，在我經(jīng)過(guò)多次的實(shí)驗(yàn)、改造終于將其改成了一個(gè)直接使用socket，向指定的郵箱發(fā)送郵件的類，如果大家和前面關(guān)于發(fā)送MIME的文章結(jié)合起來(lái)，就可以實(shí)現(xiàn)在不支持mail()函數(shù)的網(wǎng)站上發(fā)送郵件了。因?yàn)榘l(fā)送郵件的過(guò)程需要時(shí)間，可能與mail()的處理機(jī)制還不完全一樣，所以速度要慢一些，但是可以解決需要發(fā)送郵件功能的燃眉之急，同時(shí)你也可以學(xué)習(xí)用php 進(jìn)行socket編程。下面就將這個(gè)類的實(shí)現(xiàn)原理介紹給大家，同時(shí)向大家講解一些關(guān)于SMTP的基本知識(shí)。 

Socket編程介紹

　　向大家申明，本人不是一個(gè)TCP/IP編程專家，故在此只是講出了我的一點(diǎn)理解和體會(huì)。 

　　使用fsockopen函數(shù)打開(kāi)一個(gè)Internet連接，函數(shù)語(yǔ)法格式： 

int fsockopen(string hostname, int port, int [errno], string [errstr], int [timeout]); 

　　參數(shù)的意思我想不用講了，這里由于要使用SMTP協(xié)議，所以端口號(hào)為25。在打開(kāi)連接成功后，會(huì)返回一個(gè)socket句柄，使用它就可以象使用文件句柄一樣的。可使用的操作有fputs()，fgets()，feof()，fclose()等。 

　　很簡(jiǎn)單地介紹就到這里吧。 
SMTP的基礎(chǔ)
　　基于TCP/IP的因特網(wǎng)協(xié)議一般的命令格式都是通過(guò)請(qǐng)求/ 應(yīng)答方式實(shí)現(xiàn)的，采用的都是文本信息，所以處理起來(lái)要容易一些。SMTP是簡(jiǎn)單郵件傳輸協(xié)議的簡(jiǎn)稱，它可以實(shí)現(xiàn)客戶端向服務(wù)器發(fā)送郵件的功能。所以下面所講的命令是指客戶端向服務(wù)器發(fā)出請(qǐng)求指令，而響應(yīng)則是指服務(wù)器返回給客戶端的信息。 

　　SMTP分為命令頭和信息體兩部分。命令頭主要完成客戶端與服務(wù)器的連接，驗(yàn)證等。整個(gè)過(guò)程由多條命令組成。每個(gè)命令發(fā)到服務(wù)器后，由服務(wù)器給出響應(yīng)信息，一般為3 位數(shù)字的響應(yīng)碼和響應(yīng)文本。不同的服務(wù)器返回的響應(yīng)碼是遵守協(xié)議的，但是響應(yīng)正文本則不必。每個(gè)命令及響應(yīng)的最后都有一個(gè)回車符，這樣使用fputs()和fgets()就可以進(jìn)行命令與響應(yīng)的處理了。SMTP的命令及響應(yīng)信息都是單行的。信息體則是郵件的正文部分，最后的結(jié)束行應(yīng)以單獨(dú)的"."作為結(jié)束行。 

　　客戶端一些常用的SMTP指令為： 

HELO hostname: 與服務(wù)器打招呼并告知客戶端使用的機(jī)器名字，可以隨便填寫(xiě) 
MAIL FROM: sender_id : 告訴服務(wù)器發(fā)信人的地址 
RCPT TO: receiver_id : 告訴服務(wù)器收信人的地址 
DATA : 下面開(kāi)始傳輸信件內(nèi)容，且最后要以只含有.的特殊行結(jié)束 
RESET: 取消剛才的指令，從新開(kāi)始 
VERIFY userid: 校驗(yàn)帳號(hào)是否存在(此指令為可選指令，服務(wù)器可能不支持) 
QUIT : 退出連接，結(jié)束 
　　服務(wù)器返回的響應(yīng)信息為(格式為：響應(yīng)碼+空格+解釋)： 

220 服務(wù)就緒(在socket連接成功時(shí)，會(huì)返回此信息) 
221 正在處理 
250 請(qǐng)求郵件動(dòng)作正確，完成(HELO,MAIL FROM,RCPT TO,QUIT指令執(zhí)行成功會(huì)返回此信息) 
354 開(kāi)始發(fā)送數(shù)據(jù)，結(jié)束以 .(DATA指令執(zhí)行成功會(huì)返回此信息，客戶端應(yīng)發(fā)送信息) 
500 語(yǔ)法錯(cuò)誤，命令不能識(shí)別 
550 命令不能執(zhí)行，郵箱無(wú)效 
552 中斷處理：用戶超出文件空間 　　下面給出一個(gè)簡(jiǎn)單的命令頭(這是在打開(kāi)socket之后做的)，是我向stmp.263.net發(fā)郵件的測(cè)試結(jié)果： 

HELO limodou 
250 smtp.263.net 
MAIL FROM: chatme@263.net 
250 Ok 
RCPT TO: chatme@263.net 
250 Ok 
DATA 
354 End data with . 
To: chatme@263.net 
From: chatme@263.net 
Subject: test 
From: chatme@263.net 
test 
. 
QUIT 
250 Ok: queued as C46411C5097E0 

　　這就是一些SMTP的簡(jiǎn)單知識(shí)。相關(guān)內(nèi)容可以查閱RFC。 

RFC 821定義了收/發(fā)電子郵件的相關(guān)指令。 
RFC 822則制定了郵件？容的格式。 
RFC 2045-2048制定了多媒體郵件？容的格式， 
RFC 1113, 1422-1424則是討論如何增進(jìn)電子郵件的保密性。 
send_mail類的實(shí)現(xiàn) 
　　現(xiàn)在開(kāi)始介紹我所編寫(xiě)的發(fā)送郵件類。有了上面的預(yù)備知識(shí)了，下面就是實(shí)現(xiàn)了。 

類的成員變量 

var $lastmessage; //記錄最后返回的響應(yīng)信息 
var $lastact; //最后的動(dòng)作，字符串形式 
var $welcome; //用在HELO后面，歡迎用戶 
var $debug; //是否顯示調(diào)試信息 
var $smtp; //smtp服務(wù)器 
var $port; //smtp端口號(hào) 
var $fp; //socket句柄 

　　其中，$lastmessage和$lastact用于記錄最后一次響應(yīng)信息及執(zhí)行的命令，當(dāng)出錯(cuò)時(shí)，用戶可以使用它們。為了測(cè)試需要，我還定義了$debug變量，當(dāng)其值為true時(shí)，會(huì)在運(yùn)行過(guò)程中顯示一些執(zhí)行信息，否則無(wú)任何輸出。$fp用于保存打開(kāi)后的socket句柄。 

類的構(gòu)造 

function send_mail($smtp, $welcome="", $debug=false) 
{ 
if(empty($smtp)) die("SMTP cannt be NULL!"); 
$this-$#@62;smtp=$smtp; 
if(empty($welcome)) 
{ 
$this-$#@62;welcome=gethostbyaddr("localhost"); 
} 
else 
$this-$#@62;welcome=$welcome; 
$this-$#@62;debug=$debug; 
$this-$#@62;lastmessage=""; 
$this-$#@62;lastact=""; 
$this-$#@62;port="25"; 
} 

　　這個(gè)構(gòu)造函數(shù)主要完成一些初始值的判定及設(shè)置。$welcome用于HELO指令中，告訴服務(wù)器用戶的名字。 
　　HELO指令要求為機(jī)器名，但是不用也可以。如果用戶沒(méi)有給出$welcome，則自動(dòng)查找本地的機(jī)器名。 
顯示調(diào)試信息

1 function show_debug($message, $inout) 
2 { 
3 if ($this-$#@62;debug) 
4 { 
5 if($inout=="in") //響應(yīng)信息 
6 { 
7 $m="$#@60;$#@60;,; 
8 } 
9 else 
10 $m="$#@62;$#@62; ,; 
11 if(!ereg("\n$", $message)) 
12 $message .= "$#@60;br$#@62;"; 
13 $message=nl2br($message); 
14 echo "$#@60;font color=#999999$#@62;${m}${message}$#@60;/font$#@62;"; 
15 } 
16 } 
　　這個(gè)函數(shù)用來(lái)顯示調(diào)試信息。可以在$inout中指定是上傳的指令還是返回的響應(yīng)，如果為上傳指令，則使用"out"；如果為返回的響應(yīng)則使用"in"。 

第3行，判斷是否要輸出調(diào)試信息。 

第5行，判斷是否為響應(yīng)信息，如果是，則在第7行將信息的前面加上"$#@60;$#@60; "來(lái)區(qū)別信息；否則在第10行加上 "$#@62;$#@62; "來(lái)區(qū)別上傳指令。 

第11-12行，判斷信息串最后是否為換行符，如不是則加上HTML換行標(biāo)記。第13行將所以的換行符轉(zhuǎn)成HTML的換行標(biāo)記。 

第14行，輸出整條信息，同時(shí)將信息顏色置為灰色以示區(qū)別。 執(zhí)行一個(gè)命令 

1 function do_command($command, $code) 
2 { 
3 $this-$#@62;lastact=$command; 
4 $this-$#@62;show_debug($this-$#@62;lastact, "out"); 
5 fputs ( $this-$#@62;fp, $this-$#@62;lastact ); 
6 $this-$#@62;lastmessage = fgets ( $this-$#@62;fp, 512 ); 
7 $this-$#@62;show_debug($this-$#@62;lastmessage, "in"); 
8 if(!ereg("^$code", $this-$#@62;lastmessage)) 
9 { 
10 return false; 
11 } 
12 else 
13 return true; 
14 } 
　　在編寫(xiě)socket處理部分發(fā)現(xiàn)，一些命令的處理很相似，如HELO，MAIL FROM，RCPT TO，QUIT，DATA命令，都要求根據(jù)是否顯示調(diào)試信息將相關(guān)內(nèi)容顯示出來(lái)，同時(shí)對(duì)于返回的響應(yīng)碼，如果是期望的，則應(yīng)繼續(xù)處理，如果不是期望的，則應(yīng)中斷出理。所以為了清晰與簡(jiǎn)化，專門對(duì)這些命令的處理編寫(xiě)了一個(gè)通用處理函數(shù)。 
函數(shù)的參數(shù)中$code為期望的響應(yīng)碼，如果響應(yīng)碼與之相同則表示處理成功，否則出錯(cuò)。 

第3行，記錄最后執(zhí)行命令。 

第4行，將上傳命令顯示出來(lái)。 

第5行，則使用fputs真正向服務(wù)器傳換指令。 

第6行，從服務(wù)器接收響應(yīng)信息將放在最后響應(yīng)消息變量中。 

第7行，將響應(yīng)信息顯示出來(lái)。 

第8行，判斷響應(yīng)信息是否期待的，如果是則第13行返回成功(true)，否則在第10行返回失敗(false)。 

　　這樣，這個(gè)函數(shù)一方面完成指令及信息的發(fā)送顯示功能，別一方面對(duì)返回的響應(yīng)判斷是否成功。 
b>郵件發(fā)送處理 
　　下面是真正的秘密了，可要看仔細(xì)了。:) 
1 function send( $to,$from,$subject,$message) 
2 { 
3 //連接服務(wù)器 
4 $this-$#@62;lastact="connect"; 
5 $this-$#@62;show_debug("Connect to SMTP server : ".$this-$#@62;smtp, "out"); 
6 $this-$#@62;fp = fsockopen ( $this-$#@62;smtp, $this-$#@62;port ); 
7 if ( $this-$#@62;fp ) 
8 { 
9 set_socket_blocking( $this-$#@62;fp, true ); 
10 $this-$#@62;lastmessage=fgets($this-$#@62;fp,512); 
11 $this-$#@62;show_debug($this-$#@62;lastmessage, "in"); 
12 if (! ereg ( "^220", $this-$#@62;lastmessage ) ) 
13 { 
14 return false; 
15 } 
16 else 
17 { 
18 $this-$#@62;lastact="HELO " . $this-$#@62;welcome . "\n"; 
19 if(!$this-$#@62;do_command($this-$#@62;lastact, "250")) 
20 { 
21 fclose($this-$#@62;fp); 
22 return false; 
23 } 
24 $this-$#@62;lastact="MAIL FROM: $from" . "\n"; 
25 if(!$this-$#@62;do_command($this-$#@62;lastact, "250")) 
26 { 
27 fclose($this-$#@62;fp); 
28 return false; 
29 } 
30 $this-$#@62;lastact="RCPT TO: $to" . "\n"; 
31 if(!$this-$#@62;do_command($this-$#@62;lastact, "250")) 
32 { 
33 fclose($this-$#@62;fp); 
34 return false; 
35 } 
36 //發(fā)送正文 
37 $this-$#@62;lastact="DATA\n"; 
38 if(!$this-$#@62;do_command($this-$#@62;lastact, "354")) 
39 { 
40 fclose($this-$#@62;fp); 
41 return false; 
42 } 
43 //處理Subject頭 
44 $head="Subject: $subject\n"; 
45 if(!empty($subject) && !ereg($head, $message)) 
46 { 
47 $message = $head.$message; 
48 } 
49 //處理From頭 
50 $head="From: $from\n"; 
51 if(!empty($from) && !ereg($head, $message)) 
52 { 
53 $message = $head.$message; 
54 } 
55 //處理To頭 
56 $head="To: $to\n"; 
57 if(!empty($to) && !ereg($head, $message)) 
58 { 
59 $message = $head.$message; 
60 } < 61 //加上結(jié)束串 
62 if(!ereg("\n\.\n", $message)) 
63 $message .= "\n.\n"; 
64 $this-$#@62;show_debug($message, "out"); 
65 fputs($this-$#@62;fp, $message); 
66 
67 $this-$#@62;lastact="QUIT\n"; 
68 if(!$this-$#@62;do_command($this-$#@62;lastact, "250")) 
69 { 
70 fclose($this-$#@62;fp); 
71 return false; 
72 } 
73 } 
74 return true; 
75 } 
76 else 
77 { 
78 $this-$#@62;show_debug("Connect failed!", "in"); 
79 return false; 
80 } 
81 }
　　有些意思很清楚的我就不說(shuō)了。