if content="操" then
    response.write "<SCRIPT language=JavaScript>alert('不许说脏话 或 输入字符非法！');"
    response.write "this.location.href='vbscript:history.back()';</SCRIPT>"
    response.end

end if
%>
我想增加语句,比如说人家打个操字就不可以发表
而打个操1就可以了,求助``

可以使用循环来做
比如
<%
   Function IsIllegalBody(TxtBody)
           Dim lStr,lAry,i,IsHave
           lStr="非法关键词1|非法关键词2|非法关键词3"
           lAry=Split(lStr,"|")
           IsHave=False
           For i=0 To Ubound(lAry)
                  IF InStr(TxtBody,lAry(i))<>0 Then
                      IsHave=True
                  End IF      
           Next
           IsIllegalBody=IsHave
   End Function
   '调用测试代码
  Dim tStr
    tStr="这句话里含有非法关键词1"
    IF IsIllegalBody(tStr) Then
         Response.Write "含有不允许发布的内容"
   Else
         Response.Write "没有不允许发布的内容"
   End IF  
%>