在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
%>
