ASP敏感不良字符过滤函数

表单用户提交数据的时候，用户注册的时候，一些表单栏目我们需要做敏感不良字符过滤，去掉一些违法敏感字符，编程之家下面跟大家分享：ASP敏感不良字符过滤函数

ASP敏感不良字符过滤函数代码

<%

Function ChkBadWords(fString)

Dim BadWords,bwords,i

BadWords = "狗|系统|中奖|000|王八|编程之家" '这里面是需要过滤的文字，根据你的需要自己添吧。

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

%>

编程之家温馨提醒：示例中仅列出若干字符，可根据你的需要自己添加较多的过滤文字，从整体来说，函数简单实用，可用于用户注册用户名过滤，留言吧过滤等等。