Dede删除文档同时删除文章中的图片

　　Dede删除文档同时删除文章中的图片，这个功能对于做图片网站的朋友来说非常重要,特别是在删除采集回来的文章时,会产生很多无用的图片. 本程序不保证能够100%的获得Body中的图片,但在我个人使用的这段时间,没有发现问题。

?

　　首先,在"/include"目录下建立"extend.func.php"文件. 然后,将以下内容保存在"extend.func.php"文件中,一共三个函数：

?

Copy to ClipboardLiehuo.Net Codes引用的内容：[www.52php.cn]

?

//解析body数据，获得所有图片的绝对地址?

function GetPicsTruePath($body,$litpic)?

{?

$delfiles = array();//存储图片地址数据?

if(!empty($litpic))?

{?

$litpicpath = GetTruePath();?

$litpicpath .= $litpic;?

$delfiles[] = $litpicpath;//缩略图地址?

}?

preg_match_all("/src=["|'|S|s]([^ title="liehuo.net" |/|>]*){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 [url=mailto:dede_addonarticle.body]dede_addonarticle.body[/url] FROM [url=mailto:%60dede_addonarticle]`dede_addonarticle[/url]` WHERE [url=mailto:dede_addonarticle.aid]dede_addonarticle.aid[/url] = '$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,"rn{$savemsg}");?

@fclose($fp);?

}

接下来打开"/dede/inc/inc_batchup.php"文件。

?

1:在33行下方加入,也就是"$arcRow = $dsql->GetOne($arcQuery);"下方:

?

$arcBodyRow = GetArcBody($aid);

?

2:在138行下方加入,也就是"return true;"上方：

?

Copy to ClipboardLiehuo.Net Codes引用的内容：[www.52php.cn]

?

//解析Body中的资源，并删除?

$willDelFiles = GetPicsTruePath($arcBodyRow['body'],$arcRow['litpic']);?

$nowtime = time();?

$executetime = MyDate('Y-m-d H:i:s',$nowtime);//获得执行时间?

$msg = "rn文章标题：$arcRow[title]";?

WriteToDelFiles($msg);?

if(!empty($willDelFiles))?

{?

foreach($willDelFiles as $file)?

{?

if(file_exists($file) && !is_dir($file))?

{?

if(unlink($file)) $msg = "rn位置：$filern结果：删除成功！rn时间：$executetime";?

else $msg = "rn位置：$filern结果：删除失败！rn时间：$executetime";?

}?

else $msg = "rn位置：$filern结果：文件不存！rn时间：$executetime";?

WriteToDelFiles($msg);?

}//END foreach?

}?

else?

{?

$msg = "rn未在Body中解析到数据rnBody原始数据：$arcBodyRow[body]rn时间：$executetime";?

WriteToDelFiles($msg);?

}

至此,全部修改完成,删除文章时,程序会分析Body中的图片地址,然后删除.并在/data/目录下,产生日志记录文件:del_body_file.txt。

?