<% 'Wrtten by i{At}CnLei.Com 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
'Example Dim sPageCont sPageCont= "...網(wǎng)頁正文內(nèi)容..." sPageCont=FilterBadHTML(sPageCont,"script,iframe,object,table") %>
