一个比较实用的asp函数集合类

")
    inWords=LCase(Trim(Str))
    For i=LBound(InvaildWord) To UBound(InvaildWord)
     If Instr(inWords,InvaildWord(i))>0 Then
      p_Error=1982
      AddErrorCode(105)
      ChkInvStr=True
      Exit Function
     End If
    Next
   Else
    AddErrorCode(104) '"

关键词：一个比较实用的asp函数集合类