ASP 过滤HTML

直接在ASP脚本中用，如下（测试成功哦）：

过滤图片或HTML
dim regEx,str
str="<p>文字文字文字文字文字文字文字文字文字文字文字文字文字<img src='***/***.jpg' width=100 height=100>文字文字文字文字文字文字文字文字文字文字文字文字文字文字文字 </p> "
Set regEx = New RegExp   ' 建立正则表达式。
   regEx.Pattern = "<img[^>]*>"' 设置模式。
   regEx.IgnoreCase = True   ' 设置是否区分字符大小写。
   regEx.Global = True   ' 设置全局可用性。
   Response.Write(regEx.replace(str,""))

过滤HTML所有
Dim RegEx
    Set RegEx = New RegExp
    RegEx.Pattern = "<[^>]*>"
    RegEx.Global = True
    RemoveHTML = RegEx.Replace(strText, "")

------------------------
Asp过滤Html代码方法一 

Function RemoveHTML(strHTML)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'取闭合的<>
objRegExp.Pattern = "<.+?>"
'进行匹配
Set Matches = objRegExp.Execute(strHTML)