非法关键词过滤程序
Public Function FilterBadWord(str)
If str = "" Or IsNull(str) Then
FilterBadWord = ""
Exit Function
End If
Dim ibadWordSplitfilterSplit
badWordSplit = Split(CfgbadWordFilter"|")
For i = To UBound(badWordSplit)
filterSplit = Split(badWordSplit(i)"")
If InStr(strfilterSplit()) Then str = Replace(strfilterSplit()filterSplit())
Next
FilterBadWord = str
End Function
使用方法
dim stra
stra = FilterBadWord(requestForm(fom))
