织梦dedecms删除文章的同时删除该文章下的图片和附件

//解析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 xmzy_addonarticle WHERE xmzy_addonarticle.aid = '$aid'";  
$row = $dsql->GetOne($query);  
if(is_array($row))  
return $row;  
else  
return false;  
} //genban.org修改于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);  
}

$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";
                }
                else $msg = " 位置：$file 结果：文件不存！ 时间：$executetime";
                WriteToDelFiles($msg);
        }
        //END foreach
} else  
{
        $msg = " 未在Body中解析到数据 Body原始数据：$arcBodyRow[body] 时间：$executetime";
        WriteToDelFiles($msg);
}