function r_file($file)
{//删除文件
$how = '';
$ok = true;
if (!file_exists($file) )
{
$how .= '不存在';
}else if (!is_writable($file))
{
$how .= '无删除权限';
$ok = false;
}else if(!@unlink($file))
{
$how.='删除出现未明错误.<BR>';
$ok =false;
}else
{
$how.='删除完成.<BR>';
}
return array($ok,"删除[$file]文件处理情况如下:<BR>$how<BR>");
}