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;
}
