帝国论坛帝国网站管理系统交流区帝国CMS使用交流修改自DEDECMS的自动关键字获取 【本版专题贴子】  
 1/9     1 2 3 4 5 6 7 8 9 ›› ›|
主题:修改自DEDECMS的自动关键字获取 [加入收藏夹]   

sooden
用户头衔:嘉宾

精华贴   :9
发贴数   :1551
经验值   :3822
注册时间:2006-01-02
信息 搜索 好友 发送悄悄话 精益求精-帝国网站管理系统7.5正式版开源发布】   [第 1 楼]
修改自DEDECMS的自动关键字获取
看有人需要就放出来了, 文件下载在3楼,如果直接替换的话,请按照11楼将enews.php进行下修改,不然分割符就不是帝国需要的逗号而是空格了,(感谢hs999的反馈),请到24楼下载!

增加了2个文件(admin/Keyword/dede_wwwdic.csv,admin/Keyword/pub_splitword_www.php),
修改了1个文件 (admin/enews.php)

修改步骤如下:

打开 enews.php 找到 79行 //增加信息 至 //修改信息
用以下内容替换



elseif($enews=="AddNews")
{
        //修改开始
        /*******************************
        //织梦分词算法 www.dedecms.com
        //带词性标志的算法,使用方法:
        //普通分词 tryNumName,识别数量词及人名,$tryDiff 岐义处理
        //$strok = $sp->SplitRMM(string $str,bool $tryNumName,bool $tryDiff)
        //在DedeCms内使用的词典是从热门词中选出来的词典,不适用于通用的分词算法
        //本算法经过简化处理,取消了部份消岐规则
        ********************************/
        require_once(dirname(__FILE__)."../Keyword/pub_splitword_www.php");
        //获得HTML里的文本
        function SpHtml2Text($str){
          $str = preg_replace("/<sty(.*)\\/style>|<scr(.*)\\/script>|<!--(.*)-->/isU","",$str);
          $alltext = "";
          $start = 1;
          for($i=0;$i<strlen($str);$i++){
                if($start==0 && $str[$i]==">") $start = 1;
                else if($start==1){
                  if($str[$i]=="<"){ $start = 0; $alltext .= " "; }
                  else if(ord($str[$i])>31) $alltext .= $str[$i];
                }
          }
          $alltext = str_replace(" "," ",$alltext);
          $alltext = preg_replace("/&([^;&]*)(;|&)/","",$alltext);
          $alltext = preg_replace("/[ ]+/s"," ",$alltext);
          return $alltext;
        }
        //获取关键词
        function GetKeywords($title,$body){
                $keywords = "";
                $sp = new SplitWord();
                $titleindexs = explode(" ",trim($sp->GetIndexText($sp->SplitRMM($title))));
                $allindexs = explode(" ",trim($sp->GetIndexText($sp->SplitRMM(spHtml2Text($body)),200)));
                if(is_array($allindexs) && is_array($titleindexs)){
                        foreach($titleindexs as $k){       
                                if(strlen($keywords)>=50) break;
                                else $keywords .= $k.",";
                        }
                        foreach($allindexs as $k){
                                if(strlen($keywords)>=50) break;
                                else if(!in_array($k,$titleindexs)) $keywords .= $k.",";
                  }
                }
                $sp->Clear();
                unset($sp);
                $keywords = preg_replace("/#p#|#e#/","",$keywords);
                $keywords = addslashes($keywords);
                return $keywords;
         }
$key1=GetKeywords($_POST['keyboard'],$_POST['newstext']);
$key1=trim("$key1",",");
$a2=array(keyboard=>"$key1");
$news=$a2+$_POST;
        $navtheid=(int)$_POST['filepass'];
AddNews($news,$logininid,$loginin);
/** 修改结束 by sooden
//不喜欢的直接删除以上部分,恢复下面2行。
//        $navtheid=(int)$_POST['filepass'];
//AddNews($_POST,$logininid,$loginin);
*/
}






或者直接下载后解压到admin目录下,替换原来文件。


只测试了4.6,理论上3.6以上版本都适用。

批量添加关键字在这里

[该贴被修改 6 次,最后修改时间 2007-05-12 09:32:57 ]


帝国模板定制,功能开发等&nbsp;&nbsp;http://ecmsjz.cn
不在线可QQ&nbsp;&nbsp;8686588&nbsp;&nbsp;留言,上线必回。
2007-05-06 09:52:16 已设置保密 顶部 回复 引用 报告 编辑 删除

雨雪天气
用户头衔:进士

精华贴   :0
发贴数   :1111
经验值   :3619
注册时间:2006-11-19
信息 搜索 好友 发送悄悄话 免费开源-EBMA系统:更安全的MYSQL管理和备份系统】   [第 2 楼]

改改试试看 谢谢楼主了



很久不更新……

2007-05-06 09:56:02 已设置保密 顶部 回复 引用 报告 编辑 删除

sooden
用户头衔:嘉宾

