ASP判断求助

可以使用循环来做
比如
<%
   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  
%>