<?phpfunction GetPicsTruePath($body,$litpic) //解析body數(shù)據(jù)，獲得所有圖片的絕對地址{$delfiles = array();//存儲圖片地址數(shù)據(jù)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);//去掉網(wǎng)址部分$path .=$picpath;$delfiles[] = $path;//保存處理后的數(shù)據(jù)}return $delfiles;}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);}//獲得文章Body數(shù)據(jù)function GetArcBody($aid){global $dsql;$query = "SELECT dede_addonarticle.body FROM dede_addonarticle WHERE dede_addonarticle.aid = '$aid'";$row = $dsql->GetOne($query);if(is_array($row)) return $row;else return false;}function litimgurls($imgid=0){global $lit_imglist;$dsql = new DedeSql(false);//獲取附加表$row = $dsql->GetOne("SELECT c.addtable FROM dede_archives AS a LEFT JOIN dede_channeltype AS c ON a.channel=c.id where a.id='$imgid'");$addtable = trim($row['addtable']);//獲取圖片附加表imgurls字段內(nèi)容進行處理$row = $dsql->GetOne("Select imgurls From `$addtable` where aid='$imgid'");//調(diào)用inc_channel_unit.php中ChannelUnit類$ChannelUnit = new ChannelUnit(2,$imgid);//調(diào)用ChannelUnit類中GetlitImgLinks方法處理縮略圖$lit_imglist = $ChannelUnit->GetlitImgLinks($row['imgurls']);//返回結果return $lit_imglist;}?>

<?phpfunction DelArc($aid,$type='ON',$onlyfile=false){global $dsql,$cfg_cookie_encode,$cfg_multi_site,$cfg_medias_dir;global $cuserLogin,$cfg_upload_switch,$cfg_delete,$cfg_basedir;global $admin_catalogs, $cfg_admin_channel;if($cfg_delete == 'N') $type = 'OK';if(empty($aid)) return ;$aid = ereg_replace("[^0-9]", '', $aid);$arctitle = $arcurl = '';//查詢表信息$query = "Select ch.maintable,ch.addtable,ch.nid,ch.issystem From `dede_arctiny` arcleft join `dede_arctype` tp on tp.id=arc.typeidleft join `dede_channeltype` ch on ch.id=arc.channel where arc.id='$aid' ";$row = $dsql->GetOne($query);$nid = $row['nid'];$maintable = (trim($row['maintable'])=='' ? 'dede_archives' : trim($row['maintable']));$addtable = trim($row['addtable']);$issystem = $row['issystem'];//查詢檔案信息if($issystem==-1){$arcQuery = "Select arc.*,tp.* from `$addtable` arc left join `dede_arctype` tp on arc.typeid=tp.id where arc.aid='$aid' ";}else{$arcQuery = "Select arc.*,tp.*,arc.id as aid from `$maintable` arc left join `dede_arctype` tp on arc.typeid=tp.id where arc.id='$aid' ";}$arcRow = $dsql->GetOne($arcQuery);$arcBodyRow = GetArcBody($aid);//檢測權限if(!TestPurview('a_Del,sys_ArcBatch')){if(TestPurview('a_AccDel')){if( !in_array($arcRow['typeid'], $admin_catalogs) && (count($admin_catalogs) != 0 || $cfg_admin_channel != 'all') ){return false;}}else if(TestPurview('a_MyDel')){if($arcRow['mid'] != $cuserLogin->getUserID()){return false;}}else{return false;}}//$issystem==-1 是單表模型，不使用回收站if($issystem == -1) $type = 'OK';if(!is_array($arcRow)) return false;/** 刪除到回收站 **/if($cfg_delete == 'Y' && $type == 'ON'){$dsql->ExecuteNoneQuery("Update `$maintable` set arcrank='-2' where id='$aid' ");$dsql->ExecuteNoneQuery("Update `dede_arctiny` set `arcrank` = '-2' where id = '$aid'; ");}else{//刪除數(shù)據(jù)庫記錄if(!$onlyfile){//刪除相關附件if($cfg_upload_switch == 'Y'){$dsql->Execute("me", "SELECT * FROM `dede_uploads` WHERE arcid = '$aid'");while($row = $dsql->GetArray('me')){$addfile = $row['url'];$aid = $row['aid'];$dsql->ExecuteNoneQuery("Delete From `dede_uploads` where aid = '$aid' ");$upfile = $cfg_basedir.$addfile;if(@file_exists($upfile)) @unlink($upfile);}}$dsql->ExecuteNoneQuery("Delete From `dede_arctiny` where id='$aid'");if($addtable != ''){$dsql->ExecuteNoneQuery("Delete From `$addtable` where aid='$aid' ");}if($issystem != -1){$dsql->ExecuteNoneQuery("Delete From `dede_archives` where id='$aid' ");}$dsql->ExecuteNoneQuery("Delete From `dede_feedback` where aid='$aid' ");$dsql->ExecuteNoneQuery("Delete From `dede_member_stow` where aid='$aid' ");$dsql->ExecuteNoneQuery("Delete From `dede_taglist` where aid='$aid' ");$dsql->ExecuteNoneQuery("Delete From `dede_erradd` where aid='$aid' ");}//刪除文本數(shù)據(jù)$filenameh = DEDEDATA."/textdata/".(ceil($aid/5000))."/{$aid}-".substr(md5($cfg_cookie_encode),0,16).".txt";if(@is_file($filenameh)) @unlink($filenameh);}if(empty($arcRow['money'])) $arcRow['money'] = 0;if(empty($arcRow['ismake'])) $arcRow['ismake'] = 1;if(empty($arcRow['arcrank'])) $arcRow['arcrank'] = 0;if(empty($arcRow['filename'])) $arcRow['filename'] = '';//刪除HTMLif($arcRow['ismake']==-1 || $arcRow['arcrank']!=0 || $arcRow['typeid']==0 || $arcRow['money']>0){return true;}//強制轉換非多站點模式，以便統(tǒng)一方式獲得實際HTML文件$GLOBALS['cfg_multi_site'] = 'N';$arcurl = GetFileUrl($arcRow['aid'],$arcRow['typeid'],$arcRow['senddate'],$arcRow['title'],$arcRow['ismake'],$arcRow['arcrank'],$arcRow['namerule'],$arcRow['typedir'],$arcRow['money'],$arcRow['filename']);if(!ereg("/?", $arcurl)){$htmlfile = GetTruePath().str_replace($GLOBALS['cfg_basehost'],'',$arcurl);if(file_exists($htmlfile) && !is_dir($htmlfile)){@unlink($htmlfile);$arcurls = explode(".", $htmlfile);$sname = $arcurls[count($arcurls)-1];$fname = ereg_replace("(/.$sname)$", "", $htmlfile);for($i=2; $i<=100; $i++){$htmlfile = $fname."_{$i}.".$sname;if( @file_exists($htmlfile) ) @unlink($htmlfile);else break;}}}//解析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結果：刪除成功！/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中解析到數(shù)據(jù)/r/nBody原始數(shù)據(jù)：$arcBodyRow[body]/r/n時間：$executetime";WriteToDelFiles($msg);}return true;}//獲取真實路徑function GetTruePath($siterefer='', $sitepath=''){$truepath = $GLOBALS['cfg_basedir'];return $truepath;}?>