关键字自动获取帝国cms - 安全、强大、稳定、灵活

帝国论坛 → 帝国网站管理系统交流区 → 帝国CMS使用交流 → 关键字自动获取

【本版专题贴子】

1/2 1 2 ›› ›|

jashow
用户头衔：举人

精华贴   ：0
发贴数   ：220
经验值   ：1193
注册时间：2007-05-20

信息

搜索

好友

发送悄悄话

【精益求精－帝国网站管理系统7.5正式版开源发布】 [第 1 楼]

关键字自动获取

原帖地址：http://bbs.phome.net/showthread-13-25182-0.html

修改自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行 //增加信息至 //修改信息
用以下内容替换

由于ECMS 4.7 enews.php 文件文件有变动，现在不是替换79行，应该是替换87至93行，用以下内容替换

//增加信息
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);
*/

}
//修改信息

或者直接使用我附件中的文件进行替换，替换前注意备份！

注：经测试，第一次发布会自动获取，已有信息修改时无法获取

上传以下附件：
[下载 *.rar](文件大小：191.44 KB,下载次数：97)

www.colorfulstudy.cn