dedecms文章页面随机调用一篇文章

????? dedecms文章页面随机调用一篇文章,我们这个时候在对dedecms开发的时候非常有必要，为了让dedecms文章页面更加的增加一些随机元素。我们可以考虑通过对dedecms二次开发来实现这个功能。

???? 1.增加以下dedecms自定义标签 randarc

?????????? function lib_randarc(&$ctag , &$refObj){
?
?global $dsql;

?FillAttsDefault($ctag->CAttribute->Items ,"limit|1");
?extract($ctag->CAttribute->Items);
?$s = '';
?$tcp = new DedeTagParse();
?$tcp->SetNameSpace("field",'[',']');
?$tcp->LoadSource($ctag->GetInnerText());
?$sql = $query = "SELECT se.*,tp.typedir,tp.typename,tp.isdefault,tp.defaultname,tp.namerule,tp.namerule2,tp.ispart,tp.moresite,tp.siteurl,tp.sitepath
??????????? FROM `dede_archives` se LEFT JOIN `dede_arctype` tp ON se.typeid=tp.id WHERE 1 order by rand() limit $limit";
?$dsql->Execute("f",$sql);
?while($row1 = $dsql->GetArray("f")){
??
??$row1['arcurl'] = GetFileUrl($row1['id'],$row1['typeid'],$row1['senddate'],$row1['title'],
??????? $row1['ismake'],
??????? $row1['arcrank'],$row1['namerule'],$row1['typedir'],$row1['money'],
??????? $row1['filename'],$row1['moresite'],$row1['siteurl'],$row1['sitepath']);
??foreach($tcp->CTags as $k => $v ){
???
???$tcp->Assign($k , $row1[$v->GetName()]);

??}

??$s.=$tcp->GetResult();

?}
?return $s;
}

?? 2:在dedecms文章亚 搏中调用。

??? {dede:randarc limit=1}[field:title/]{/dede:randarc}

??? 这样很简单的就完成了dedecms文章页面随机调用一篇文章的功能。

?? 来源:http://www.chinab4c.com

?