关键词自动采集(把标题与关键字表中的记录匹配匹配的标签!)

　　关键词自动采集(把标题与关键字表中的记录匹配匹配的标签!)

　　【IT168科技文章】为了方便搜索引擎，仿NB的文章系统为下一页的关键词做了标签！

　　第一步

　　在 foosun\Admin\Refresh\Function.asp 中找到

　　函数GetNewsContent(TempletContent,NewsRecordSet,NewsContent)

　　TempletContent = Replace(TempletContent,"{News_Title}",NewsRecordSet("Title"))

　　在下面添加

　　'关键字标签

　　如果 Not IsNull(NewsRecordSet("keywords")) 那么

　　TempletContent = Replace(TempletContent,"{News_keywords}",NewsRecordSet("keywords"))

　　其他

　　TempletContent = Replace(TempletContent,"{News_keywords}","")

　　如果结束

　　'关键字标签

　　在倒数第二行，即%>之前，添加

　　'************************************

　　'作者：lino

　　'将标题与关键字表中的记录匹配

　　'开始

　　'**********************************

　　函数replaceKeywordByTitle(title)

　　Dim whereisKeyword,i,theKeywordOnNews

　　Dim 关键字、rsRuleObj、theKeywordS

　　'***如果使用3.0版本，请将下游fs_Routine改为Routine

　　Set RsRuleObj = Conn.Execute("Select * from FS_Routine")

　　do while Not RsRuleObj.Eof

　　keyword = RsRuleObj("name")

　　whereisKeyword = InStr(Lcase(title),Lcase(keyword))

　　if(whereisKeyword>0) 那么

　　如果(theKeywordOnNews="") 那么

　　theKeywordOnNews=关键字

　　其他

　　theKeywordOnNews=theKeywordOnNews&""&keyword

　　如果结束

　　如果结束

　　RsRuleObj.MoveNext

　　循环

　　'如果关键字的长度大于100，截断长的那个

　　if(len(theKeywordOnNews)>99) 那么

　　theKeywordOnNews=left(theKeywordOnNews,99)

　　如果结束

　　replaceKeywordByTitle = theKeywordOnNews

　　结束函数

　　'******************************

　　'结束

　　第二步

　　在 foosun/funpages/lablenews.asp

　　查找选择插入字段

　　在下面添加

　　'页面关键字标签

　　网页关键字

　　'页面关键字标签

　　第 3 步

　　在 foosun/admin/info/newswords.asp 的第 306 行发现

　　INewsAddObj("KeyWords") = Replace(Replace(Request("KeywordText"),"""",""),"'","")

　　把这句话改成

　　'************************************

　　'作者：lino

　　'调用replaceKeywordByTitle方法过滤关键字

　　'如果用户自定义了关键字，则自动关键字设置不起作用

　　'开始

　　'**********************************

　　暗淡关键字文本

　　if (Request("KeywordText")="" or isempty(Request("KeywordText"))) 那么

　　KeywordText = replaceKeywordByTitle(ITitle)

　　其他

　　KeywordText = Request("KeywordText")

　　如果结束

　　如果 KeywordText "" 那么

　　INewsAddObj("KeyWords") = Replace(Replace(KeywordText,"""",""),"'","")

　　如果结束

　　'结束

　　'************************************

　　第四步

　　在Foosun/Admin/Collect/movenewstosystem.asp中关于第117行，找到

　　RsSysNewsObj("TxtSource") = RsNewsObj("来源")

　　改成

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

　　程序更改OK！

　　在下面做一个标签，在自定义标签的新闻浏览中可以自己选择页面关键词标签

　　具体标签如下{News_keywords}，写在新闻模板的标题或元中心，方便搜索引擎收录！