[此贴子已经被作者于2007-8-31 9:39:50编辑过]

''''''''''替换模块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来判断

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