分享文章：3.1-页面关键字标签及采集新闻自动添加关键字

　　3.1页关键字标签和采集新闻自动添加关键字

　　为了方便搜索引擎，因此模仿NB的文章系统制作页面关键字标签！第一步是在foosun \ Admin \ Refresh \ Function.asp

　　中找到Function GetNewsContent（TempletContent，NewsRecordSet，NewsContent）

　　TempletContent = Replace（TempletContent，“ {News_Title}”，NewsRecordSet（“ Title”）））在下面添加“关键字标记”

　　如果不是IsNull（NewsRecordSet（“ keyWords”）），则

　　TempletContent =替换（TempletContent，“ {News_keywords}”，NewsRecordSet（“ keywords”））

　　其他

　　TempletContent =替换（TempletContent，“ {News_keywords}”，“”）

　　如果结束

　　'关键字标签位于倒数第二行，位于％>的前面，添加

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

　　'author：lino

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

　　“开始

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

　　函数replaceKeywordByTitle（title）

　　Dim whereisKeyword，i，theKeywordOnNews

　　Dim关键字，rsRuleObj，theKeywordS'***如果使用3.版本0，请在下游将fs_Routine更改为Routine

　　设置RsRuleObj = Conn.Execute（“从FS_Routine中选择*”）

　　在非RsRuleObj.Eof时执行

　　关键字= RsRuleObj（“名称”）

　　whereisKeyword = InStr（Lcase（title），Lcase（keyword））

　　if（whereisKeyword>0)然后

　　如果（theKeywordOnNews =“”）然后

　　theKeywordOnNews =关键字

　　其他

　　theKeywordOnNews = theKeywordOnNews＆“”＆keyword