ASP敏感词汇过滤函数

function chkword(contents)
dim InvaildWords,InvaildWord,i
InvaildWords="词汇1|词汇2"        '需要过滤得字符以“|”隔开，最后结束的字符必须是|
InvaildWord=Split(InvaildWords,"|")
For i=LBound(InvaildWord) To UBound(InvaildWord)-1
if  InStr(contents,InvaildWord(i))>0 then
chkword=true	 
    exit for
    else
    chkword=false
End If
next
end function
Function ChkInvaildWord(Words) 
Const InvaildWords="词汇1|词汇1|"  '需要过滤得字符以“|”隔开，最后结束的字符必须是| 
ChkInvaildWord=True 
InvaildWord=Split(InvaildWords,"|") 
inWords=LCase(Trim(Words)) 
For i=LBound(InvaildWord) To UBound(InvaildWord) 
If Instr(inWords,InvaildWord(i))>0 Then 
ChkInvaildWord=True 
Exit Function 
End If 
Next 
ChkInvaildWord=False 
End Function