现在问题是插入不了留言，总提示“有违规内容”，我的想法是把脏字都存在数据库里！提交留言时就判断是否是脏字！

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
RollStr=Array(bad)
Ibound=Ubound(RollStr)
for i=0 to Ibound
if instr(BodyStr,RollStr(i))<>0 then
IsRoll=true
exit Function
end if
next
IsRoll=false
end function
if IsRoll(GBookBody) and IsRoll(GBookTitle) then
response.Write("<script language='JavaScript'>alert('有违规内容')</script>")
else
'保存留言
SQLStr="Insert Into 。。。

你是不是数据有问题？？？

一般可以用Replace函数直接过滤比如
<%
Dim Str
Str="abcTMDabc"
Response.Write Replace(Str,"TMD","")
%>

不是的，我把RollStr=Array(bad)改成RollStr=Array(“贱人”)，就正确。

高手，帮忙看看呀！

可以用Replace过滤如果楼主说的那种有违规内容显示提示的。
个人想的解决办法是Replace函数过滤到指定字符会改变字符串，而没有过滤到指定字符会返回原始字符串。
借助这一特点可以将过滤后的字符串与原始字符串进行比较，向等则证明没有违规内容，不等则证明有违规内容存在。

那请问，我该怎么改？
需要过滤的内容是数据库里！给个完整的代码，让我看看把！

bad=rs2("badwords")
改成
bad=rs2(0)

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) and IsRoll(GBookTitle) then
response.Write("<script language='JavaScript'>alert('有违规内容')</script>")
else
'保存留言
SQLStr="Insert Into 。。。
修改后的代码