channelunit.func.php,织梦dedecms调用当前作者所发布的文章列表（可指定栏目）

前言

其实这个问题和之前发布的《织梦dedecms调用某个作者在某个栏目发布的文章列表》基本功能也一样。但是之前时用 dede:sql 来调用实现的。发现这个功能比较常见和使用。岛主又整理了一个自定义标签的版本。使用起来更加方便。

开发方法

大家都知道，织梦所有的调用标签的文件都保存在 /include/taglib 中。以  .lib.php 后缀命名。这次新开发一个标签文件，命名为：wlist.lib.php

具体代码内容如下：

/**

* 调用当前作者文档

* @version $Id: wlist.lib.php 1:37 2017年8月6日 by dededao.com $

* @link http://www.dededao.com

*/

if(!defined('DEDEINC')){

exit("Request Error!");

}

function lib_wlist(&$ctag,&$refObj)

{

global $dsql,$envs;

$dededao="row|1,typeid|0";

FillAttsDefault($ctag->CAttribute->Items,$dededao);

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;

}

附注：在以上代码中用到  GetOneDocUrl()函数。这个函数是根据id调用文章静态地址的函数。也需要自定义一下。

打开  include/extend.func.php ，在其最下方加入以下代码：

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;

}

这样整个的自定义调用标签 wlist 就写完了。接下来就可以在 内容页模板中直接写调用代码了，调用代码如下：

{dede:wlist row='10' typeid='2' writer='this'}

[field:title/] ([field:pubdate/])

{/dede:wlist}

完成。

DedeCMS二次开发QQ群

QQ群：644631549【请点击我加群】   如果您有任何织梦问题，请把问题发到群里，岛主将免费为您写解决教程！

用心认真写教程不易，请小打赏岛主一下，多少是心意，解决问题是重点

【打赏说明】 如果您认为在本站中看的内容质量不错、或阅读后有所收获、或解决您遇到的实际问题，那不妨小金额的赞助一下岛主，让岛主有动力继续写出更多高质量的教程和心得。以帮助更多的人。[查看打赏记录]