WEB开发网
开发学院WEB开发PHP 全面測試email的有效性 阅读

全面測試email的有效性

 2000-12-18 16:29:48 来源:WEB开发网   
核心提示:一般我們常希望拜訪你的網站的朋友能留下Email但是很多人都會隨便打,造成管理員的困擾,以下這個class可以線上檢查Email是否是有效的Email(存不存在)<?class CEmail {var $email_regular_exPRession="^([a-z0-9_]|\-|\.)+@(([a
一般我們常希望拜訪你的網站的朋友能留下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 "無效"; 

Tags:全面 email 有效性

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接