解决UTF-8 BOM问题的php程序源代码

2008/11/30 15:10:57    发布:walf_man

<?php
$basedir    = "modules/cart/"; //修改此行為需要檢測的目錄，點表示當前目錄 
$auto        = 1; //是否自動移除發現的BOM信息。1為是，0為否。 

//以下不用改&#21160; 

if ($dh = opendir($basedir))
{
    while (($file = readdir($dh)) !== false)
    {
        if ($file != '.' && $file != '..' && !is_dir($basedir . "/" . $file))
            echo "filename: $file " . checkbom("$basedir/$file") . "<br>";
    }
    closedir($dh);
}

function checkbom ($filename) { 
    global $auto; 
    $contents        = file_get_contents($filename); 
    $charset[1]    = substr($contents, 0, 1); 
    $charset[2]    = substr($contents, 1, 1); 
    $charset[3]    = substr($contents, 2, 1); 
    if (ord($charset[1]) == 239 && ord($charset[2]) == 187 && ord($charset[3]) == 191)
    {
        if ($auto == 1)
        {
            $rest    =    substr($contents, 3);
            rewrite ($filename, $rest);
            return ("BOM found, automatically removed.");
        }
        else
        {
            return ("BOM found.");
        }
    }
    else return ("BOM Not Found.");
}

function rewrite ($filename, $data)
{
    $filenum    = fopen($filename, "w");
    flock($filenum, LOCK_EX);
    fwrite($filenum, $data);
    fclose($filenum);
}
?>
来源URL：http://www.phpx.com/happy/viewthread.php?tid=139220

发表评论:

即刻认识你所在地区的8万帅哥美女
免费注册,简单容易!匿名电邮,既隐秘又安
全!注意:绝不含有或容许任何色情成份!
chinesefriendfinder.com

[评论最长字数:1000,查看结果请刷新]

◎请在这里发表您的看法，发言请遵守国家有关法律、法规，尊重网上道德，承担一切因您的行为而直接或间接引起的法律责任。