//解析body數(shù)據(jù)，獲得所有圖片的絕對地址

function GetPicsTruePath($body,$litpic)

{

$delfiles = array();//存儲圖片地址數(shù)據(jù)

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);//去掉網(wǎng)址部分

$path .=$picpath;

$delfiles[] = $path;//保存處理后的數(shù)據(jù)

}

return $delfiles;

}

//獲得文章Body數(shù)據(jù)

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)//刪除文章的時候會通過此函數(shù)記錄日志

{

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);

}

"$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);//獲得執(zhí)行時間

$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結(jié)果：刪除成功！\r\n時間：$executetime";

else $msg = "\r\n位置：$file\r\n結(jié)果：刪除失敗！\r\n時間：$executetime";

}

else $msg = "\r\n位置：$file\r\n結(jié)果：文件不存！\r\n時間：$executetime";

WriteToDelFiles($msg);

}//END foreach

}

else

{

$msg = "\r\n未在Body中解析到數(shù)據(jù)\r\nBody原始數(shù)據(jù)：$arcBodyRow[body]\r\n時間：$executetime";

WriteToDelFiles($msg);

}