您所在的位置:小祥子 » 编程 » ASP » 正文

ASP过滤脏话函数

时间:2015-01-24 编辑:佚名 来源:互联网

如今网络上发贴,如果有敏感信息随时都可能被封之类的,更重的还可能进去,所以如果你的ASP网站有发言的功能那就要注意了,一定要做好敏感信息过滤。

<%
Function ChkBadWords(fString)
Dim BadWords,bwords,i
BadWords = "狗|杂种|操" '这里面是需要过滤的文字,根据你的需要自己添吧。
IF(Not(IsNull(BadWords) or IsNull(fString)))THEN
bwords = Split(BadWords, "|")'遍历要过滤的内容
For i = 0 to UBound(bwords)
fString = Replace(fString, bwords(i), string(Len(bwords(i)),"*"))
Next
ChkBadWords = fString
END IF
End Function
%>
 

关键词:过滤 函数