asp正则去除html属性,asp去掉html，保留img br p div的正则实现代码

ASP 过滤HTML标签只剩

Function ReplaceContent(ContentStr)

Dim ClsTempLoseStr,regEx

If Isnull(ContentStr) Or Trim(ContentStr)="" Then

ReplaceContent=""

Exit Function

End If

ContentStr = Replace(ContentStr, "
", "[Br]")

ContentStr = Replace(ContentStr, "
", "[Br]")

ContentStr = Replace(ContentStr, "

", "[P]")

ContentStr = Replace(ContentStr, "

", "[/P]")

ClsTempLoseStr = Cstr(ContentStr)

Set regEx = New RegExp

regEx.Pattern = "]+>"

regEx.IgnoreCase = True

regEx.Global = True

ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,"")

ClsTempLoseStr = Replace(ClsTempLoseStr, "[Br]", "
")

ClsTempLoseStr = Replace(ClsTempLoseStr, "[P]", "

")

ClsTempLoseStr = Replace(ClsTempLoseStr, "[/P]", "

")

ReplaceContent = ClsTempLoseStr

Set regEx = Nothing

End Function

Function RemoveP(strText)

Dim RegEx

Set RegEx=New RegExp

RegEx.IgnoreCase=True

RegEx.Global=True

RegEx.Pattern="

]*>"

RemoveP=RegEx.Replace(strText,"[P]")

End Function

Function RemoveImg(strText)

Dim RegEx

Set RegEx=New RegExp

RegEx.IgnoreCase=True

RegEx.Global=True

RegEx.Pattern="]*>"

RemoveImg=RegEx.Replace(strText,"{img src=""$1"" border=0}")

End Function

Function ImgRemove(strText)

Dim RegEx

Set RegEx=New RegExp

RegEx.IgnoreCase=True

RegEx.Global=True

RegEx.Pattern="{img [^{]*src=""(.*)""[^}]*}"

ImgRemove=RegEx.Replace(strText,"")

End Function

Response.Write(ImgRemove(ReplaceContent(RemoveImg(RemoveP(html)))))

%>