最新下载
热门教程
- 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
相关文章
- linux 查看文件内容具体的某一行数据 09-26
- Ubuntu系统怎么安装Flash Player应用? 09-26
- linux插入耳机以后没有声音该怎么办? 09-26
- Linux系统中矢量图ai格式怎么打开? 09-26
- Linux怎么创建副本? Linux创建副本的教程 09-26
- linux下系统中网页版钉钉加密消息无法查看怎么办? 09-26