织梦CMS增加相关文章栏目的新解决方案

　　为了提高用户体验性，我们需要在文章内容页加上相关文章栏目，但是织梦CMS在这一方面做得不够好。论坛里的好多朋友是利用TAG做好相关文章栏目的，但我这里还有另外的一种解决方案。

　　我的应用解决办法：

　　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.”