插入关键字 文章采集器(要害字的标签!)

　　插入关键字 文章采集器(要害字的标签!)

　　本文讨论区：

　　为了方便搜索引擎，仿nb的文章系统会为下一页的关键词做标签！第一步，在foosun\admin\refresh\function.asp中找到函数getnewscontent(templetcontent,newsrecordset,newscontent)

　　templetcontent = replace(templetcontent,"{news_title}",newsrecordset("title")) 在下面添加'关键字标签

　　如果不是 isnull(newsrecordset("keywords")) 那么

　　templetcontent = replace(templetcontent,"{news_keywords}",newsrecordset("keywords"))

　　其他

　　templetcontent = replace(templetcontent,"{news_keywords}","")

　　如果结束

　　'关键字标签在倒数第二行，即%>前面，添加

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

　　'作者：lino

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

　　'开始

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

　　函数replacekeywordbytitle(title)

　　dim whereiskeyword,i,thekeywordonnews

　　dim keyword,rsruleobj,thekeywords '***如果使用3.0版本，请将下行fs_routine改为routine

　　set rsruleobj = conn.execute("select * from fs_routine")

　　不做 rsruleobj.eof

　　keyword = rsruleobj("name")

　　whereiskeyword = instr(lcase(title),lcase(keyword))

　　if(whereiskeyword>0) 那么

　　如果(thekeywordonnews="") 那么

　　thekeywordonnews=keyword

　　其他

　　thekeywordonnews=thekeywordonnews&""&keyword

　　如果结束

　　如果结束

　　rsruleobj.movenext

　　loop '如果关键字的长度大于100，把长的截掉

　　if(len(thekeywordonnews)>99) 那么

　　thekeywordonnews=left(thekeywordonnews,99)

　　如果 replacekeywordbytitle = thekeywordonnews 则结束

　　结束函数

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

　　'end 第二步，在foosun/funpages/lablenews.asp中找到，选择插入字段并在下面添加'页面关键词标签

　　页面上的关键字

　　'页面关键词标签

　　第三步在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")

　　end if if keywordtext "" then

　　inewsaddobj("keywords") = replace(replace(replace(keywordtext,"""",""),"'","")

　　如果'结束则结束

　　'************************************ 第四步在foosun/admin/collect /movenewstosystem .asp 中大约 117 行，找到

　　rssysnewsobj("txtsource") = rsnewsobj("source") 改成

　　rssysnewsobj("keywords") =replacekeywordbytitle(rsnewsobj("title"))

　　改程序没问题！接下来做一个标签，可以在自定义标签的新闻浏览中选择页面的关键词标签|||具体标签如下{news_keywords}，写在新闻模板的标题或元中心，方便搜索引擎收录!9 7 3 12 4 8 :