繁體中文当前位置: 首页 > 图文教程 > 网页制作 > CMS技巧 > ZBLOG增加文章里的关键字替换
- CMS技巧
- DedeCMS游客投稿功能的实现方法
- 保证WordPress安全的方法
- 如何在IE8建立和安装Web Slice
- 修改WordPress默认管理员帐户名
- Zblog博客每个页面有切换特效的实现方法
- 优化dedecms栏目列表分页链接
- SupeSite模板中的代码代表什么意思
- Discuz! info: MySQL Query Error
- 教程:SupeSite 7.0资讯分类及内容页面
- DedeAMPZ快速配置php+mysql环境
- DedeCMS安装环境介绍和DedeCMS基本结构
- Discuz!设置技巧:添加创始人
- 将Asaph整合到Wordpress中
- 实现WordPress文章页面的相关文章列表代码
- zlib压缩WordPress
- Joomla教程:jtablesession::Store Failed错误解决方法
- Joomla 1.5版本建设网站教程全攻略
- CMS概念，国内好的CMS推荐
- 12款非常有用的插件为你的WordPress安装扩展CMS功能
- 制作WordPress主题的10个技巧
CMS技巧 中的 ZBLOG增加文章里的关键字替换
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2010-01-03 浏览: 56 ::
收藏到网摘: 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
