asp过滤掉不安全的HTML标记script,iframe,object

如果要提交的HTML代码，如果含有script，iframe,frameset等标记，对网站本身会构成一定的潜在威胁，可以在写入数据库之前把这些不完全的html标记给过滤掉。
注：
1.对于单标记(如：<hr />,<br />等)，因其对网站本身不会构成威胁，不属于这个函数的过滤范围。
2.参数strHTML：待过滤处理的HTML代码内容
3.参数strTAGs：为待过滤掉的HTML标记名，各标记名以英文逗号( , )为间隔
代码如下:

<% 
Function lFilterBadHTML(byval strHTML,byval strTAGs) 
 Dim objRegExp,strOutput 
 Dim arrTAG,i 
 arrTAG=Split(strTAGs,",") 
 Set objRegExp = New Regexp 
 strOutput=strHTML 
 objRegExp.IgnoreCase = True 
 objRegExp.Global = True 
 For i=0 to UBound(arrTAG) 
 objRegExp.Pattern = "<"&arrTAG(i)&"[\s\S]+</"&arrTAG(i)&"*>" 
 strOutput = objRegExp.Replace(strOutput, "") 
 Next 
 Set objRegExp = Nothing 
 lFilterBadHTML = strOutput 
End Function
%>

使用方法：

<%
    Dim sPageCont 
    sPageCont= "...网页正文内容..." 
    sPageCont=FilterBadHTML(sPageCont,"script,iframe,object,table") 
%>