导读：非法关键词过滤程序 Public Function FilterBadWord(str) If str = Or IsNull(str) Then FilterBadWord = Exit Function End If Dim i,badWordSplit,filterSplit badWordSplit = Split(Cfg.badWordFilter,|) For i = 0 To UBound(badWordSplit) filterSplit...
非法关键词过滤程序
Public Function FilterBadWord(str)
If str = "" Or IsNull(str) Then
FilterBadWord = ""
Exit Function
End If
Dim i,badWordSplit,filterSplit
badWordSplit = Split(Cfg.badWordFilter,"|")
For i = 0 To UBound(badWordSplit)
filterSplit = Split(badWordSplit(i),",")
If InStr(1,str,filterSplit(0),1) Then str = Replace(str,filterSplit(0),filterSplit(1))
Next
FilterBadWord = str
End Function
使用方法
dim stra
stra = FilterBadWord(request.Form(fom))
