asp敏感词汇过滤和字数判断,适用于留言/评论

    选择打赏方式

代码:

Function ChkInvaildWord(InvaildWords,Words)
    ChkInvaildWord = True
    InvaildWord    = Split(InvaildWords,"|")
    inWords        = LCase(Trim(Words))
    For i = LBound(InvaildWord) To UBound(InvaildWord)
        If InStr(inWords,InvaildWord(i)) > 0 Then
            ChkInvaildWord = True
            Exit Function
        End If
    Next
    ChkInvaildWord = False
End Function

Function getStringLen(str)
    On Error Resume Next
    Dim l
    Dim c
    Dim i
    Dim t
    l  = Len(str)
    t  = l
    For i = 1 To l
        c = Asc(Mid(str,i,1))
        If c >= 128 Or c < 0 Then t = t + 1
    Next
    getStringLen = t
    If Err.Number <> 0 Then Err.Clear
End Function

使用方法:

if ChkInvaildWord("测试|敏感",rf("pinglun")) then
Call alert_back("内容含有违规词,请修改后再提交!")
end if

if getStringLen(rf("pinglun")) < 3 then
Call alert_back("内容不足3字,请修改后再提交!")
end if
版权声明:若无特殊注明,本文为《明月浩空》原创,转载请保留文章出处。
本文链接:https://lmih.cn/asp_chkInvaildword.html
正文到此结束

热门推荐

发表吐槽

你肿么看?

你还可以输入 250 / 250 个字

嘻嘻 大笑 可怜 吃惊 害羞 调皮 鄙视 示爱 大哭 开心 偷笑 嘘 奸笑 委屈 抱抱 愤怒 思考 日了狗 胜利 不高兴 阴险 乖 酷 滑稽

评论信息框
可使用QQ号实时获取昵称+头像

私密评论

吃奶的力气提交吐槽中...

已有1条吐槽

倪佳

2021-06-04 19:26 重庆市电信
face 好羞射,文章真的好赞啊,顶博主!
 Windows 10 x64   Google Chrome 91.0.4472.77
倪佳