字符过滤函数

Function ChkInvalidWord(Words)
 Const InvalidWords = "select|update|delete|insert|@|--|,|'"
 
 ChkInvalidWord = True
 InvalidWord = Split(InvalidWords, "|")
 inWords = LCase(Trim(Words))
 
 For i = LBound(InvalidWord) to UBound(InvalidWord)
  If Instr(inWords, InvalidWord(i)) > 0 Then
   ChkInvalidWord = True
   Exit Function
  End If
 Next
 
 ChkInvalidWord = False
End Function