织梦在发布文章的时候，难免需要一些图片等等让文章更丰富，但是在删除的时候也有了一定的复杂度。这次就分享一个很实用的功能，删除织梦文章的同时删掉该文章下的图片与附件等文件，有效的节省了后期慢慢排除无用图片和附件的时间还实时节省了一些不必要的存储空间。

实现方法如下： 

1.打开/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 xmzy_addonarticle WHERE xmzy_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);  
}

2.打开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);
}

到此就结束了，删除了文章会连带当前文章的图片和附件一气删除。