利用文字链接添加关键词和链接，这样方便管理。

下面请看具体步骤：

1.在common/incfiles/inc.asp中添加一个函数：

 

Function kreplace(str)   

dim tcontent,k1,k2,rs 

if str = "" then exit function   

tcontent = str   

  sqlstr = "select * from jtbc_support_linktext" 

  Set rs = conn.Execute(sqlstr) 

  do while not rs.eof   

  k1 = rs("l_topic") 

  k2 = rs("l_url") 

  tcontent = Replace(tcontent, k1, "<a href=""" & k2 & """ target=""_blank"">"& k1 &"</a >",1,3) 

  rs.movenext 

  loop 

  Set rs = Nothing 

kreplace = tcontent   

end function 

其中sqlstr = "select * from jtbc_support_linktext"  是通过查询文本链接数据库jtbc_support_linktext来实现关键字和链接的替换。

其中tcontent = Replace(tcontent, k1, "<a href=""" & k2 & """ target=""_blank"">"& k1 &"</a >",1,3)  最后的数字3是限制同一关键字只替换3次。

2.在公共管理，文本链接中添加对应的关键字和链接即可。

3.在需要实现自动添加关键词内链的模块/baike/common/incfiles/module_config.asp文件中，在Function jtbc_cms_module_detail()中把以下代码

 

tmpstr = Replace(tmpstr, "{$content}", encode_content(cutepage_content(rs(cfname("content")), rs(cfname("cp_note")), rs(cfname("cp_mode")), rs(cfname("cp_type")), rs(cfname("cp_num"))), rs(cfname("cttype"))))   

修改成：

 

tmpstr = Replace(tmpstr, "{$content}", kreplace(encode_content(cutepage_content(rs(cfname("content")), rs(cfname("cp_note")), rs(cfname("cp_mode")), rs(cfname("cp_type")), rs(cfname("cp_num"))), rs(cfname("cttype")))))   

对应的修改需要实现此功能的模块，即可实现。