在網(wǎng)站建設(shè)過程當(dāng)中經(jīng)常需要提供一些表格，根據(jù)用戶的選擇將用戶信息轉(zhuǎn)發(fā)至不同的e-mail中。 單獨轉(zhuǎn)發(fā)一個e-mail比較簡單，在網(wǎng)上也有許多用PERL語言編制的程序，但一次根據(jù)情況轉(zhuǎn)發(fā)至不同的e-mail則相對較難，我這段時間剛好需要，所以用PHP編寫了這個程序，使用情況良好，所以提供給大家共享。



PHP處理程序如下:





// purpose: transformming email

// author: pengwu wang

// date: Oct. 21,2003



/*用send-form.php要求的字段的說明：

form中method 用 post

namex, 用戶名

title, 顯示的標題

from, 從那兒送過來，缺省test@test.com

urlto, 是完成以后顯示的頁面, 缺省取為空，即在原網(wǎng)頁不動，有一個提示框顯示，否則轉(zhuǎn)至要求的網(wǎng)頁

cc, 密送的郵箱地址，缺省取test@test.com

sendto_name, 要替換sendto或sendto[]的名稱, sendto缺省用'sendto',sendto[]缺省用'發(fā)送至'

namex_name, 要替換namex的名稱, 缺省用namex

sendto, 要發(fā)送至單獨一個email的項

或

sendto[], 要發(fā)送至多個email的項, 對每一個checkbox,radio按鈕,其name寫sendto[]=......

email_1,

email_2,

email_3,

email_4,

......, 根據(jù)sendto[]值發(fā)向不同地的email地址值. 此處的1,2,3,4等要換成與sendto[]所選值完全相等

如：email_測試1=test1@test.com, email_測試2=test2@test.com

則sendto[]項最后可取的值應(yīng)為: 測試1,測試2

對于表單中不需要的字段應(yīng)以hidden方式發(fā)送;

namex,title,sendto,或sendto[]是必須填寫的. 當(dāng)為sendto[]時email_*值必須寫. 其它的可以不寫

除sendto[]外，其它的name不能重復(fù)，因為不好判斷其組別關(guān)系.

*/



//此6個變量先取出來是為了方便

$from=$_POST[from];

$cc=$_POST[cc];

$urlto=$_POST[urlto];

$sendto=$_POST[sendto];

$sendto_name=$_POST[sendto_name];

$namex_name=$_POST[namex_name];



$ret=false;

if(!is_array($sendto) amp;amp; !empty($sendto)) $ret=true;

if(is_array($sendto)) { //多郵件發(fā)送

reset($sendto);

while(list($k,$v)=each($sendto)) {

if(isset($k) amp;amp; isset($v)) {

$ret=true;

break;

}

}

}

if(!$ret) {

echo("





");

exit; //所給的郵件地址都為空

}



$subject .= $_POST[title]." - ".$_POST[namex];

$body = "";

$body .= $subject."
";

$body .= "填表日期 : ".date("Y年m月d日",time())."
";

$body .= "----------------------------------------
";

$body .= "
";



reset ($_POST);

while (list ($key, $val) = each ($_POST)) {

if(ereg("^email_.*",$key)) continue;

else if(strcmp($key,"title")==0) continue;

else if(strcmp($key,"cc")==0) continue;

else if(strcmp($key,"from")==0) continue;

else if(strcmp($key,"urlto")==0) continue;

else if(strcmp($key,"sendto_name")==0) continue;

else if(strcmp($key,"namex_name")==0) continue;

else if(strcmp($key,"sendto")==0 amp;amp; !is_array($key) amp; empty($val)) continue;



$body .= "

";

if(strcmp($key,"sendto")==0 amp;amp; is_array($sendto)) {

reset($sendto);

while(list($k,$v)=each($sendto)) {

if(isset($sendto_name) amp;amp; !empty($sendto_name))

$body .= "

";

else

$body .= "

";

$body .= "";

}

} else {

if(strcmp($key,"sendto")==0)

$body .= "


";

else if(strcmp($key,"namex")==0)

$body .= "

";

else

$body .= "

";

$body .= "

$sendto_name	$v	發(fā)送至	$v
$sendto_name	$val	$namex_name	$val	$key	$val

該文章在 2012/4/4 1:03:54 編輯過