dedecms织梦tag keyword怎么调用相关文章-青柠资源网

dedecms梦想标签关键词如何调用相关文章？

DEDE官方的dede:likearticle利用文章中输入的关键词或自动分词形成的关键词来关联文章，但有时自动生成的关键词并不准确，导致关联不准确。这里我们自定义一个类库文件，实现对相关文章的精确访问。

推荐学习:梦想编织cms

可以单独使用tag调用相关文章，也可以使用tag+keyword调用相关文章(默认tag优先于keyword，可以自己排序)。

在\\include\\taglib\\下添加一个liketags.lib.php代码，如下所示

lt；？服务器端编程语言（Professional Hypertext Preprocessor的缩写）
如果(！已定义(# 39；DEDEINC # 39))退出(# 39；请求错误！#39;);
函数lib _ like tags(amp；$ctag，amp$refObj)
{
全球$ dsql

if(empty($ table width))$ table width = 100；
if(empty($ col))$ col = 1；
$ col width = ceil(100/$ col)；
$ table width = $ table width . quot；% quot；
$ colWidth = $ colWidth.quot% quot；
$ orwheres = # 39#39;；
如果($flag！= #39;#39;) {
$ flags = explode(# 39；,#39;，$ flag)；
for($ I = 0；isset($ flags[$ I])；$ i++)$ or where。= quot和FIND _ IN _ SET(# 39；{ $ flags[$ I]} # 39；，arc . flag)gt；0 quot；
}

$ ids = array()；
$ tids = array()；

如果(！empty($ ref obj -gt；字段[# 39；标签# 39；])) {
$ keyword = $ ref obj -gt；字段[# 39；标签# 39；];
}
否则{
$keyword =(！empty($ ref obj -gt；字段[# 39；关键词# 39；]) ?$ ref obj -gt；字段[# 39；关键词# 39；] : #39;#39;);
}

$typeid =(！空($mytypeid)？$ my typeid:0)；
if(empty($typeid))
{
如果(！empty($ ref obj -gt；Typelink-gt。TypeInfos[# 39；里德# 39；])) {
$ typeid = $ ref obj -gt；Typelink-gt。TypeInfos[# 39；里德# 39；];
}
否则{
如果(！empty($ ref obj -gt；字段[# 39；typeid # 39]))$ typeid = $ ref obj -gt；字段[# 39；typeid # 39];
}
}

如果(！empty($ typeid)amp；amp！preg _ match(# 39；#,##39;，$typeid) ) {
$ typeid = GetSonIds($ typeid)；
}

如果(！empty($ ref obj -gt；字段[# 39；标签# 39；])amp；amp$eregtype！= #39;关键词# 39；)
{
$ tags = explode(# 39；,#39;，add slashes($ ref obj -gt；字段[# 39；标签# 39；]));
$ getsql = quot标签如# 39；quot。加入(quot#39;或者像# 39；quot，$tags)。quot#39;quot；
$ dsql -gt；执行(# 39；我# 39；，quotselect * From ` dede _ tag index ` where＄get SQL quot；);
while($ arow = $ dsql -gt；get array(# 39；我# 39；))
{
$ tids[]= $ arow[# 39；id # 39];
}
$ tid = join(# 39；,#39;，$ tids)；
如果($tid！=#39;#39;)
{
061
$ dsql -gt；执行(quotmequot，quot从“dede_taglist”中选择aid，其中tid in(＄tid)和arcrank gt-1按援助顺序分组，按援助描述排序。);
while($ arow = $ dsql -gt；GetArray(quot；mequot))
{
$ ids[]= $ arow[# 39；援助# 39；];
$ arcid = $ ref obj -gt；字段[# 39；援助# 39；];
}
}
}
if($ eregtype = = # 39；标签# 39；ampamp计数($ids) == 0)
{
返回；
}
其他
{
if(count($ ids)gt；0)
{
如果(！空($typeid))
{
$ typeid = quot以及($typeid)和arc.idlt中的arc.typeidgt；$ arcid quot；
}
$ idsStr = join(# 39；,#39;，$ ids)；
$ query = quot选择弧线。*，tp.typedir，tp.typename，tp.corank，tp.isdefault，tp.defaultname，tp.namerule，
tp.namerule2，tp.ispart，tp.moresite，tp.siteurl，tp.sitepath
从` dede_archives` arc向左连接` dede _ arc type ` TP on arc . typeid = TP . id
其中arc.arcrankgt-1和arc . id in($ idsStr)$ typeid order by arc . id desc限制0，$ rowquot；
}
其他
{
$ limit row = $ row -count($ ids)；
$ keyword = # 39#39;；
如果(！empty($ ref obj -gt；字段[# 39；关键词# 39；]))
{
$ keywords = explode(# 39；,#39;，trim($ ref obj -gt；字段[# 39；关键词# 39；]));
$ keyword = # 39#39;；
$ n = 1；
foreach($关键字为$k)
{
if($ n gt；3)破；

if(trim($ k)= = # 39；#39;)继续；
else $ k = add slashes($ k)；

$keyword。=($ keyword = = # 39；#39;？quotCONCAT(arc.keywords，# 39；#39;，arc.title)像# 39；% $ k % # 39quot:quot或者CONCAT(arc.keywords，# 39；#39;，arc.title)像# 39；% $ k % # 39quot);
$ n++；
}
}
$arcid =(！empty($ ref obj -gt；字段[# 39；id # 39]) ?$ ref obj -gt；字段[# 39；援助# 39；] : 0);
if( empty($arcid) || $byabs==0)
{
$ orderquery = quot按arc.id desc排序quot；
}
其他
{
$ orderquery = quot按ABS(arc . id -quot；。$ arcid.quot)quot；
}
if($关键字！= #39;#39;)
{
如果(！空($typeid))
{
$ typeid = quot以及($typeid)和arc.idlt中的arc.typeidgt；$ arcid quot；
}
$ query = quot选择弧线。*，tp.typedir，tp.typename，tp.corank，tp.isdefault，tp.defaultname，tp.namerule，
tp.namerule2，tp.ispart，tp.moresite，tp.siteurl，tp.sitepath
从` dede_archives` arc向左连接` dede _ arc type ` TP on arc . typeid = TP . id
其中arc.arcrankgt-1和($ keyword)$ typeid $ order query limit 0，$ rowquot；
}
其他
{
如果(！空($typeid))
{
$ typeid = quot(typeid)中的arc.typeid和arc.idltgt；$ arcid quot；
}
$ query = quot选择弧线。*，tp.typedir，tp.typename，tp.corank，tp.isdefault，tp.defaultname，tp.namerule，
tp.namerule2，tp.ispart，tp.moresite，tp.siteurl，tp.sitepath
从` dede_archives` arc向左连接` dede _ arc type ` TP on arc . typeid = TP . id
其中arc.arcrankgt-1和$typeid $orderquery限制0，$ rowquot；
}
}
}

$ innertext = trim($ ctag -gt；GetInnerText())；
if($ innertext = = # 39；#39;)$ innertext = GetSysTemplets(# 39；part _ arclist.htm # 39);
$ dsql -gt；SetQuery($ query)；
$ dsql -gt；执行(# 39；铝# 39；);
$ artlist = # 39#39;；
if($ col gt；1){
$ artlist = quotlt；表格宽度= # 39；$ tablewidth # 39border = # 390#39;单元格间距= # 39；0#39;cellpadding = # 390#39;gt；\\ r \\ nquot；
}
$ DTP 2 = new DedeTagParse()；
$ DTP 2-gt；set namespace(# 39；字段# 39；, #39;[#39;, #39;]#39;);
$ DTP 2-gt；LoadString($ innertext)；
$ GLOBALS[# 39；自动索引# 39；] = 0;
$ line = $ row
for($ I = 0；$ i lt$ line$i++)
{
if($ colgt；1) $artlist。= quotlt；trgt\\ r \\ nquot；
for($ j = 0；$ j lt$ col$j++)
{
if($ colgt；1) $artlist。= quotlt；td宽度= # 39；$ colWidth # 39gt；\\ r \\ nquot；
if($ row = $ dsql -gt；GetArray(quot；alquot))
{
$ ids[]= $ row[# 39；id # 39];
//处理一些特殊字段
$ row[# 39；信息# 39；]= $ row[# 39；信息# 39；]= cn _ substr($ row[# 39；描述# 39；]，$ info len)；
$ row[# 39；id # 39]= $ row[# 39；id # 39];

if(＄row[# 39；柯兰克# 39；]gt；0安培；amp$ row[# 39；arcrank # 39]==0)
{
$ row[# 39；arcrank # 39]= $ row[# 39；柯兰克# 39；];
}

$ row[# 39；文件名# 39；]= $ row[# 39；arcurl # 39]= GetFileUrl($ row[# 39；id # 39]，$ row[# 39；typeid # 39]，$ row[# 39；发送日期# 39；]，$ row[# 39；标题# 39；]，$ row[# 39；ismake # 39],
$ row[# 39；arcrank # 39]，$ row[# 39；命名规则# 39；]，$ row[# 39；typedir # 39]，$ row[# 39；金钱# 39；]，$ row[# 39；文件名# 39；]，$ row[# 39；更多网站# 39；]，$ row[# 39；siteurl # 39]，$ row[# 39；站点路径# 39；]);

$ row[# 39；typeurl # 39]= GetTypeUrl($ row[# 39；typeid # 39]，$ row[# 39；typedir # 39]，$ row[# 39；is默认# 39；]，$ row[# 39；默认名称# 39；]，$ row[# 39；ispart # 39],
$ row[# 39；命名规则# 39；]，$ row[# 39；更多网站# 39；]，$ row[# 39；siteurl # 39]，$ row[# 39；站点路径# 39；]);

if(＄row[# 39；litpic # 39] == #39;-#39;| | $ row[# 39；litpic # 39] == #39;#39;)
{
$ row[# 39；litpic # 39]= $ GLOBALS[# 39；cfg _ cmspath # 39].#39;/images/default pic . gif # 39；；
}
如果(！preg _ match(quot；#^http:\\/\\/#iquot；，$ row[# 39；litpic # 39])amp；amp$ GLOBALS[# 39；cfg _ multi _ site # 39] == #39;Y # 39)
{
$ row[# 39；litpic # 39]= $ GLOBALS[# 39；cfg _ mainsite # 39].$ row[# 39；litpic # 39];
}
$ row[# 39；picname # 39]= $ row[# 39；litpic # 39];
$ row[# 39；stime # 39]= GetDateMK(＄row[# 39；发布日期# 39；]);
$ row[# 39；typelink # 39]= quot；lt；a href = # 39quot。$ row[# 39；typeurl # 39].quot#39;gt；quot。$ row[# 39；typename # 39].quotlt；/AGT；quot；
$ row[# 39；图片# 39；]= quot；lt；img src = # 39quot。$ row[# 39；picname # 39].quot#39;border = # 39#39;width = # 39$ imgwidth # 39height = # 39$ imgheight # 39alt = # 39quot。preg _ replace(quot；#[#39;gt；lt；]# quot；，quotquot，$ row[# 39；标题# 39；]).quot#39;gt；quot；
$ row[# 39；imglink # 39]= quot；lt；a href = # 39quot。$ row[# 39；文件名# 39；].quot#39;gt；quot。$ row[# 39；图片# 39；].quotlt；/AGT；quot；
$ row[# 39；完整标题# 39；]= $ row[# 39；标题# 39；];
$ row[# 39；标题# 39；]= cn _ substr($ row[# 39；标题# 39；]，$ title len)；
if(＄row[# 39；颜色# 39；]!=#39;#39;)$ row[# 39；标题# 39；]= quot；lt；font color = # 39quot。$ row[# 39；颜色# 39；].quot#39;gt；quot。$ row[# 39；标题# 39；].quotlt；/fontgt。quot；
if(preg _ match(# 39；# b # # 39，$ row[# 39；标志# 39；]))$ row[# 39；标题# 39；]= quot；lt；stronggt。quot。$ row[# 39；标题# 39；].quotlt；/stronggt。quot；
$ row[# 39；textlink # 39]= quot；lt；a href = # 39quot。$ row[# 39；文件名# 39；].quot#39;gt；quot。$ row[# 39；标题# 39；].quotlt；/AGT；quot；
$ row[# 39；plusurl # 39]= $ row[# 39；phpurl # 39]= $ GLOBALS[# 39；cfg _ phpurl # 39];
$ row[# 39；memberurl # 39]= $ GLOBALS[# 39；cfg _ memberurl # 39];
$ row[# 39；templeturl # 39]= $ GLOBALS[# 39；cfg _ templeturl # 39];

if(is _ array($ DTP 2-gt；CTags))
{
foreach($ DTP 2-gt；CTags as $k=gt。$ctag)
{
if($ CTA G-gt；GetName()= = # 39；数组# 39；) {
$ DTP 2-gt；赋值($k，$ row)；
}
否则{
if(isset($ row[$ ctag -gt；GetName()]))$ DTP 2-gt；Assign($k，$ row[$ ctag -gt；GetName()])；
else $ DTP 2-gt；赋值($k，# 39；#39;);
}
}
$ GLOBALS[# 39；自动索引# 39；]++;
}

$artlist。= $ DTP 2-gt；GetResult()。quot\\ r \\ nquot；
}
//如果有行
其他
{
$artlist。= #39;#39;；
}
if($ colgt；1) $artlist。= quotlt；/tdgt。\\ r \\ nquot；
}
//循环列
if($ colgt；1)$ I+= $ col -1；
if($ colgt；1) $artlist。= quotlt；/trgt。\\ r \\ nquot；
}
//循环线
if($ colgt；1) $artlist。= quotlt；/tablegt。\\ r \\ nquot；
$ dsql -gt；免费结果(quotalquot);
返回$ artlist
}登录后复制