【IT168 技术文章】为了方便搜索引擎,所以仿NB的文章系统制作下页面关键字的标签! 

第一步

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

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

   在下面添上

   '关键字标签
   if Not IsNull(NewsRecordSet("keywords")) then
   TempletContent = Replace(TempletContent,"{News_keywords}",NewsRecordSet("keywords"))
   else
   TempletContent = Replace(TempletContent,"{News_keywords}","")
   end if
   '关键字标签

   在最后倒数第二行,也就是 %>的前面,添上

   '************************************
   'author:lino
   '把标题与关键字表中的记录匹配
   'Start
   '*************************
   Function replaceKeywordByTitle(title)
   Dim whereisKeyword,i,theKeywordOnNews
   Dim keyword,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) 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
 

第二步 

   在 foosun/funpages/ lablenews.asp   

   找到 <option selected>选择插入字段</option>

   在下面添上

   '页面关键字标签
   <option value="{News_keywords}">页面关键字</option> 
   '页面关键字标签

第三步

   在foosun/admin/info/newswords.asp 中 大约306行左右 找到
   INewsAddObj("KeyWords") = Replace(Replace(Request("KeywordText"),"""",""),"'","")
   将这句修改为
   '************************************
   'author:lino
   '把调用replaceKeywordByTitle方法，过滤关键字
   '如果用户自定义了关键字，自动设置关键字不起作用
   'Start
   '*************************
   Dim KeywordText
   if (Request("KeywordText")="" or isempty(Request("KeywordText"))) then
   KeywordText = replaceKeywordByTitle(ITitle)

   else 
   KeywordText = Request("KeywordText")
   end if

   if KeywordText <> "" then 
   INewsAddObj("KeyWords") = Replace(Replace(KeywordText,"""",""),"'","") 
   end if

   'End
   '***********************************

第四步
 
   在 Foosun/Admin/Collect/movenewstosystem.asp 中 大约117行,找到
RsSysNewsObj("TxtSource") = RsNewsObj("Source")

   将之修改为

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

   程序改动OK!

   下面制作标签, 可以在自定义标签的新闻浏览里,自己选择页面关键字标签

   具体标签如下 {News_keywords} ,写在新闻模版的 title 或者 meta centent 内,方便搜索引擎收录!