繁體中文当前位置: 首页 > 图文教程 > 网页制作 > CMS技巧 > ZBLOG增加文章里的关键字替换
- CMS技巧
- Zblog帮助:模板文件与模板标签
- Joomla教程:模板覆盖方式修改系统输出
- Joomla教程:为Joomla插件创建语言包
- Joomla教程:文章页面中显示指定的模块
- Joomla教程:控制Section中的分类列表页面的显示方式
- Joomla教程:mod-rewrite是否真的被开启
- 在Joomla自定义HTML模块组合使用Google小工具
- Joomla教程:本地搭建的Joomla站点发送邮件
- Joomla教程:在Who is online模块中显示用户名
- dedecms教程:栏目页面转换为单独页面
- CMS可用性测评:帮助找到适合自己的内容管理系统
- Joomla中文教程:构建多重站点
- Joomla教程:在templateDetails.xml中添加语言文件声明
- Joomla教程:为页面和模块添加独立的自定义Class
- Joomla教程:为“read more”链接添加对应的文章标题
- Joomla教程:查看并修改模板的CSS
- Joomla中文教程:创建并使用插件对文章内容进行修改
- Joomla教程:网站首页第一次加载时播放一次Flash动画
- Joomla教程:禁止未分类文章被站内搜索
- Joomla教程:去掉分类文章列表中的文章序号
CMS技巧 中的 ZBLOG增加文章里的关键字替换
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2010-01-03 浏览: 55 ::
收藏到网摘: 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
