用ASP过滤HTML代码

function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(\<.[^\<]*\>)"
str=re.replace(str," ")
re.Pattern="(\<\/[^\<]*\>)"
str=re.replace(str," ")
nohtml=str
set re=nothing
end function

Function DelHtml(Str1)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "(<[^>]*?>)"
regEx.Global = True
regEx.IgnoreCase = True
DelHtml = replace(regEx.Replace(""&str1,"")," ","")
End Function

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

Public Function LoseHtml(ContentStr)
On Error Resume Next
Dim TempLoseStr, regEx
If ContentStr="" or ContentStr=Null Then Exit Function
TempLoseStr = CStr(ContentStr)
Set regEx = New RegExp
regEx.Pattern = "<\/*[^<>]*>"
regEx.IgnoreCase = True
regEx.Global = True
TempLoseStr = regEx.Replace(TempLoseStr, "")
LoseHtml = TempLoseStr
End Function

function delHtmlTag(str){
return str.replace(/<\/?.+?>/g,"");//去掉所有的html标记
}

function delHtmlTag(str){
return str.replace(/<[^>]+>/g,"");//去掉所有的html标记
}

public Function RemoveHTML(strHTML)
ON ERROR RESUME NEXT
Dim objRegExp, strOutput
strHTML = replace(strHTML," ","")
strHTML = replace(strHTML,chr(13),"")
strHTML = replace(strHTML,chr(10),"")
strHTML = replace(strHTML,chr(32),"")

Set objRegExp = New Regexp
objRegExp.IgnoreCase = True '忽略大小写
objRegExp.Global = True '设置为全文搜索
objRegExp.Pattern = "<script.+?>[\s\S]+?<\/script>"
strOutput = objRegExp.Replace(strHTML, "")
objRegExp.Pattern = "<style.+?>[\s\S]+?<\/style>"
strOutput = objRegExp.Replace(strOutput, "")
objRegExp.Pattern = "<.+?>" '取闭合的<>
strOutput = objRegExp.Replace(strOutput, "")

strOutput = Replace(strOutput, "<", "〈")
strOutput = Replace(strOutput, ">", "〉")
RemoveHTML = strOutput
Set objRegExp = Nothing
End Function