繁體中文当前位置: 首页 > 图文教程 > 网页制作 > CMS技巧 > ZBLOG增加文章里的关键字替换
- CMS技巧
- SupeV影音播客系统前台功能介绍
- SupeV影音播客系统SupeV产品特点
- SupeV影音播客系统后台功能
- SupeV影音播客系统搭建视频站步骤
- SupeV影音播客系统的其它特色功能
- 织梦网站内容管理系统（DedeCms）用户手册
- DedeCms模板制作轻松学
- Discuz论坛介绍及相关软件下载
- 在CMS中用Meta来标注版权信息
- Dvbbs V8.2.0 RC1模板驱动机制
- 动易、新云和风讯后台模块的比较
- 轻松安装MM喜欢的Discuz!论坛表情包
- 博客程序Wordpress常用插件逐个介绍
- KingCMS5.0从安装到设置使用教程
- WordPress设置自己喜欢的标签云
- 制作WordPress的标签云页面的实例
- 优化Wordpress的速度的几个技巧
- 丢失wordpress登录密码后的解决方法
- 初用WordPress自动转换中文标点问题
- WordPress插件:中文标题自动转换拼音
CMS技巧 中的 ZBLOG增加文章里的关键字替换
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2010-01-03 浏览: 49 ::
收藏到网摘: 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
