所有方面測試email的有效果性

一般我們常希望拜訪你的網站的朋友能留下Email  
但是很多人都會隨便打,造成管理員的困擾,  
以下這個class可以線上檢查Email是否是有效的Email(存不存在)  

<?  
class CEmail {  
var $email_regular_expression="^([a-z0-9_]|\-|\.)+@(([a-z0-9_]|\-)+\.)+[a-z]{2,4}$";  
var $timeout=0;  
var $localhost="";  
var $localuser="";  

Function GetLine($connection)  
{  
for($line="";;)  
{  
if(feof($connection))  
return(0);  
$line.=fgets($connection,100);  
$length=strlen($line);  
if($length>=2  
&& substr($line,$length-2,2)=="rn")  
return(substr($line,0,$length-2));  
}  
}  

Function PutLine($connection,$line)  
{  
return(fputs($connection,"$linern"));  
}  

Function VerifyRule($email)  
{  
return(eregi($this->email_regular_expression,$email)!=0);  
}  

Function ValidateEmailHost($email,$hosts=0)  
{  
if(!$this->VerifyRule($email))  
return(0);  
$user=strtok($email,"@");  
$domain=strtok("");  
if(GetMXRR($domain,&$hosts,&$weights))  
{  
$mxhosts=array();  
for($host=0;$host<count($hosts);$host++)  
$mxhosts[$weights[$host]]=$hosts[$host];  
KSort($mxhosts);  
for(Reset($mxhosts),$host=0;$host<count($mxhosts);Next($mxhosts),$host++)  
$hosts[$host]=$mxhosts[Key($mxhosts)];  
}  
else  
{  
$hosts=array();  
if(strcmp(@gethostbyname($domain),$domain)!=0)  
$hosts[]=$domain;  
}  
return(count($hosts)!=0);  
}  

Function VerifyResultLines($connection,$code)  
{  
while(($line=$this->GetLine($connection)))  
{  
if(!strcmp(strtok($line," "),$code))  
return(1);  
if(strcmp(strtok($line,"-"),$code))  
return(0);  
}  
return(-1);  
}  

Function VerifyOnline($email)  
{  
if(!$this->ValidateEmailHost($email,&$hosts))  
return(0);  
if(!strcmp($localhost=$this->localhost,"")  
&& !strcmp($localhost=getenv("SERVER_NAME"),"")  
&& !strcmp($localhost=getenv("HOST"),""))  
$localhost="localhost";  
if(!strcmp($localuser=$this->localuser,"")  
&& !strcmp($localuser=getenv("USERNAME"),"")  
&& !strcmp($localuser=getenv("USER"),""))  
$localuser="root";  
for($host=0;$host<count($hosts);$host++)  
{  
if(($connection=($this->timeout ? fsockopen($hosts[$host],25,&$errno,&$error,$this->timeout) : fsockopen($hosts[$host],25))))  
{  
if($this->VerifyResultLines($connection,"220")>0  
&& $this->PutLine($connection,"HELO $localhost")  
&& $this->VerifyResultLines($connection,"250")>0  
&& $this->PutLine($connection,"MAIL FROM: <$localuser@$localhost>")  
&& $this->VerifyResultLines($connection,"250")>0  
&& $this->PutLine($connection,"RCPT TO: <$email>")  
&& ($result=$this->VerifyResultLines($connection,"250"))>=0)  
{  
fclose($connection);  
return($result);  
}  
fclose($connection);  
}  
}  
return(-1);  
}  

function Verify($email,$type=0) {  
    if($type==0) return $this->VerifyRule($email) ;  
    else     return $this->VerifyOnline($email) ;  

}  

};      
      
      
?>  


用法:  
$m=new CEmail;  
//僅檢查語法  
if($m->Verify("jerry@mail.jerry.com.tw",0)) echo "有效";  
else echo "無效";  

//線上檢查是否真的有該Email  
if($m->Verify("jerry@mail.jerry.com.tw",1)) echo "有效";  
else echo "無效";  

……