asp 非法關鍵詞過濾程序

　　非法關鍵詞過濾程序

　　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))

From:http://tw.wingwit.com/Article/program/net/201311/14293.html