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

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

为了方便搜索引擎,所以仿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 www.qitongnet.com北京网页设计
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!

下面制作标签, 可以在 自定义标签 的 新闻浏览 里,自己选择 页面关键字 标签

具体标签如下 {News_keywords} ,写在新闻模版的 title 或者 meta centent 内,方便搜索引擎收录!