asp 非法关键词过滤程序

2015-08-12 16:03:09来源:作者:人点击

非法关键词过滤程序

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

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台