3.1-頁面關鍵字標簽及采集新聞自動添加關鍵字_風訊Cms教程
教程Tag:暫無Tag,歡迎添加,賺取U幣!
本文討論區: http://bbs.foosun.net/dispbbs.asp?BoardID=22&replyID=81152&id=16688&skin=0
為了方便搜索引擎,所以仿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! 下面制作標簽, 可以在 自定義標簽 的 新聞瀏覽 里,自己選擇 頁面要害字 標簽
相關風訊Cms教程:
- 相關鏈接:
- 教程說明:
風訊Cms教程-3.1-頁面關鍵字標簽及采集新聞自動添加關鍵字
。