我现在能对我写入数据库里的脏字进行过滤！如“发票”，但是现在有一个问题，如果输入“我的发票”，还是能写入进去！怎样能做到一句话里有一个“脏字”，都不能写入数据库！
这是对“aaa”单体脏字的过滤！ 该怎么改了？？？？
Sqltr="select badwords from badword"
Set rs2= Server.CreateObject("ADODB.RecordSet")
rs2.open Sqltr,Conn,1,1
dim bad
bad=rs2("badwords")
function IsRoll(BodyStr)
dim RollStr,Ibound,tBody
RollStr=array(bad)
Ibound=Ubound(RollStr)
for i=0 to Ibound
tBody=Replace(BodyStr,RollStr(i),"")
next
If tBody=BodyStr Then
IsRoll=False
Else
IsRoll=True
End IF
end function
if IsRoll(GBookBody) or IsRoll(GBookTitle) then
response.Write("<script language='JavaScript'>alert('有违规内容')</script>")
else
'保存留言

SQLStr="Insert Into

[此贴子已经被作者于2007-7-23 10:17:09编辑过]

把脏话用这样：脏话/脏话2/脏话3 用“/”阁起来然后在像你上面的做一个一个去检索，不就行了。

数据库我是照你说的那样，怎么才能一个一个去检索？？？？

最好的办法就是2楼的那种
数据库里的过滤字以那种形式存储。

我现在数据库里存的就是“毛泽东|发票|传奇”

那怎么检索了？？？？

function IsRoll(BodyStr)
dim RollStr,Ibound,tBody
RollStr=Split(bad,"|")
Ibound=Ubound(RollStr)
for i=0 to Ibound
tBody=Replace(BodyStr,RollStr(i),"")
next
If tBody=BodyStr Then
IsRoll=False
Else
IsRoll=True
End IF
end function
就改一句话就可以(红字的那句)。