织梦调用当前文章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}