繁體中文当前位置: 首页 > 图文教程 > 网页制作 > CMS技巧 > ZBLOG增加文章里的关键字替换
- CMS技巧
- 如何为Wordpress页面使用另一个样式表
- WordPress的MySQL连接出错监测方法
- Z-Blog转换到WordPress的SQL语句
- KingCMS广告标签的使用方法
- PJBlog首页调用日志的实现方法
- 新云CMS技巧:发表文章并生成HTML
- 新云CMS问题解答：大类和子类的问题
- 新云CMS:修改、创建和应用模板
- 新云CMS建站：初学者使用教程
- 新云CMS：遇到的常见问题
- 新云CMS:部分模板标签说明
- 轻松建立自己的网站 动易系统帮你完成
- 动易2006版模板教程:版式模板管理
- 动易模板常用CSS修改操作技巧
- 动易网站风格模板管理
- 动易2006版模板方案的导入、导出
- WordPress优化(3):图片和下载防盗链
- WordPress优化(1):Gzip压缩CSS和JS
- WordPress优化(2):cacheAsFile静态网页
- Zblog首页文件静态化的方法
CMS技巧 中的 ZBLOG增加文章里的关键字替换
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2010-01-03 浏览: 51 ::
收藏到网摘: 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
