ASP正则表达式清除HTML指定标签的方法


在HTML编辑器发布过程中,会出现一些自动生成的HTML标签,或者在留言板程序应用过程中,也会出现有人恶意写入一些HTML代码的情况,所以怎么精准的过滤掉某些特定的属性标签和参数呢?下面是代码:

 <%

Function ReplaceText(fString,patrn,replStr)
 Set regEx = New RegExp   建立正则表达式 。
 regEx.Pattern = patrn   设置模式 。
 regEx.IgnoreCase = True  设置是否区分大小写 。
 regEx.Global = True    设置全局可用性 。 
 ReplaceText = regEx.Replace(""&fString&"",""&replStr&"")  作替换 。
 Set regEx=nothing
End Function

Function MBrow(str)
 str=ReplaceText(str,"data-scayt_word=""([^""]*)""","") 把蓝色部分的属性修改为自己所过滤的属性名称即可
 str=ReplaceText(str,"data-scaytid=""([^""]*)""","")  红色部分则是过滤掉属性后面双引号中的质
 MBrow = str
End Function

%>

本文告诉大家使用ASP正则表达式来实现过滤功能,如何利用ASP正则表达式清除HTML指定标签,希望对大家的学习有所帮助 。