社区首页 › 教程资源 › 织梦二次开发调用当前作者文档的标签

muban大师 发表于 2021-4-2 10:17:07

织梦二次开发调用当前作者文档的标签

下面教大家怎么自己开发一个织梦标签来调用当前作者的所有文章。
       
        首先将以下函数放到 include/extend.func.php 最下边,这个函数是用来获取静态页面的URL地址的。
       
       
               
                       
                               
                                       
function GetOneDocUrl($aid)
{
    global $dsql;
    include_once(DEDEINC."/channelunit.func.php");
    $aid = trim(ereg_replace('[^0-9,','',$aid));

    $chRow = $dsql->GetOne("Select arc.*,ch.maintable]ch.addtable]ch.issystem From `dede_arctiny` arc left join `dede_channeltype` ch on ch.id=arc.channel where arc.id='$aid' ");

    if(!is_array($chRow)) {
      return $reArr;
    }
    else {
      if(empty($chRow['maintable',)) $chRow['maintable', = 'dede_archives';
    }

    if($chRow['issystem',!=-1)
    {
      $nquery = " Select arc.*,tp.typedir,tp.topid,tp.namerule,tp.moresite,tp.siteurl]tp.sitepath
                  From `{$chRow['maintable',}` arc left join `dede_arctype` tp on tp.id=arc.typeid
                  where arc.id='$aid' ";
    }
    else
    {
      $nquery = " Select arc.*,1 as ismake,0 as money,'' as filename,tp.typedir,tp.topid,tp.namerule,tp.moresite,tp.siteurl]tp.sitepath
                  From `{$chRow['addtable',}` arc left join `dede_arctype` tp on tp.id=arc.typeid
                  where arc.aid='$aid' ";
    }

    $arcRow = $dsql->GetOne($nquery);

    $Url = GetFileUrl($aid,$arcRow['typeid',,$arcRow['senddate',,$reArr['title',,$arcRow['ismake',,$arcRow['arcrank',,$arcRow['namerule',,$arcRow['typedir',,$arcRow['money',,$arcRow['filename',,$arcRow['moresite',,$arcRow['siteurl',,$arcRow['sitepath',);
    return $Url;
}
                               
                       
               
       

然后将以下代码保存为 diary.lib.php放到include/taglib 目录下


       
               
                       
                               
CAttribute->Items,$jjmhk);
extract($ctag->CAttribute->Items);
$innertext = trim($ctag->GetInnerText());
$ctp = new DedeTagParse();
$ctp->SetNameSpace('field','[',',');
$ctp->LoadSource($innertext);
$writer = $ctag->GetAtt('writer');
if($writer=='this')
{
$writer =isset($refObj->Fields['writer',) ? $refObj->Fields['writer', : 0;
}
$query = "select a.id,a.title,a.writer,a.pubdate,a.typeid,b.aid from dede_archives a LEFT JOIN dede_addonarticle b on b.aid=a.id where a.typeid='{$typeid}' and a.writer='{$writer}' order by a.pubdate desc LIMIT 0]$row";
$dsql->SetQuery($query);
$dsql->Execute('me',$query);
while($rs= $dsql->GetArray('me'))
{
$rs['pubdate',=GetDateMK($rs['pubdate',);
$rs['arcurl',=GetOneDocUrl($rs['id',);
      $rs['title', = 0 == $titlelen?$rs['title',:cn_substr($rs['title',, $titlelen);
      
      $ctp->LoadSource($innertext);
      foreach($ctp->CTags as$tagid=>$ctag) {
            if(!empty($rs)) {
                $ctp->Assign($tagid,$rs[$ctag->GetName()]);
            }
          }
          $revalue.= $ctp->GetResult();
}
return $revalue;
}
                       
               
       



        最后再内容页的模板中调用以下标签，下边的li span 标签 自己修改删除。
       
        {dede:diary row='10' typeid='2' writer='this'}
       
        [*,()
       
        {/dede:diary}
       
        ==============================分割线============================
       
        标签说明:
       
        row= 调用条数
       
        typeid= 调用栏目ID
       
        writer=默认this 无需修改
       
        效果图：
       
       
https://www.adminbuy.cn/uploads/allimg/210402/1-210402101945533.jpg

查看完整版本: 织梦二次开发调用当前作者文档的标签