& lt？服務器端編程語言（Professional Hypertext Preprocessor的縮寫）
$ basedir = str _ replace('/clear BOM . PHP '，''，str_replace('\\ '，'/'，dirname(_ _ FILE _ _))；
$ auto = 1；
checkdir($ basedir)；
函數檢查目錄($basedir){
if ($dh = opendir($basedir)) {
while (($file = readdir($dh))！==假){
如果($文件！= '.'& amp& amp$file！= '..'){
如果(！is _ dir(＄basedir。'/'.$file)) {
$filename = $basedir。'/'.$ file
回顯“文件名:”。$basedir。'/'.$file.checkBOM($filename)。& lt' br & gt'；
}否則{
$dirname = $basedir。'/'.$ file
checkdir($ dirname)；
}
}
}
closedir($ DH)；
}
}
功能檢查BOM ($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 & amp；& ampord($ charset[2])= = 187 & amp；& amporder($ charset[3])= = 191){
if ($auto == 1) {
$rest = substr($contents，3)；
重寫($filename，$ rest)；
return ' & ltfont color = red & gt找到物料清單，自動刪除。& lt/font & gt；'；
}否則{
return ' & ltfont color = red & gt找到物料清單。& lt/font & gt；'；
}
}否則{
返回“未找到BOM”；
}
}
函數重寫($filename，$data) {
$filenum = fopen($filename，' w ')；
flock($filenum，LOCK _ EX)；
fwrite($filenum，$ data)；
fclose($ filenum)；
}
& gt
如何使用:
把代碼放到壹個文件裏放在網站的根目錄下，或者把BOM放在任何妳想去的目錄下，然後直接用URL訪問這個PHP文件！