新增加一个防垃圾评论的asp代码,鄙视垃圾
新增加一个防垃圾评论的asp代码,鄙视垃圾
发布时间:2016-12-29 来源:查字典编辑
摘要:最近开通了,可以发表评论就一直被垃圾评论和留言困扰,一直没有找到很好的解决办法。事实上wordpress有一些强悍的插件可以防治spam,比...

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

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

使用方法:

程序代码

复制代码 代码如下:

Functiongetnum()

DimQuesionNum

QuesionNum=7'问题的总数,如要添加问题,请先修改这个数值

DimCodeIndex

CodeIndex=0

DimQuesionArray(100)

DimAnswerArray(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="<spanstyle=""margin-right:40px;"">"&QuesionArray(CodeIndex)&"</span>"

EndFunction

调用方法:

复制代码 代码如下:

<%response.writegetnum()%>

其他修改建议:

问题可以设置为加减乘除任意问题或者其他文字问题,例如“987x654=?”、“中国有几个少数民族?”等等,不要让浏览者答不上就可以了:P。

建议将验证码输入框宽度改小些,且最大输入字符数设置为2。

推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
相关阅读
网友关注
最新ASP教程学习
热门ASP教程学习
编程开发子分类