织梦调用当前文章tag标签对应的文章列表方法

{dede:tag row='30' sort='new' getall='0'}<div class="hot mt1"><dl class="tbox light"><dt class='light'><strong>[field:tag /]</strong></dt><dd class='light'><ul class="c1 ico2">[field:tag runphp=yes]global $dsql,$aid;$i = 1;$taga = @me;$arow = $dsql->GetOne("Select * From `dede_tagindex` where tag like '$taga'");$tid = $arow['id'];if($tid!=''){$tagsql = "Select aid From `dede_taglist` where tid = $tid And arcrank > -1 group by aid order by aid desc";$dsql->SetQuery($tagsql);$dsql->Execute('t');$result = '';while($arow = $dsql->GetArray('t')){$ids[] = $arow['aid'];}}if(count($ids) > 0){$idsStr = join(',', $ids);  $query = "Select arc.*,tp.typedir,tp.typename,tp.corank,tp.isdefault,tp.defaultname,tp.namerule,  tp.namerule2,tp.ispart,tp.moresite,tp.siteurl,tp.sitepath  from `dede_archives` arc left join `dede_arctype` tp on arc.typeid=tp.id  where arc.arcrank>-1 and arc.id in($idsStr) And arc.id<>$aid order by arc.id desc";}$dsql->SetQuery($query);$dsql->Execute('t');$result = '';$totalRow = $dsql->GetTotalRow();while($row = $dsql->GetArray('t')){$arcurl = GetOneArchive($row['id']);$result .= "<li><a href=/"{$arcurl['arcurl']}/">{$row['title']}</a></li>";}if($result=='') $result = "<p style='color:#f00;'>　该TAG标签没有相关文章</p>";@me = $result;[/field:tag]</ul></dd></dl></div>{/dede:tag}