<%

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

%>