asp去除字符串中的html标记

Function DelHtml(ContentStr)
    Dim TempLoseStr, regEx
   TempLoseStr = CStr(ContentStr)
    Set regEx = New RegExp
    regEx.Pattern = "<//*[^<>]*>"
    regEx.IgnoreCase = True
    regEx.Global = True
    TempLoseStr = replace(regEx.Replace(TempLoseStr,"")," ","")
    DelHtml = TempLoseStr
End Function