asp常用的正则表达式实现字符串的替换

;= ClsTempLoseStr
    Set RegEx = Nothing
End Function

Function LoseObjectTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
        ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
        RegEx.Pattern = "(<object){1,}[^<>]*>[^\0]*(<\/object>){1,}"
        RegEx.IgnoreCase = True
        RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseObjectTag = ClsTempLoseStr
    Set RegEx = Nothing
End Function

Function LoseSpanTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
        ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
        RegEx.Pattern = "<(\/){0,1}span[^<>]*>"
        RegEx.IgnoreCase = True
        RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseSpanTag = ClsTempLoseStr
    Set RegEx = Nothing
End Function

Function LoseFontTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
        ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
        RegEx.Pattern = "<(\/){0,1}font[^<>]*>"
        RegEx.IgnoreCase = True
        RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseFontTag = ClsTempLoseStr
    Set RegEx = Nothing
End Function

Function LoseATag(ContentStr)
    Dim ClsTempLoseStr,RegEx
        ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
        RegEx.Pattern = "<(\/){0,1}a[^<>]*>"
        RegEx.IgnoreCase = True
        RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseATag&nb