我在后台编辑器重设置了图片大小,正文生成的时候会被过滤掉。alt的值也会被替换。
怎么修改Function FormatImglink 才符合逻辑?
- Function FormatImglink(content,url,totalpage) dim re:Set re=new RegExp re.IgnoreCase =true re.Global=True '去除onclick,onload等脚本 're.Pattern = "\s[on].+?=([\""|\'])(.*?)\1" 'Content = re.Replace(Content, "") Dim LinkStr If TotalPage=1 Then LinkStr="href=""javascript:;"" onclick=""showimg('$2');""" Else LinkStr="href=""" & Url & """" End If '将SRC不带引号的图片地址加上引号 re.Pattern = "<img.*?\ssrc=([^\""\'\s][^\""\'\s>]*).*?>" Content = re.Replace(Content, "<a " & LinkStr & "><img src=""$2"" alt=""" & GetNodeText("title") & """ onload=""javascript:resizepic(this)"" border=""0""/></a>") '正则匹配图片SRC地址 re.Pattern = "<img.*?\ssrc=([\""\'])([^\""\']+?)\1.*?>" Content = re.Replace(Content, "<a " & LinkStr & "><img src=""$2"" alt=""" & GetNodeText("title") & """ onload=""javascript:resizepic(this)"" border=""0""/></a>") set re = nothing FormatImglink = content end function