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

%>