CMS技巧:ZBLOG增加文章里的关键字替换

 Vqi中国设计秀

文内关键字替换Vqi中国设计秀

 Function AddLink(str)Vqi中国设计秀
  Dim RsVqi中国设计秀
  Set Rs = objConn.Execute("Select [Keywords],[LinkUrl],[LinkTitle],[LinkWindow] FROM [blog_KeyLink]")Vqi中国设计秀
  While Not Rs.eofVqi中国设计秀
   if instr(str,Rs(0))>0 thenVqi中国设计秀
    AddLink=Replace(str,Rs(0),"<a href='" & Rs(1) & "' title='" & Rs(2) & "' target='" & Rs(3) & "'>" & Rs(0) & "</a>")Vqi中国设计秀
   end ifVqi中国设计秀
   Rs.movenextVqi中国设计秀
  WendVqi中国设计秀
  Set Rs=NothingVqi中国设计秀
 End FunctionVqi中国设计秀

 Public Property Get HtmlContentVqi中国设计秀
  HtmlContent=AddLink(TransferHTML(UBBCode(Content,"[face][link][autolink][font][code][image][typeset][media][flash][key]"),"[html-japan][vbCrlf][upload]"))Vqi中国设计秀
 End PropertyVqi中国设计秀
 Vqi中国设计秀