采集新闻时,自动添加关键字 - 风讯CMS - 爱建站

,,,,CMS教程,模板无忧,建站教程,CMS教程,风讯Cms教程,

SEO SEO

首页  >   风讯CMS > 采集新闻时,自动添加关键字  >  正文

采集新闻时,自动添加关键字

2018-09-27 07:33:02 向站长提问 编辑: admin 阅读:

 

这段程序是 根据采集到的新闻的标题 数据库中现有的要害字 匹配 来实现的


这段程序是 根据采集到的新闻的标题 数据库中现有的要害字 匹配 来实现的。只怕会不符合有些朋友的需求。请见谅了!还有,采用这段程序会相应增加一点采集的时间。(我没具体测量过,但操作中感觉不出处理时间有明显增加)

怎么实现的呢:把数据表Routine中的记录一一取出,到新闻标题中去寻找是否出现。假如出现,就作为要害字。一个新闻可能会有多个要害字。

下面举个例子:采集得的新闻标题为: linux环境下的音频编程 。要害字表中有:linux,音频,编程三个要害字。那么最终该新闻就会有"linux,音频,编程"三个要害字了。

OK~~DiY it now!

请先备份

Admin\Collect\MoveNewsToSystem.asp

1、打开Admin\Collect\MoveNewsToSystem.asp,拉到倒数第二页(也就是%>的前一行)把下面的代码拷进去

"************************************
"author:lino
"把标题与要害字表中的记录匹配
"Start
"*************************
Function replaceKeywordByTitle(title)
Dim whereisKeyword,i,theKeywordOnNews
Dim keyword,rsRuleObj,theKeywordS
Set RsRuleObj = Conn.Execute("Select * from Routine")
do while Not RsRuleObj.Eof
keyword = RsRuleObj("name")
whereisKeyword = InStr(Lcase(title),Lcase(keyword))
if(whereisKeyword>0) then
if(theKeywordOnNews="") then
theKeywordOnNews=keyword
else
theKeywordOnNews=theKeywordOnNews&","&keyword
end if
end if
RsRuleObj.MoveNext
loop

"假如keyword的长度大于100,截去过长的
if(len(theKeywordOnNews)>99) then
theKeywordOnNews=left(theKeywordOnNews,99)
end if

replaceKeywordByTitle = theKeywordOnNews
End function
"**********************
"End

2、打开Admin\Collect\MoveNewsToSystem.asp ,找到约107行 或搜索

RsSysNewsObj("TxtSource") = RsNewsObj("Source") ,把下面的代码拷上去

RsSysNewsObj("keywords") =replaceKeywordByTitle(RsNewsObj("keywords"))

查看更多 风讯cms教程  风讯cms模板


采集新闻时,自动添加关键字
http://www.yuedudg.cn/article/15105791.html

 

友情链接
帝国cms常识 织梦之家 zblog之家
cms综合网 discuz经验网 wp之家
phpcms之家 ecshop经验网


Tags: CMS教程 模板无忧 建站教程 CMS教程 风讯Cms教程


手机浏览本文
采集新闻时,自动添加关键字

采集新闻时,自动添加关键字

站内推荐

网站分类

标签列表

关于我们
文章内容来源互联网仅供参考,如果还有疑问请联系我们!我们将竭力帮您解决您的问题
联系我们:

QQ: 397423577 

email:397423577@qq.com

微信:ganenboy