用户信息
帖子内容
1 楼
shadoweb
钻石会员
积分 678
注册 2014-11-27
     
asp版jtbc利用文字链接"添加全站关键字 "

利用文字链接添加关键词和链接,这样方便管理。
下面请看具体步骤:
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")))))   
对应的修改需要实现此功能的模块,即可实现。
2016-09-23 17:09:44 影子互联承接JTBC建站,模板定制,二次开发, QQ925474725 网址www.shadoweb.cn