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

sp;= ClsTempLoseStr
    Set RegEx = Nothing
End Function

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

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

Function LoseNoteTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
        ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
        RegEx.Pattern = "<!--\/*[^<>]*-->"
        RegEx.IgnoreCase = True
        RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseNoteTag = ClsTempLoseStr
    Set RegEx = Nothing
End Function

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