ASP删除img标签的style属性只保留src的正则函数_应用技巧_

 Function FixImg(sString)        Dim sReallyDo, regEx, iReallyDo     Dim oMatches, cMatch     Dim tStartTime, tEndTime     If IsNull(sString) Then         FixImg = ""         Exit Function     End If     sReallyDo = sString     On Error Resume Next     sReallyDo = Replace(sReallyDo, vbCr, " ")     sReallyDo = Replace(sReallyDo, vbLf, " ")     sReallyDo = Replace(sReallyDo, vbTab, " ")     sReallyDo = Replace(sReallyDo, "", " />", 1, -1, 1)     sReallyDo = ReplaceAll(sReallyDo, "= ", "=", True)     sReallyDo = ReplaceAll(sReallyDo, "> ", ">", True)     sReallyDo = Replace(sReallyDo, "><", ">" & vbCrLf & "<")     sReallyDo = Trim(sReallyDo)     On Error GoTo 0     Set regEx = New RegExp     regEx.IgnoreCase = True     regEx.Global = True     '//去除onclick,onload等脚本     regEx.Pattern = "\s[on].+?=([\""|\'])(.*?)\1"     sReallyDo = regEx.Replace(sReallyDo, "")     '//将SRC不带引号的图片地址加上引号     regEx.Pattern = "]*).*?>"     sReallyDo = regEx.Replace(sReallyDo, "")     '//正则匹配图片SRC地址     regEx.Pattern = ""     sReallyDo = regEx.Replace(sReallyDo, "")     FixImg = sReallyDo End Function

 var str = "" str = str.replace(/]*>/gi, function (match, capture) { return match.replace(/style\s*?=\s*?([‘"])[\s\S]*?\1/ig, '') })) console.log(str)

 var is=document.images; for(var i=0,len=is.length;i