gpt4 book ai didi

新增加一个防垃圾评论的asp代码,鄙视垃圾

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 27 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章新增加一个防垃圾评论的asp代码,鄙视垃圾由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

最近开通了,可以发表评论就一直被垃圾评论和留言困扰,一直没有找到很好的解决办法。事实上wordpress有一些强悍的插件可以防治spam,比如Akismet,不过这只能让我留着口水羡慕,因此最近一直在寻找一个相对较好的解决方案.

  。

今天在Bigik.cn上看到一个不错的方法,Bigik使用加法运算形式的用户验证来解决这个问题。现把方法转载过来。当然这个方法不是很完善,我发现还会有一些spam进来。   使用方法:   程序代码   。

复制代码代码如下

Function getnum()    Dim QuesionNum    QuesionNum=7  '问题的总数,如要添加问题,请先修改这个数值    Dim CodeIndex    CodeIndex=0    Dim QuesionArray(100)    Dim AnswerArray(100)    QuesionArray(0)="= 1 + 1"                       '问题列表及答案,可自行修改    AnswerArray(0)="2"    QuesionArray(1)="= 2 + 2"    AnswerArray(1)="4"    QuesionArray(2)="= 3 + 4"    AnswerArray(2)="7"    QuesionArray(3)="= 2 + 4"    AnswerArray(3)="6"    QuesionArray(4)="= 1 + 2"    AnswerArray(4)="3"    QuesionArray(5)="= 2 + 3"    AnswerArray(5)="5"    QuesionArray(6)="= 4 + 4"    AnswerArray(6)="8"    Randomize    CodeIndex =  Int((QuesionNum * Rnd) + 0)    Session("Getnum") = AnswerArray(CodeIndex)    getnum = "<span style=""margin-right:40px;"">" & QuesionArray(CodeIndex) & "</span>"    End Function   。

调用方法:  。

复制代码代码如下

<%response.write getnum()%>  。

其他修改建议:   问题可以设置为加减乘除任意问题或者其他文字问题,例如“987 x 654 = ?”、“中国有几个少数民族?”等等,不要让浏览者答不上就可以了:P。   建议将验证码输入框宽度改小些,且最大输入字符数设置为2。  。

最后此篇关于新增加一个防垃圾评论的asp代码,鄙视垃圾的文章就讲到这里了,如果你想了解更多关于新增加一个防垃圾评论的asp代码,鄙视垃圾的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

27 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com