DEDECMS默認情況下刪除文章，附件中的圖片是不會刪除的,本文就實現在刪除文章同時也刪除附件和圖片！dedecms5.7SP1親測可用。
打開include/extend.func.php文件，在最后添加以下代碼：
//解析body數據，獲得所有圖片的絕對地址
function GetPicsTruePath($body,$litpic)
{
$delfiles = array();//存儲圖片地址數據
if(!empty($litpic))
{
$litpicpath = GetTruePath();
$litpicpath .= $litpic;
$delfiles[] = $litpicpath;//縮略圖地址
}
preg_match_all("/src=[/"|'|/S|/s]([^ |//|>]*){0,}(([^>]*)/.(gif|jpg|png))/isU",$body,$tmpdata);
$picspath = array_unique($tmpdata[2]);//body中所有圖片的地址
foreach($picspath as $tmppath)
{
$path = GetTruePath();//獲得絕對路徑
$picpath = preg_replace("/[a-zA-z]+:////[^ |//|/s]*/",'',$tmppath);//去掉網址部分
$path .=$picpath;
$delfiles[] = $path;//保存處理后的數據
}
return $delfiles;
}
//獲得文章Body數據
function GetArcBody($aid)
{
global $dsql;
$query = "SELECT js_addonarticle.body FROM dede_addonarticle WHERE dede_addonarticle.aid = '$aid'";
$row = $dsql->GetOne($query);
if(is_array($row))
return $row;
else
return false;
} //mobantianxia.cn修改于2010.01.28
//寫入日志文件
function WriteToDelFiles($msg)//刪除文章的時候會通過此函數記錄日志
{
if(empty($msg)) $savemsg="未獲得消息";
else $savemsg = $msg;
$errorFile = dirname(__FILE__).'/../data/del_body_file.txt';//刪除記錄文件
$fp = @fopen($errorFile, 'a');
@fwrite($fp," {$savemsg}");
@fclose($fp);
}
打開dede/inc/inc_batchup.php文件，找到：
$arcRow = $dsql->GetOne($arcQuery);
在下邊添加：
$arcBodyRow = GetArcBody($aid);
找到：
return TRUE;
在這句話上邊添加：
//解析Body中的資源，并刪除
$willDelFiles = GetPicsTruePath($arcBodyRow['body'],$arcRow['litpic']);
$nowtime = time();
$executetime = MyDate('Y-m-d H:i:s',$nowtime);//獲得執行時間
$msg = " 文章標題：$arcRow[title]";
WriteToDelFiles($msg);
if(!empty($willDelFiles))
{
foreach($willDelFiles as $file)
{
if(file_exists($file) && !is_dir($file))
{
if(unlink($file)) $msg = " 位置：$file 結果：刪除成功！ 時間：$executetime";
else $msg = " 位置：$file 結果：刪除失??！ 時間：$executetime";
} //mobantianxia.cn修改于2010.01.28
else $msg = " 位置：$file 結果：文件不存！ 時間：$executetime";
WriteToDelFiles($msg);
}//END foreach
}
else
{
$msg = " 未在Body中解析到數據 Body原始數據：$arcBodyRow[body] 時間：$executetime";
WriteToDelFiles($msg);
}
到此功能實現就結束了，在dedecms5.7SP1上測試通過。
