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
asp去除字符串中的html标记
最新推荐文章于 2021-06-07 14:27:54 发布