代码改进了不少，网上虽然有很多类似的，但是都是有点小毛病的，这个经过测试，准确无误，完全是按照tag进行相关tag的相关文章匹配，如果没有相关文章的话，则会显示“无相关文章”的提示，对于用户以及自己都是一种非常负责的小细节！废话不多说，看下面：

第一步：在includecommon.inc.php文件的最后，插入以下函数代码
 
function ShowTagLikeArc_by_id($titleLen,$rowCount,$typeid,$aid){
$dsql = new DedeSql(false);
if ($typeid!=”0″) $sql = TypeGetSunID($typeid,$dsql);
else $sql =” 1=1 “; 

//找到所有的tag id
$query=”Select tid from dede_taglist   where aid=$aid”;
$dsql->SetQuery($query);
$dsql->Execute();
while($row=$dsql->GetObject()){
$kwsqlarr[] = ” (tl.tid=’”.$row->tid.”‘) “;
}
$where = implode(‘ OR ‘,$kwsqlarr); 
if (trim($where)==”") $where=” 1 “;

$sql=”Select DISTINCT tp.namerule,tp.typedir,dede_archives.* From dede_taglist   tl left join dede_archives on tl.aid=dede_archives.ID   left join dede_arctype tp on dede_archives.typeid=tp.ID where {$sql} and ( $where) and   dede_archives.ID<>$aid order by dede_archives.litpic desc,dede_archives.click 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);                             
$ss=$ss.”

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

• ”;       




• $i++;




• if (($rowCount!=0)&&($i>=$rowCount)) return $ss;




• } 




• if ($ss==”") $ss=”暂无相关文章”;




• return $ss;




• }

第二步：在文章内容页模板（通常是article_article.htm）里，加入调用此函数的标签：例如： {dede:field name=’id’ function=’ShowTagLikeArc_by_id(20,10,0,@me)’ /} 
这个标签的意思就是：从所有栏目里，查找本篇文章的tag相关文章，一共找10条，标题显示最长为20个字
又如： {dede:field name=’id’ function=’ShowTagLikeArc_by_id(0,0,2,@me)’ /} 
这个标签的意思就是：从ID为2栏目及其所有子栏目里，查找本篇文章的tag相关文章，不限制文章数量，标题显示不限字数

附注：
1   生成出来的相关文章HTML形如：

• C文标题




• D文标题




• 如果你的模板有样式方面的要求，可自行调整代码里的

• 部分
  2   目前得到的相关文章，是按有缩略图且点击率高的拍列靠前，如需有自己的排序要求，请修改代码里的order by dede_archives.litpic desc,dede_archives.click desc部分