求屏蔽敏感文字的代码

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

Function ContentEncode(fString)
fString=Replace(fString,vbCrlf, "")
fString=Replace(fString,"\","\")
fString=Replace(fString,"'","'")

BannedText="江泽民|共产党|胡锦涛"
if BannedText<>"" then
filtrate=split(BannedText,"|")
for i = 0 to ubound(filtrate)
fString=ReplaceText(fString,""&filtrate(i)&"",string(len(filtrate(i)),"*"))
next
end if
contentEncode=fString
End Function

最后这样调用：

Content=ContentEncode(request.form("Content"))

BannedText="江 民|G D|胡 涛|word1|word2"
看懂了？


提示无法发表么……用Instr（"abcde","abc")>0来判断

建议直接和谐掉之后发表 何必提示无法发表呢