| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 717 人关注过本帖
标题:dedecms 删除文章同时删除缩率图以及文章图片
取消只看楼主 加入收藏
caojinlong
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2009-4-1
收藏
 问题点数:0 回复次数:0 
dedecms 删除文章同时删除缩率图以及文章图片
红色的是重点 我都标记出来了,我希望你耐心看完。如果不看完操作的,出问题,别怪我,因为你没有看完 谢谢
这个问题是因为我做的网站是淘宝网购物网网址 www. 碰到的, 不好意思 先做个链接 嘿嘿, 我里面大部分的文章都是采集过来的,有好多的图片,后面发现好文章的内容太短就这么把它给删除,后删除后却发现在一个很大的问题的,那就是文章的缩略图片和body中的附带图片不会被删除掉,这样搞的得空间不够用,这让人很恼火,我在网上也找了有没有直接的插件,没有找到一个真正合适,而且好多都是你抄袭我我抄袭你的,后面没办法只有自己动动手,终于被我给搞定了。 好了,废话不多说了。

直奔主题:
dedecms 删除文章同时删除缩率图以及文章图片
测试5.6版本 我用的是GBK
方法:

这里我还是把完整的代码放出来 省的大家看不懂,遭到大家的火炮攻击 呵呵
我贴代码之前 大家一定要记着一定要按照我说的走,没有按照我说的走的,出问题,别骂我,我先声明,如果按照我说的走,出问题了,你随便骂我,我不还口,不废话了 贴代码
首先,在"/include"目录下打开"extend.func.php"文件. 然后,将以下内容保存在"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 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 WriteToDelFiles($msg)//删除文章的时候会通过此函数记录日志
{
    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);
}

接下来打开"/dede/inc/inc_batchup.php"文件.
1:在33行下方加入,也就是"$arcRow = $dsql->GetOne($arcQuery);"下方:
   $arcBodyRow = GetArcBody($aid);
2:在大概102下方加入,也就是" if(@is_file($filenameh)) @unlink($filenameh);"下方:
程序代码:
//解析Body中的资源,并删除
$willDelFiles = GetPicsTruePath($arcBodyRow['body'],$arcRow['litpic']);
$nowtime = time();
$executetime = MyDate('Y-m-d H:i:s',$nowtime);//获得执行时间
$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中解析到数据\r\nBody原始数据:$arcBodyRow[body]\r\n时间:$executetime";
    WriteToDelFiles($msg);
}

至此,全部修改完成,删除文章时,程序会分析Body中的图片地址,然后删除.并在/data/目录下,产生日志记录文件:del_body_file.txt
这个文件 当你删除的时候你可以去看看。
OK,到这里已经可以搞定了。希望大家看完后,如果也成功了,支持一下吧,我打这么多字,又测试很不容易,有钱的捧个钱场,没钱的捧个人场。
搜索更多相关主题的帖子: 淘宝网 缩略图 购物网 空间 文章 
2011-03-29 09:33
快速回复:dedecms 删除文章同时删除缩率图以及文章图片
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.028000 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved