繁體中文当前位置: 首页 > 图文教程 > 网页制作 > CMS技巧 > ZBLOG增加文章里的关键字替换
- CMS技巧
- dede(织梦)CMS常见问题及解决方法
- 织梦内容管理系统(dede)模板标签代码参考
- 网站内容管理系统CMS在国内都有哪些？
- 建站选择CMS一定要谨慎
- 适合搜索优化(SEO)的几个CMS介绍
- 从SEO视角判断CMS系统的好坏
- 简单把Wordpress打造成CMS
- 帝国ecms教程:一些常用的技巧大全
- 帝国ecms:实现google的全站sitemap制作教程
- dedecms发布分页问题完全解决方案
- 使用织梦网站管理(DEDECMS)架设网站全面分析
- 百度、谷歌搜索引擎原理及新网站应对
- 织梦网站管理系统(DedeCms2007)将于11月底发布
- 关于blog系统中最合适做优化的程序
- 给zblog加上运行代码功能
- 修改z-blog分页页码样式
- 给z-blog博客添加链接点击统计
- LBS增加引用地址和永久地址点击复制功能
- LBS功能:图片的自适应实现代码
- ZBLOG增加文章里的关键字替换
CMS技巧 中的 ZBLOG增加文章里的关键字替换
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2010-01-03 浏览: 47 ::
收藏到网摘: 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
