Public Function FilterBad(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))
恋爱进行时九游版
恋爱进行时九游版是一款以模拟恋爱玩法为核心的角色扮演手游,精
皇室对决fr(Null’s Royale)
皇室对决fr,即皇室战争的私服变态版本,在该版本中玩家能够拥
养了个猫联机版游戏
养了个猫小游戏一个猫咪主题的模拟经营类型的手游,在游戏中我那
模拟山羊收获日小米版
模拟山羊收获日小米版是一个极其魔性的手机游戏,在游戏中玩家将
女配逆袭之素衣
女配逆袭之素衣是一款恋爱养成冒险的一款游戏,可以角色扮演,在