function validate_email($email){
$exp="^[a-z'0-9] ([._-][a-z'0-9] )*@([a-z0-9] ([._-][ a-z0-9] )) $";
if(eregi($exp,$email)){ //先用正規表示式驗證email格式的有效性
if(checkdnsrr(array_pop(explode("@",$email)),"MX")){//再用checkdnsrr驗證email的網域部分的有效性
return true;
}else{
return false;
}
}else{
return false;
}
}
注意：checkdnsrr函數在win主機上是無效的!下面是國外某程式設計師提出的一種解決辦法，另外寫了個函數代替checkdnsrr函數：
function myCheckDNSRR($hostName, $recType=''){
if(!emptyempty($hostName)){
if( $recType=='' ) $recType="MX";
exec("nslookup -type=$recType $hostName", $result);
foreach($result as $line){
if(eregi("^$hostName",$line)){
return true;
}
}
return false;
}
return false;
}
