繁體中文当前位置: 首页 > 图文教程 > 网页制作 > CMS技巧 > ZBLOG增加文章里的关键字替换
- CMS技巧
- Phpcms2008网站内容管理系统免费开源
- UCenter 1.5.0安装介绍
- Discuz! 7.0论坛模板制作更加简单化
- dede文章列表页调用TAG标签
- 删除Dedecms中遗留的多余图片
- JTBC(.NET)将OS管理操作模式融入CMS
- UCenter Home站点添加统计代码
- 论坛程序Discuz!7.0.0安装教程
- 利用好Discuz!论坛的分类信息功能
- 用好SNS建站软件UCenter Home词语屏蔽
- 2009预测中国网站建站10大欢迎CMS
- UCenter Home从QQ地址薄导入好友邮箱功能
- 高流量WordPress博客优化的经验和看法
- 22个高质量的免费wordpress博客模板
- Wordpress教程：wp_list_pages()函数
- 康盛创想SupeSite 7.0全面开源发布
- Wordpress博客首页中的每篇日志添加图片
- 介绍worpress博客header.php
- WordPress主题的index.php代码
- wordpress博客wp_list_categories标签
CMS技巧 中的 ZBLOG增加文章里的关键字替换
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2010-01-03 浏览: 58 ::
收藏到网摘: 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
