第一步 在 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") 将之修改为