解决php收邮件乱码问题

function test($strHead){
if(ereg("=\?.{0,}\?[Bb]\?",$strHead)){
$arrHead=split("=\?.{0,}\?[Bb]\?",$strHead);
while(list($key,$value)=each($arrHead)){
if(ereg("\?=",$value)){
$arrTemp=split("\?=",$value);
$arrTemp[0]=base64_decode($arrTemp[0]);
$arrHead[$key]=join("",$arrTemp);
}
}
$strHead=join("",$arrHead);
}
return $strHead;
}

function is_utf8($string) {

// From http://w3.org/International/questions/qa-forms-utf-8.html return preg_match('%^(?:
[\x09\x0A\x0D\x20-\x7E]            # ASCII
| [\xC2-\xDF][\x80-\xBF]             # non-overlong 2-byte
|  \xE0[\xA0-\xBF][\x80-\xBF]        # excluding overlongs
| [\xE1-\xEC\xEE\xEF][\x80-\xBF]{2}  # straight 3-byte
|  \xED[\x80-\x9F][\x80-\xBF]        # excluding surrogates
|  \xF0[\x90-\xBF][\x80-\xBF]{2}     # planes 1-3
| [\xF1-\xF3][\x80-\xBF]{3}          # planes 4-15
|  \xF4[\x80-\x8F][\x80-\xBF]{2}     # plane 16
)*$%xs', $string);

}

for($i=$tot;$i>0;$i--)
{
$head=$obj->getHeaders($i);  // Get Header Info Return Array Of Headers **Array Keys are (subject,to,toOth,toNameOth,from,fromName)
//echo "Subjects :: ".$head['subject']."<br>";
$s=test($head['subject']);
if(is_utf8($s)=='1'){
echo iconv('UTF-8','gb2312',$s) ;
}else{
echo $s;
}
echo "<br>";
echo "base :: ".iconv("GB2312", "utf-8", base64_decode('5rWL6K+V'))."<br>";
echo "TO :: ".$head['to']."<br>";
echo "To Other :: ".$head['toOth']."<br>";
echo "ToName Other :: ".$head['toNameOth']."<br>";
echo "From :: ".$head['from']."<br>";
echo "FromName :: ".$head['fromName']."<br>";
echo "<br><br>";
echo "<br>*******************************************************************************************<BR>";
echo $obj->getBody($i);  // Get Body Of Mail number Return String Get Mail id in interger

$str=$obj->GetAttach($i,"./"); // Get attached File from Mail Return name of file in comma separated string  args. (mailid, Path to store file)
$ar=explode(",",$str);
foreach($ar as $key=>$value)
echo ($value=="")?"":"Atteched File :: ".$value."<br>";
echo "<br>------------------------------------------------------------------------------------------<BR>";

//$obj->deleteMails($i); // Delete Mail from Mail box
}

imap_append : 附加字符串到指定的邮箱中。

imap_base64 : 解 base64 编码。

imap_body : 读信的内文。

imap_check : 返回邮箱信息。

imap_close : 关闭 imap 链接。

imap_createmailbox : 建立新的信箱。

imap_delete : 标记欲删除邮件。

imap_deletemailbox : 删除既有信箱。

imap_expunge : 删除已标记的邮件。

imap_fetchbody : 从信件内文取出指定部分。

imap_fetchstructure : 获取某信件的结构信息。

imap_header : 获取某信件的标头信息。
imap_headers : 获取全部信件的标头信息。

imap_listmailbox : 获取邮箱列示。

imap_listsubscribed : 获取订阅邮箱列示。

imap_mail_copy : 复制指定信件到它处邮箱。

imap_mail_move : 移动指定信件到它处邮箱。
imap_num_msg : 取得信件数。

imap_num_recent : 取得新进信件数。

imap_open : 打开 imap 链接。

imap_ping : 检查 imap 是否连接。

imap_renamemailbox : 更改邮箱名字。

imap_reopen : 重开 imap 链接。

imap_subscribe : 订阅邮箱。

imap_undelete : 取消删除邮件标记。

imap_unsubscribe : 取消订阅邮箱。

imap_qprint : 将 qp 编码转成八位。

imap_8bit : 将八位转成 qp 编码。

imap_binary : 将八位转成 base64 编码。

imap_scanmailbox : 寻找信件有无特定字符串。

imap_mailboxmsginfo : 取得目前邮箱的信息。

imap_rfc822_write_address : 电子邮件位址标准化。

imap_rfc822_parse_adrlist : 解析电子邮件位址。

imap_setflag_full : 配置信件标志。

imap_clearflag_full : 清除信件标志。

imap_sort : 将信件标头排序。

imap_fetchheader : 取得原始标头。

imap_uid : 取得信件 uid。

imap_getmailboxes : 取得全部信件详细信息。

imap_getsubscribed : 列出所有订阅邮箱。

imap_msgno : 列出 uid 的连续信件。

imap_search : 搜寻指定标准的信件。

imap_last_error : 最后的错误信息。

imap_errors : 所有的错误信息。

imap_alerts : 所有的警告信息。

imap_status : 目前的状态信息。