ASP删除img标签的style属性只保留src的正则函数（删除一个img元素的标题）这都可以？

🌐 经济型：买域名、轻量云服务器、用途：游戏网站等《腾讯云》特点：特价机便宜适合初学者用点我优惠购买

🚀 拓展型：买域名、轻量云服务器、用途：游戏网站等《阿里云》特点：中档服务器便宜域名备案事多点我优惠购买

🛡️ 稳定型：买域名、轻量云服务器、用途：游戏网站等《西部数码》特点：比上两家略贵但是稳定性超好事也少点我优惠购买

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, “<img “, vbCrLf & “<img “, 1, -1, 1)
    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=”<img.*?\ssrc=https://www.jb51.net/article/([^””\’\s][^””\’\s>]*).*?>”
    sReallyDo=regEx.Replace(sReallyDo, “<img src=”https://www.jb51.net/article/”$1″” />”)
    ‘//正则匹配图片SRC地址
    regEx.Pattern=”<img.*?\ssrc=https://www.jb51.net/article/([“”\’])([^””\’]+?)\1.*?>”
    sReallyDo=regEx.Replace(sReallyDo, “<img src=”https://www.jb51.net/article/”$2″” />”)
    FixImg=sReallyDo
End Function