精华贴   :9
发贴数   :1551
经验值   :3822
注册时间:2006-01-02
信息 搜索 好友 发送悄悄话 精益求精-帝国网站管理系统7.5正式版开源发布】   [第 3 楼]
修改的文件
修改的文件

上传以下附件:
[下载 *.rar](文件大小:188.15 KB,下载次数:412)



帝国模板定制,功能开发等&nbsp;&nbsp;http://ecmsjz.cn
不在线可QQ&nbsp;&nbsp;8686588&nbsp;&nbsp;留言,上线必回。
2007-05-06 09:58:01 已设置保密 顶部 回复 引用 报告 编辑 删除

fukai7722
用户头衔:秀才

精华贴   :0
发贴数   :173
经验值   :527
注册时间:2006-10-11
信息 搜索 好友 发送悄悄话 免费开源-EBMA系统:更安全的MYSQL管理和备份系统】   [第 4 楼]

强烈的顶.....



苹果软件 macappbox.com
2007-05-06 11:58:23 已设置保密 顶部 回复 引用 报告 编辑 删除

hs999
用户头衔:举人 *

精华贴   :0
发贴数   :232
经验值   :872
注册时间:2006-12-08
信息 搜索 好友 发送悄悄话 精益求精-帝国网站管理系统7.5正式版开源发布】   [第 5 楼]

安装后,再取消这个功能,以后有没有影响?

[该贴被修改 1 次,最后修改时间 2007-05-06 12:34:26 ]


中国广告家园网http://www.adjia.com
广告人才招聘网http://www.adzhaopin.com
欢迎友情连接!
2007-05-06 12:31:01 已设置保密 顶部 回复 引用 报告 编辑 删除

xiusha
用户头衔:进士

精华贴   :0
发贴数   :549
经验值   :1990
注册时间:2005-10-26
信息 搜索 好友 发送悄悄话 免费开源-EBMA系统:更安全的MYSQL管理和备份系统】   [第 6 楼]

最好帝国加上这个功能.




2007-05-06 13:22:08 已设置保密 顶部 回复 引用 报告 编辑 删除

sooden
用户头衔:嘉宾

精华贴   :9
发贴数   :1551
经验值   :3822
注册时间:2006-01-02
信息 搜索 好友 发送悄悄话 精益求精-帝国网站管理系统7.5正式版开源发布】   [第 7 楼]

安装后,再取消这个功能,以后有没有影响?


没有影响。



帝国模板定制,功能开发等&nbsp;&nbsp;http://ecmsjz.cn
不在线可QQ&nbsp;&nbsp;8686588&nbsp;&nbsp;留言,上线必回。
2007-05-06 13:30:07 已设置保密 顶部 回复 引用 报告 编辑 删除

fukai7722
用户头衔:秀才

精华贴   :0
发贴数   :173
经验值   :527
注册时间:2006-10-11
信息 搜索 好友 发送悄悄话 免费开源-EBMA系统:更安全的MYSQL管理和备份系统】   [第 8 楼]

强烈建议WC加上这功能



苹果软件 macappbox.com
2007-05-06 14:21:51 已设置保密 顶部 回复 引用 报告 编辑 删除

hs999
用户头衔:举人 *

精华贴   :0
发贴数   :232
经验值   :872
注册时间:2006-12-08
信息 搜索 好友 发送悄悄话 精益求精-帝国网站管理系统7.5正式版开源发布】   [第 9 楼]

有两个问题:

1、路径多了两..
require_once(dirname(__FILE__)."../Keyword/pub_splitword_www.php");

2、自动提取的多个关键字是空格

企业 市场 广告 资金 对于 投入 一个 计划 费用 有效

注:(多个请用","格开)



中国广告家园网http://www.adjia.com
广告人才招聘网http://www.adzhaopin.com
欢迎友情连接!
2007-05-06 14:47:13 已设置保密 顶部 回复 引用 报告 编辑 删除

⌒_⌒TryLife
用户头衔:嘉宾

精华贴   :2
发贴数   :3979
经验值   :9165
注册时间:2007-04-05
信息 搜索 好友 发送悄悄话 免费开源-EBMA系统:更安全的MYSQL管理和备份系统】   [第 10 楼]

收藏



PHP+
微信小程序教学 欢迎入坑

帝国CMS9年专注经验,了解帝国CMS从外衣到内裤,从挑逗到高潮!
两千人qq交流群:42085595
2007-05-06 14:55:21 已设置保密 顶部 回复 引用 报告 编辑 删除
 1/9     1 2 3 4 5 6 7 8 9 ›› ›|

快速回复
内容

表情
使用EBB代码 使用smile代码 显示签名 自动分析url 自动分析img
     【进入高级模式】   (按 Ctrl+Enter 直接提交)
    顶部  加入收藏夹
关于帝国 | 广告服务 | 联系我们 | 法律声明 | 隐私条款 | 许可协议
Powered by: EBB Version 2.2.1