如何给文章中的图片加上超链接

最新推荐文章于 2022-09-09 20:59:34 发布

biangaofu1239

最新推荐文章于 2022-09-09 20:59:34 发布

阅读量260

点赞数

本文链接：https://blog.csdn.net/biangaofu1239/article/details/53974875

版权

如何给文章中的图片加上超链接，下面这段代码虽然可以实现，但是原有的alt width,height标签都没了。
需要怎么实现呢？



Function FormatImg(content) 

dim re 

Set re=new RegExp 

re.IgnoreCase =true 

re.Global=True 

re.Pattern="(script)" 

Content=re.Replace(Content,"script") 

re.Pattern="<img.[^>]*src(=| )(.[^>]*)>" 

Content=re.replace(Content,"<a href=$2><img src=$2 title=""点击浏览大图"" border=""0""/></a>") 

set re = nothing 

FormatImg = content 

End Function