自定义函数-DEDECMS相关文章以关键字相关的修改方法

技术教程 2026-01-09 16:53:53 浏览次

现在终于出了解决办法：

1 在 inc_Functions.php 最后?>前加上

复制代码

代码如下:

//查询指定栏目里包含相应关键字的文章，并列出//参数说明：$showImg 是否显示缩略图，0表示不显示，1表示显示// $titleLen 标题长度，0表示无限// $rowCount 输出行数，0表示无限// $typeid 栏目ID，0表示所有栏目// $keyWord 关键字，字符串function ShowKeyWordArc($showImg,$titleLen,$rowCount,$typeid,$keyWord){$dSQL = new DedeSql(false);$sql = TypeGetSunID($typeid,$dsql);

//关键字分词技术$ks = explode(" ",$keyWord);foreach($ks as $k){$k = trim($k);if ($k!="") {$kwsqlarr[] = " (xkzzz_archives.title like '%$k%')";//$kwsqlarr[] = " (xkzzz_archives.keywords like '%$k%') "; //如果需要相关到其它文章的关键字，解除此行注释}}$where = implode(' OR ',$kwsqlarr);

$sql="Select tp.Namerule,tp.typedir,xkzzz_full_search.aid,xkzzz_full_search.url,xkzzz_archives.* From xkzzz_full_search left join xkzzz_archives on xkzzz_full_search.aid=xkzzz_archives.ID left join xkzzz_arctype tp on xkzzz_archives.typeid=tp.ID where {$sql} and ((xkzzz_archives.title like '%".$keyWord."%') or $where) order by xkzzz_full_search.aid desc";$dsql->SetQuery($sql);$dsql->Execute();$ss="";$i=0;while($row=$dsql->GetObject()){$url=GetFileUrl($row->ID,$row->typeid,$row->senddate,$row->title,$row->ismake,$row->arcrank,$row->namerule,$row->typedir,$row->money);if ($showImg==0){$ss=$ss."

";if ($titleLen!=0) $ss=$ss.cn_substr($row->title,$titleLen);else $ss=$ss.$row->title;$ss=$ss."

";}else{$ss=$ss."

";

if ($row->litpic!="") $ss=$ss."";else $ss=$ss."";$ss=$ss."";if ($titleLen!=0) $ss=$ss.cn_substr($row->title,$titleLen);else $ss=$ss.$row->title;$ss=$ss."