帝国cms跨多表调用相关信息插件说明

帝国CMS默认调用相关信息的标签为[otherlink]1,'',10,32,0,0,0[/otherlink]，系统设置里面也可以选择调用相关的条件。但有个缺陷是不能跨表调用，而且如果调用信息没有就显示空白，不利于优化。

这个是本站的跨多表调用相关信息的效果，可以看到调用了新闻表的同时，也调用模板数据表的内容。
插件使用方法
以下代码复制粘贴进系统e\class\userfun.php文件中
//跨表调用相关链接
//返回相关链接操作类型
function u_OtherLinkQuery($classid,$line,$enews,$doing){
    global $empire,$public_r,$class_r,$class_zr,$navinfor,$dbtbpre,$eyh_r,$etable_r,$class_tr;
    if($enews==1)//按表
    {
        if(strstr($classid,','))//多表
        {
            $tbr=explode(',',$classid);
            $duo=1;
        }
        else
        {
            $tbname=$classid;
            $duo=0;
        }
    }
    elseif($enews==2)//按栏目
    {
        if($classid=='selfinfo')//当前栏目
        {
            $classid=$navinfor['classid'];
        }
        $tbname=$class_r[$classid]['tbname'];
        if($class_r[$classid][islast])
        {
            $and="classid='$classid'";
        }
        else
        {
            $and=ReturnClass($class_r[$classid][sonclass]);
        }
    }
    elseif($enews==3)//按标题分类
    {
        $tbname=$class_tr[$classid]['tbname'];
        $and="ttid='$classid'";
    }
    else//默认
    {
        $tbname=$class_r[$navinfor[classid]]['tbname'];
    }
    //关键字
    $keys='';
    if(!empty($enews))
    {
        $repadd='';
        $keyr=explode(',',$navinfor['keyboard']);
        $count=count($keyr);
        for($i=0;$i<$count;$i++)
        {
            if($i==0)
            {
                $or='';
            }
            else
            {
                $or=' or ';
            }
            $repadd.=$or."[!--f--!] like '%".$keyr[$i]."%'";
        }
        //搜索范围
        if($public_r['newslink']==1)
        {
            $keys='('.str_replace('[!--f--!]','keyboard',$repadd).')';
        }
        elseif($public_r['newslink']==2)
        {
            $keys='('.str_replace('[!--f--!]','keyboard',$repadd).' or '.str_replace('[!--f--!]','title',$repadd).')';
        }
        else
        {
            $keys='('.str_replace('[!--f--!]','title',$repadd).')';
        }
    }
    else
    {
        $keys='id in ('.$navinfor['keyid'].')';
    }
    //当前信息
    if($tbname==$class_r[$navinfor[classid]][tbname])
    {
        $and.=empty($and)?"id<>'$navinfor[id]'":" and id<>'$navinfor[id]'";
    }
    //图片信息
    if($doing)
    {
        $and.=empty($and)?"ispic=1":" and ispic=1";
    }
    if($and)
    {
        $and.=' and ';
    }
    if(empty($line))
    {
        $line=$class_r[$navinfor[classid]]['link_num'];
    }
    //优化
    $yhvar='otherlink';
    $yhid=$etable_r[$tbname][yhid];
    $yhadd='';
    if($yhid)
    {
        $yhadd=ReturnYhSql($yhid,$yhvar,1);
    }
    if($duo==0)
    {
        $query="select * from {$dbtbpre}ecms_".$tbname." where ".$yhadd.$and.$keys." order by newstime desc limit $line";
    }
    else
    {
        $nowtb=$class_r[$navinfor['classid']]['tbname'];
        $nowid=$navinfor['id'];
        $query='';
        foreach($tbr as $n => $tbname){
            $t=$n+1;
            if($tbname==$nowtb){
                $q.$n="select title,titleurl,newstime,classid,titlepic from ".$dbtbpre."ecms_".$tbname." where ".$yhadd.$and.$keys." and (id>$nowid or id<$nowid)  order by newstime desc limit ".$line;
            }else{
                $q.$n="select title,titleurl,newstime,classid,titlepic from ".$dbtbpre."ecms_".$tbname." where ".$yhadd.$and.$keys."  order by newstime desc limit ".$line;
            }
            $query.='select * from ('.$q.$n.') t'.$t.' union all ';
        }
        $query=substr($query,0,-10).' order by newstime desc limit '.$line;
    }
    $sql=$empire->query1($query);
    if(!$sql)
    {
        echo"SQL Error: ".ReRepSqlTbpre($query);
    }
    return $sql;
}
//相关链接标签
function u_GetOtherLinkInfo($tempid,$classid='',$line=0,$strlen=60,$have_class=0,$enews=0,$doing=0){
    global $empire,$navinfor,$public_r;
    if(empty($navinfor['keyboard'])||(empty($enews)&&!$navinfor['keyid']))
    {
        return '';
    }
    $sql=u_OtherLinkQuery($classid,$line,$enews,$doing);
    if(!$sql)
    {return "";}
    //取得模板
    $tr=sys_ReturnBqTemp($tempid);
    if(empty($tr['tempid']))
    {return "";}
    $listtemp=str_replace('[!--news.url--]',$public_r[newsurl],$tr[temptext]);
    $subnews=$tr[subnews];
    $listvar=str_replace('[!--news.url--]',$public_r[newsurl],$tr[listvar]);
    $rownum=$tr[rownum];
    $formatdate=$tr[showdate];
    $docode=$tr[docode];
    //替换变量
    $listtemp=ReplaceEcmsinfoClassname($listtemp,$enews,$classid);
    if(empty($rownum))
    {$rownum=1;}
    //字段
    $ret_r=ReturnReplaceListF($tr[modid]);
    //列表
    $list_exp="[!--empirenews.listtemp--]";
    $list_r=explode($list_exp,$listtemp);
    $listtext=$list_r[1];
    $no=1;
    $changerow=1;
    while($r=$empire->fetch($sql))
    {
        $r[oldtitle]=$r[title];
        //替换列表变量
        $repvar=ReplaceListVars($no,$listvar,$subnews,$strlen,$formatdate,$url,$have_class,$r,$ret_r,$docode);
        $listtext=str_replace("<!--list.var".$changerow."-->",$repvar,$listtext);
        $changerow+=1;
        //超过行数
        if($changerow>$rownum)
        {
            $changerow=1;
            $string.=$listtext;
            $listtext=$list_r[1];
        }
        $no++;
    }
    //多余数据
    if($changerow<=$rownum&&$listtext<>$list_r[1])
    {
        $string.=$listtext;
    }
    $string=$list_r[0].$string.$list_r[2];
    echo $string;
}
后台-模板-标签-导入附件中的mylink.bq文件
前台调用方法
[mylink]标签模板ID,操作对象,调用条数,标题截取字数,是否显示栏目名,操作类型,只显示标题图片的信息[/mylink]
标签模板ID：查看标签模板ID点这里
操作对象：对应操作类型的表/栏目/专题。空则为默认。
操作类型：0为默认；1为按表（多个表格式：'news,photo'）；2为按栏目；3为按标题分类
是否显示栏目名：0为不显示；1为显示
只显示标题图片的信息：0为不限；1为只显示标题图片的信息
调用实例
[mylink]2,'news,download,photo,flash,movie,shop,article,info',10,32,0,1,0[/mylink]
标签模板id——2
调用的跨表——news,download,photo,flash,movie,shop,article,info
调用条数——10
截取标题——32
不显示栏目名——0
按数据表调用——1
不限图片属性——0