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