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

网站建设 2022-07-27 08:13www.1681989.com免费网站
下面教大家怎么自己开发一个织梦标签来调用当前作者的所有文章。 将推火网以下函数放到 clude/extend.func.php 最下边,这个函数是用来获取静态页面的URL地址的。 01 function GetOneDocUrl($aid) 02 { 03 g […]



下面教大家怎么自己开发一个织梦标签来调用当前作者的所有文章。

 

将推火网以下函数放到 clude/extend.func.php 最下边,这个函数是用来获取静态页面的URL地址的。
 

01 function GetOneDocUrl($aid)
02 {
03     global $dsql;
04     clude_once(DEDEINC."/channelunit.func.php");
05     $aid = trim(ereg_replace('[^0-9]','',$aid));
06   
07     $chRow = $dsql->GetOne("Select arc.,ch.matable,ch.addtable,ch.issystem From `dede_arcty` arc left jo `dede_channeltype` ch on ch.id=arc.channel where arc.id='$aid' ");
08   
09     if(!is_array($chRow)) {
10         return $reArr;
11     }
12     else {
13         if(empty($chRow['matable'])) $chRow['matable'] = 'dede_archives';
14     }
15   
16     if($chRow['issystem']!=-1)
17     {
18         $nquery = " Select arc.,tp.typedir,tp.id,tp.namerule,tp.moresite,tp.siteurl,tp.sitepath
19                     From `{$chRow['matable']}` arc left jo `dede_arctype` tp on tp.id=arc.typeid
20                     where arc.id='$aid' ";
21     }
22     else
23     {
24         $nquery = " Select arc.,1 as ismake,0 as money,'' as filename,tp.typedir,tp.id,tp.namerule,tp.moresite,tp.siteurl,tp.sitepath
25                     From `{$chRow['addtable']}` arc left jo `dede_arctype` tp on tp.id=arc.typeid
26                     where arc.aid='$aid' ";
27     }
28   
29     $arcRow = $dsql->GetOne($nquery);
30   
31 $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']);
32     return $Url;
33 }


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

01 <?php
02 /
03   调用当前作者文档
04   @version        $Id: diary.lib.php  1:37 2015年6月2日 by 织梦58
05   @lk           http://.dede58.
06  /
07 if(!defed('DEDEINC')){
08     exit("Request Error!");
09 }
10 function lib_diary(&$ctag,&$refObj)
11 {
12 global $dsql,$envs;
13 $jjmhk="row|1,typeid|0";
14 FillAttsDefault($ctag->CAttribute->Items,$jjmhk);
15 extract($ctag->CAttribute->Items);
16 $nertext = trim($ctag->GetInnerText());
17 $ctp = new DedeTagParse();
18 $ctp->SetNameSpace('field','[',']');
19 $ctp->LoadSource($nertext);
20 $writer = $ctag->GetAtt('writer');
21 if($writer=='this')
22 {
23 $writer =  isset($refObj->Fields['writer']) ? $refObj->Fields['writer'] : 0;
24 }
25 $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";
26 $dsql->SetQuery($query);
27 $dsql->Execute('me',$query);
28 while($rs= $dsql->GetArray('me'))
29   {
30 $rs['pubdate']=GetDateMK($rs['pubdate']);
31 $rs['arcurl']=GetOneDocUrl($rs['id']);
32       $rs['title'] = 0 == $titlelen?$rs['title']:_substr($rs['title'], $titlelen);
33        
34       $ctp->LoadSource($nertext);
35       foreach($ctp->CTags as$tagid=>$ctag) {
36             if(!empty($rs[strtolower($ctag->GetName())])) {
37                 $ctp->Assign($tagid,$rs[$ctag->GetName()]);
38             }
39           }
40           $revalue.= $ctp->GetResult();
41 }
42 return $revalue;
43 }

 

再内容页的模板中调用推火网以下标签,下边的li span 标签 自己修改删除。

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

<li><a href="[field:arcurl/]">[field:title/]</a><span class="p-l5">([field:pubdate/])</span></li>

{/dede:diary}

==============================分割线============================

标签说明: 

row= 调用条数  

typeid= 调用栏目ID

writer=  默认  this 无需修改

 

 

 


Copyright © 2016-2025 www.1681989.com 推火网 版权所有 Power by