最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
ZBLOG增加文章里的关键字替换
时间：2022-07-02 13:46:30 编辑：袖梨 来源：一聚教程网
内关键字替换
Function AddLink(str)
Dim Rs
Set Rs = objConn.Execute("Select [Keys],[LinkUrl],[LinkTitle],[LinkWindow] FROM [blog_KeyLink]")
While Not Rs.eof
if instr(str,Rs(0))>0 then
AddLink=Replace(str,Rs(0),"")
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][][key]"),"[html-japan][vbCrlf][upload]"))
End Property
相关文章
- 方块英雄传好玩吗 方块英雄传玩法简介 05-27
- 《Forza Horizon 6》媒体评分汇总 05-27
- ARC Raiders：如何完成迷失在传输中的任务 05-27
- 勇者幻兽录：各平台福利礼包对比分析哪家渠道更超值 05-27
- Debian Strings：系统更新操作指南 05-27
- 网易云音乐电脑版如何解锁灰色版权歌曲-亲测可用的网易云音乐电脑版灰色版权歌曲解锁教程 05-27