织梦调用作者文章

一、在include文件夹extend.func.php添加如下代码，把dede_改成自己对应的

//调用作者在某栏目的文章列表
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;
}

二、在include\taglib\新建一个文件 diary.lib.php，加上下面代码

<?php
/**
 * 调用当前作者文档
        
 */
if(!defined('DEDEINC')){
    exit("Request Error!");
}
function lib_diary(&$ctag,&$refObj)
{
global $dsql,$envs;
$jjmhk="row|1,typeid|0";
FillAttsDefault($ctag->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[strtolower($ctag->GetName())])) {
                $ctp->Assign($tagid,$rs[$ctag->GetName()]);
            }
          }
          $revalue.= $ctp->GetResult();
}
return $revalue;
}

三、调用
typeid=‘1’ 调用要分开调用才生效，一定要用{dede:diary ，不要用arclist

{dede:diary typeid='1' infolen='100' orderby='rand' pagesize='4'  infolen='100' }
<span><a target="_blank" href="[field:arcurl /]">[field:title /]</a></span>
{/dede:diary} 
{dede:diary typeid='2' infolen='100' orderby='rand' pagesize='4'  infolen='100' }
<span><a target="_blank" href="[field:arcurl /]">[field:title /]</a></span>
{/dede:diary} 
{dede:diary typeid='3' infolen='100' orderby='rand' pagesize='4'  infolen='100' }
<span><a target="_blank" href="[field:arcurl /]">[field:title /]</a></span>
{/dede:diary}