织梦DedeCMS通过Tag标签获取相关文章

织梦的相关文章是根据tag和文章关键词来的，不过效果不是特别的好，获取文章的数量是比较少的。对织梦系统自带的相关文章标签感兴趣的朋友，可以去看likearticle|织梦相关文章标签一文。

今天给大家分享的是只根据文章的Tag标签来调用相关文章的自定义标签，在手动填写Tag标签的情况下，效果还是非常不错的。先说一下如何给织梦系统增加自定义标签，只需要把自定义标签文件上传到\include\taglib目录即可。下面是根据Tag标签获取相关文章的自定义dede:arctag标签代码：

<?php if(!defined(‘DEDEINC’))exit(‘Request Error!’);
functionlib_arctag(&$ctag,&$refObj)
{
global$dsql;
$ar=”row|10″;
FillAttsDefault($ctag->CAttribute->Items);
extract($ctag->CAttribute->Items);
$innertext=$ctag->GetInnerText();
$tcp=newDedeTagParse();
$tcp->SetNameSpace(“field”,”[“,”]”);
$tcp->LoadSource($innertext);
$aid=$refObj->Fields[‘id’];
$revalue=”;
if($aid){
$ids=array();
$tag=array();
$dsql->Execute(“f”,”select tag from dede_taglist where aid = ‘$aid'”);
while($re=$dsql->GetArray(“f”)){
$tag[] =$re[‘tag’];
}
if($tag){
foreach($tagas$tk){
$dsql->Execute(“f1″,”select aid from dede_taglist where tag = ‘$tk'”);
while($re1=$dsql->GetArray(“f1”)){
$ids[] =$re1[‘aid’];
}
}
}
if($ids){
$ids =array_unique($ids);
$sqa=”(“.join(“,”,$ids).”)”;
$query= “SELECT se.*,tp.typedir,tp.typename,tp.isdefault,tp.defaultname,tp.namerule,tp.namerule2,tp.ispart,tp.moresite,tp.siteurl,tp.sitepath
FROM `dede_archives` se LEFT JOIN `dede_arctype` tp ON se.typeid=tp.id WHERE se.id in$sqalimit$row”;
$dsql->Execute(“f2”,$query);
while($row1=$dsql->GetArray(“f2″)){
$row1[‘arcurl’] = GetFileUrl($row1[‘id’],$row1[‘typeid’],$row1[‘senddate’],$row1[‘title’],
$row1[‘ismake’],
$row1[‘arcrank’],$row1[‘namerule’],$row1[‘typedir’],$row1[‘money’],
$row1[‘filename’],$row1[‘moresite’],$row1[‘siteurl’],$row1[‘sitepath’]);
$row1[‘title’] = cn_substr($row1[‘title’],10);
foreach($tcp->CTagsas$tid=>$tt){
$tcp->Assign($tid,$row1[$tt->GetName()]);
}
$revalue.=$tcp->GetResult();
}
}
}
return$revalue;
}

复制以上的代码，使用Dreamweaver等专业软件保存为arctag.lib.php文件，注意和你使用的织梦DedeCMS系统编码一致。dede:arctag标签在织梦模板中的用法如下：

{dede:arctag id=10}
<ahref=”[field:arcurl/]”>[field:title/]</a>
{/dede:arctag}

你可以根据自己的需要，对标签进行自我拓展。