繁體中文当前位置: 首页 > 图文教程 > 网页制作 > CMS技巧 > ZBLOG增加文章里的关键字替换
- CMS技巧
- Drupal CMS可以实现的16种类型网站
- Shopex技巧:去除shopex版权
- 最好的开源SNS程序Dolphind几大功能介绍
- Z-Blog留言评论显示IP地址和性能优化
- WordPress文章摘要功能简单代码
- WordPress博客技巧:图片用单独域名储存
- .htaccess文件优化WordPress页面加载速度
- ExpressionEngine CMS系统的网站设计实例
- 让WordPress的Post和Page支持<!–more–>标签
- WordPress制作中小企业网站的思路和注意事项
- Discuz!7.1升级Discuz!7.2
- DEDECMS伪原创插件使用说明和插件下载
- 小型网站可以选择的网站内容管理系统(CMS)
- PHP168 CMSV6.5架构定型 侧重高性能
- Drupal建站:整理世界上著名大学的网站
- 三种直接备份 WordPress 博客的方法
- WordPress博客数据库自动备份插件
- WordPress插件和主题的一些特别用处
- JTBC网站内容管理系统免费的开源的CMS
- Wordpress博客防评论机器人
CMS技巧 中的 ZBLOG增加文章里的关键字替换
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2010-01-03 浏览: 53 ::
收藏到网摘: 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
