dedecms自动调用相关文章的方法

 第一步：在 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[] = " (dede_archives.title like '%$k%') ";
//$kwsqlarr[] = " (dede_archives.keywords like '%$k%') "; //如果需要相关到其它文章的关键字，解除此行注释
}
}
$where = implode(' OR ',$kwsqlarr);
$sql="Select tp.namerule,tp.typedir,dede_full_search.aid,dede_full_search.url,dede_archives.* From dede_full_search left join dede_archives on dede_full_search.aid=dede_archives.ID left join dede_arctype tp on dede_archives.typeid=tp.ID where {$sql} and ((dede_archives.title like '%".$keyWord."%') or $where) order by dede_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."<LI><a href='".$url."' target=_blank>";
if ($titleLen!=0) $ss=$ss.cn_substr($row->title,$titleLen);
else $ss=$ss.$row->title;
$ss=$ss."</A></LI>";
}else{