繁體中文当前位置: 首页 > 图文教程 > 网页制作 > CMS技巧 > ZBLOG增加文章里的关键字替换
- CMS技巧
- 完善Wordpress博客功能的7个辅助插件
- 最高效实用的WordPress静态缓存插件
- WordPress 2.8的8个特色的新增功能
- 结合WordPress结构进行适合自己的SEO
- 用Wordpress制作企业网站的四点好处
- WordPress作为CMS的优势所在
- WordPress基础，让你全面了解WordPress
- 迪车部落采用Discuz! 7.0 打造最大比亚迪车友会
- DedeCMS整合PHPWind架设网站教程
- 网上下载的Zblog模板怎么修改？
- 把wordpress生成缩略图功能去掉
- 优化WordPress博客总结的12个小技巧
- Webjx收集33个有用的Wordpress技巧
- ShopEx4.8.4网站内容管理后天核心设置
- 用Discuz!创建属于自己的网站论坛
- 快速建设自己的电子商务网站
- 为电子商务网站添加在线支付功能
- 选择CMS需要注意的8点
- 网站开发方法大观
- 了解WORDPRESS的RSS Cloud
CMS技巧 中的 ZBLOG增加文章里的关键字替换
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2010-01-03 浏览: 59 ::
收藏到网摘: 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
