dede 56删除文章 同时 删除图片

dedecms 删除文章同时删除缩率图以及文章图片
测试5.6版本 我用的是GBK
方法：

这里我还是把完整的代码放出来 省的大家看不懂，遭到大家的火炮攻击 呵呵
我贴代码之前 大家一定要记着一定要按照我说的走，没有按照我说的走的，出问题，别骂我，我先声明，如果按照我说的走，出问题了，你随便骂我，我不还口，不废话了 贴代码
首先,在"/include"目录下打开"extend.func.php"文件. 然后,将以下内容保存在"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 #@__addonarticle.body FROM #@__addonarticle WHERE #@__addonarticle.aid ='$aid'";
 $row = $dsql->GetOne($query);
 if(is_array($row)) return $row;
 else return false;
}

//写入日志文件
function WriteToDelFiles($msg)//删除文章的时候会通过此函数记录日志
{
 if(empty($msg)) $savemsg="未获得消息";
 else $savemsg = $msg;
 $errorFile = dirname(__FILE__).'/../data/del_body_file.txt';//删除记录文件
 $fp = @fopen($errorFile, 'a');
 @fwrite($fp,"\r\n{$savemsg}");
 @fclose($fp);
}
//以上是后加入的内容，用于删除相关附件图片

接下来打开"/dede/inc/inc_batchup.php"文件.
1:在33行下方加入,也就是"$arcRow = $dsql->GetOne($arcQuery);"下方:

$arcBodyRow = GetArcBody($aid);

2:在大概102下方加入,也就是" if(@is_file($filenameh)) @unlink($filenameh);"下方:
//解析Body中的资源，并删除
$willDelFiles = GetPicsTruePath($arcBodyRow['body'],$arcRow['litpic']);
$nowtime = time();
$executetime = MyDate('Y-m-d H:i:s',$nowtime);//获得执行时间
$msg = "\r\n文章标题：$arcRow[title]";
WriteToDelFiles($msg);
if(!empty($willDelFiles)){
    foreach($willDelFiles as $file)    {
        if(file_exists($file) && !is_dir($file))
        {
        if(unlink($file)) $msg = "\r\n位置：$file\r\n结果：删除成功！\r\n时间：$executetime";
        else $msg = "\r\n位置：$file\r\n结果：删除失败！\r\n时间：$executetime";
        }
        else $msg = "\r\n位置：$file\r\n结果：文件不存！\r\n时间：$executetime";
        WriteToDelFiles($msg);
    }//END foreach
} else {
    $msg = "\r\n未在Body中解析到数据\r\nBody原始数据：$arcBodyRow[body]\r\n时间：$executetime";
    WriteToDelFiles($msg);
}