asp 非法关!键词过滤程序

非法关键词过滤程序

Public Function FilterBadWord(str)
  If str = "" Or IsNull(str) Then
   FilterBadWord = ""
   Exit Function
  End If
  Dim i,badWordSplit,filterSplit
  badWordSplit = Split(Cfg.badWordFilter,"|

使用方法
dim stra
stra = FilterBadWord(request.Form(fom))