繁體中文当前位置: 首页 > 图文教程 > 网页制作 > CMS技巧 > ZBLOG增加文章里的关键字替换
- CMS技巧
- 去除WordPress程序新版本提示功能三法
- wordpress模板常用调用函数
- 使用wordpress中文工具箱详细介绍
- 介绍科汛CMS（KesionCMS）系统的主要特性
- kesionCms V5.0目录程序插件安全设置
- KesionCMS5.0常用标签汇总
- 科汛：sql标签实现按评论数最多的排序的
- 科汛：实现文章点击(日、周、月)排行
- KesionCmsV5.01自定义sql标签条件判断应用
- KesionCMS制作人才招聘系统站内高级搜索
- sql标签嵌套调用实现循环显示栏目文章标签
- 什么样的wordpress主题才是最好的呢?
- 构建Digg式(顶客)网站的几种途径
- DedeCmsV5.1函数及文件参考手册
- 初学:PHP168 CMS的安装入门教程
- PHP168CMS安装过程中整合论坛的教程
- PHP168CMS网站后台整合论坛的教程
- WordPress主题模板标签参考指南
- wordpress分类顺序修改
- WordPress wp_list_cats函数
CMS技巧 中的 ZBLOG增加文章里的关键字替换
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2010-01-03 浏览: 50 ::
收藏到网摘: 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
