[分享]加强的带模板的信息调用标签
用法同ecmsinfo标签
[ecmsinfox]栏目ID/专题ID,显示条数,标题截取数,是否显示栏目名,操作类型,模板ID,只显示有标题图片,是否显示标题图标[/ecmsinfox]
调用说明：
1、在 标签模板 的 页面模板内容 中
[!--intro--] 为栏目/专题简介
[!--classimg--] 为栏目/专题略缩图
2、在 标签模板 的 列表内容模板 中
[!--new--] 为最新新闻图标
[!--good--] 为推荐新闻图标
[!--top--] 为头条新闻图标
大家自己找图标吧,保存为以下文件名就好了
ico_new.gif 为最新新闻图标
ico_good.gif 为推荐新闻图标
ico_top.gif 为头条新闻图标
保存到网站根目录的 images 目录下。
下载地址（或前往15楼下载）：http://bbs.phome.net/down?forumid=13&threadid=16800&rethreadid=64808
已导入的兄弟，只需要替换userfun.php中的函数部分就可以了。
function user_GetEcmsInfoplus($classid,$line,$strlen,$have_class=0,$enews=0,$tempid,$doing=0,$img=0)
{global $empire;
$sql=sys_ReturnBqQuery($classid,$line,$enews,$doing);
//取得模板
$tr=sys_ReturnBqTemp($tempid);
$listtemp=$tr[temptext];
$subnews=$tr[subnews];
$listvar=$tr[listvar];
$rownum=$tr[rownum];
$formatdate=$tr[showdate];
//替换变量
$listtemp=ReplaceEcmsinfozt(ReplaceEcmsinfoClassname($listtemp,$enews,$classid),$enews,$classid);
if(empty($rownum))
{$rownum=1;}
//字段
$ret_r=ReturnAddF($r,$tr[modid],$userid,$username,2);
$field=$ret_r[0];
//列表
$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];
$r[title]=sub($r[title],0,$strlen,false);
//替换列表变量
$repvar=ReplaceShowinfo($img,$r,ReplaceListVars($no,$listvar,$subnews,0,$formatdate,$url,$have_class,$r,$field));
$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;
}
function ReplaceShowinfo($img,$r,$listtemp)
{
if($img==0)
{
$listtemp=str_replace("[!--new--]",'',$listtemp);
$listtemp=str_replace("[!--good--]",'',$listtemp);
$listtemp=str_replace("[!--top--]",'',$listtemp);
}
else
{
if($r[truetime]>mktime(0,0,0,date("m"),date("d")-3,date("Y"))) //是否最新
{
$newx='<img src="/images/ico_new.gif" border="0">'; //定义图标
}
if ($r[isgood]!=0) //是否推荐
{
$goodimg='<img src="/images/ico_good.gif" border="0">'; //定义图标
}
if ($r[firsttitle]!=0) //是否头条
{
$topimg='<img src="/images/ico_top.gif border="0">'; //定义图标
}
$listtemp=str_replace("[!--new--]",$newx,$listtemp);
$listtemp=str_replace("[!--good--]",$goodimg,$listtemp);
$listtemp=str_replace("[!--top--]",$topimg,$listtemp);
}
return $listtemp;
}
//栏目图及简介
function ReplaceEcmsinfozt ($temp,$enews,$classid)
{global $empire,$navclassid;
$enews=(int)$enews;
if(strstr($classid,',')) //多分类直接返回
{
$temp=str_replace("[!--intro--]",'',$temp);
$temp=str_replace("[!--classimg--]",'',$temp);
return $temp;
}
else
{
$thecdo=",0,1,2,9,12,15,"; //定义操作类型是否栏目
$thezdo=",6,7,8,11,14,17,"; //定义操作类型是否专题
if($classid=="selfinfo")
{
$classid=$navclassid;
}
//类别
if(strstr($thecdo,",".$enews.","))
{
$tb1=$empire->fetch1("select intro,classimg from phome_enewsclass where classid='$classid'");
$temp=str_replace("[!--intro--]",$tb1[intro],$temp);
$temp=str_replace("[!--classimg--]",$tb1[classimg],$temp);
}
//专题
elseif(strstr($thezdo,",".$enews.","))
{
$tb2=$empire->fetch1("select ztimg,intro from phome_enewszt where ztid='$classid'");
$temp=str_replace("[!--intro--]",$tb2[intro],$temp);
$temp=str_replace("[!--classimg--]",$tb2[ztimg],$temp);
}
else
{
}
return $temp;
}
}
上传以下附件：
[下载 *.rar](文件大小：1.69 KB,下载次数：254)
|
[该贴被修改 7 次，最后修改时间 2006-11-08 11:19:02 ]
帝国模板定制,功能开发等 http://ecmsjz.cn
不在线可QQ 8686588 留言，上线必回。
|
顶部 
加入收藏夹
2006-11-06 21:18:04 
已设置保密
回复
引用
报告
编辑
删除
