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 标记
"'