相关文章
网站设计CSS:如何编写代码才能更有效率
网站制作深入理解css中的position定位和z-index属性
北京网页设计CSS Hack汇总快查
北京网页设计认清CSS的类class和标识id选择符
企通互联DreamWeaver打造Web查询系统(1)
网站制作CSS滤镜:blur属性
网站建设教程/dreamweaver/提高 表格妙用-线框制作详解(1)
北京网站制作Flash MX 2004 查找替换功能(1)
网站设计自由操控Flash---全面升级您的Flash播放器
网站建设使用 Fireworks 设计 Macromedia 按钮(半透明玻璃效果)
品牌理念
北京网站建设最佳合作伙伴
北京网站建设专家企通互联
竭诚为您提供网站建设服务!
友好连接
文章搜索
你的位置:首页 >> 网站制作 >> 企通互联网页设计采集新闻时,自动添加关键字
企通互联网页设计采集新闻时,自动添加关键字
这段程序是 根据采集到的新闻的标题+ 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"))
上一篇:北京网页设计解决风讯限制的最多允许建立50个样式问题。
下一篇:北京网站设计3.1-采集容易出错的几个地方的设置说明