繁體中文当前位置: 首页 > 图文教程 > 网页制作 > CMS技巧 > ZBLOG增加文章里的关键字替换
- CMS技巧
- 建站经验:适合SEO的开源CMS
- ShopEx最新的4.8.5版最新功能揭秘
- CMS是什么？认识CMS
- 2009年世界上最好的PHP开源CMS
- Discuz!7.1通过WAP发布的帖子加标记
- WordPress:发布时间超过15天的文章中展示广告
- WordPress技巧:制作标签Tags页面
- CMS介绍:22个国外最常用的电子商务系统
- WordPress制作简单的企业网站
- WEBJX收集55个优秀的WORDPRESS网站设计
- Joomla 1.6新版:链接跳转组件和插件
- Drupal教程:启用缓存和Gzip压缩
- Joomla!中文教程:建站程序的安装
- WordPress的6种主题框架对比分析
- Discuz!7.1远程代码执行漏洞
- cPanel主机面板定时自动备份MySQL数据库
- Ecshop设置技巧:去除版权的方法
- ECSHOP2.7版本去除底部版权的方法
- Wordpress技巧:解决注册登录死循环问题
- dedeCMS站内搜索代码的改进
CMS技巧 中的 ZBLOG增加文章里的关键字替换
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2010-01-03 浏览: 54 ::
收藏到网摘: 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
评论 (0) All
