asp 去除html代码,asp中去除html中style,javascript,css代码

asp函数代码

Function RemoveHTML(str)

Dim objRegExp, Match,strHTML

if isnull(str) then

str=""

end if

strHTML=str

strHTML=replace(replace(replace(strHTML,vblf,""),vbcr,""),vbcrlf,"")

Set objRegExp = New Regexp

objRegExp.IgnoreCase = True

objRegExp.Global = True

objRegExp.Pattern = ""

strHTML = objRegExp.Replace(strHTML,"")

objRegExp.Pattern = ""

strHTML = objRegExp.Replace(strHTML,"")

objRegExp.Pattern = "<.>"

strHTML = objRegExp.Replace(strHTML,"")

Set objRegExp = Nothing

RemoveHTML=strHTML

End Function

%>

php中的代码

$search = array ("''si", // 去掉 javascript

"''si", // 去掉 css

"']*?>'si", // 去掉 HTML 标记

"'