当前位置: 首页 > 图文教程 > 网页制作 > CMS技巧 > ZBLOG增加文章里的关键字替换

CMS技巧
开源微博客平台:StatusNet
新云CMS防采集的代码修改
备案实名核对制确认无疑 江西IDC机房已先行
中国互联网迟到的80后对比Facebook（脸谱网）创始人
27个免费的Drupal开源自助CMS系统模版
15个提升WordPress用户工作效率的工具
WordPress 3.0即将发布CMS功能增强
Z-Blog自定义分类静态首页配置

No. « 10 11 12 13 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2010-01-03   浏览: 48 ::
收藏到网摘: n/a

文内关键字替换

 Function AddLink(str)
  Dim Rs
  Set Rs = objConn.Execute("Select [KeyWords],[LinkUrl],[LinkTitle],[LinkWindow] FROM [blog_KeyLink]")
  While Not Rs.eof
   if instr(str,Rs(0))>0 then
    AddLink=Replace(str,Rs(0),"<a href='" & Rs(1) & "' title='" & Rs(2) & "' target='" & Rs(3) & "'>" & Rs(0) & "</a>")
   end if
   Rs.movenext
  Wend
  Set Rs=Nothing
 End Function

 Public Property Get HtmlContent
  HtmlContent=AddLink(TransferHTML(UBBCode(Content,"[face][link][autolink][font][code][image][typeset][media][flash][key]"),"[html-japan][vbCrlf][upload]"))
 End Property