ASP敏感词汇过滤函数
生活随笔
收集整理的這篇文章主要介紹了
ASP敏感词汇过滤函数
小編覺(jué)得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.
function chkword(contents)
dim InvaildWords,InvaildWord,i
InvaildWords="詞匯1|詞匯2" '需要過(guò)濾得字符以“|”隔開(kāi)，最后結(jié)束的字符必須是|
InvaildWord=Split(InvaildWords,"|")
For i=LBound(InvaildWord) To UBound(InvaildWord)-1
if InStr(contents,InvaildWord(i))>0 then
chkword=true exit forelsechkword=false
End If
next
end function
Function ChkInvaildWord(Words)
Const InvaildWords="詞匯1|詞匯1|" '需要過(guò)濾得字符以“|”隔開(kāi)，最后結(jié)束的字符必須是|
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
總結(jié)
以上是生活随笔為你收集整理的ASP敏感词汇过滤函数的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。
- 上一篇： []End of 2017OI
- 下一篇： eclipse maven jetty插