网站建设|北京网站建设|北京网站制作|北京网站建设首选品牌【企通互联】

作者： 北京网站建设   日期：2008-03-27 06:03:34  来源： http://www.qitongnet.com

这段程序是 根据采集到的新闻的标题+ www.qitongnet.com数据库中现有的关键字 匹配 来实现的。只怕会不符合有些朋友的需求。请见谅了！还有，采用这段程序会相应增加一点采集的时间。（我没具体测量过，但操作中感觉不出处理时间有明显增加）

怎么实现的呢：把数据表Routine中的记录一一取出，到新闻标题中去寻找是否出现。如果出现，就作为关键字。一个新闻可能会有多个关键字。

下面举个例子：采集得的新闻标题为： linux环境下的音频编程  。关键字表中有：linux，音频，编程三个关键字。那么最终该新闻就会有"linux,音频,编程"三个关键字了。

OK～～DiY it now!

北京网页设计请先备份

Admin\Collect\MoveNewsToSystem.asp 企通互联

1、打开Admin\Collect\MoveNewsToSystem.asp，拉到倒数第二页(也就是%>的前一行)把下面的代码拷进去

'************************************ 网站建设北京网页设计
'author:lino企通互联
'把标题与关键字表中的记录匹配 北京网站建设网站制作
'Start 网页设计北京网站设计
'*************************北京网站设计
Function replaceKeywordByTitle(title)北京网站建设
Dim whereisKeyword,i,theKeywordOnNews网站设计 北京网站设计
Dim keyword,rsRuleObj,theKeywordS北京网站建设 网站制作
Set RsRuleObj = Conn.Execute("Select * from 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

2、打开Admin\Collect\MoveNewsToSystem.asp ，找到约107行 或搜索北京网站设计
北京网站制作
RsSysNewsObj("TxtSource") = RsNewsObj("Source") ，把下面的代码拷上去

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