使用asp过滤html字符-% Function FilterHTML(strToFilter) Dim objRegExp, Match, Matches &nbs...

首页>> asp >>使用asp过滤html字符

2021-2-23

分类： asp

使用asp过滤html字符

文章作者：清风

<% Function FilterHTML(strToFilter) Dim objRegExp, Match, Matches &n......

<%
Function FilterHTML(strToFilter)
     Dim objRegExp, Match, Matches
     Set objRegExp = New Regexp
     objRegExp.IgnoreCase = True
     objRegExp.Global = True
     '取闭合的<>
     objRegExp.Pattern = "<.+?>"
     '进行匹配
     Set Matches = objRegExp.Execute(strToFilter)
     ' 遍历匹配集合，并替换掉匹配的项目
     For Each Match in Matches
     strToFilter=Replace(strToFilter,Match.Value,"")
     Next
     FilterHTML=strToFilter
     Set objRegExp = Nothing
End Function
%>

过滤ＵＢＢ
<%
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
%>