手机
当前位置:查字典教程网 >编程开发 >ASP教程 >新增加一个防垃圾评论的asp代码,鄙视垃圾
新增加一个防垃圾评论的asp代码,鄙视垃圾
摘要:最近开通了,可以发表评论就一直被垃圾评论和留言困扰,一直没有找到很好的解决办法。事实上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代码大全第1/2页

Asp遍历服务器对象的代码

FSO一些代码

整理了一个editplus的剪辑文件(ASP方面的内容)

上一篇,下一篇过程代码

一个实用的FSO-实时统计在线人数

记录集内随机取记录的代码

本人常用的分页代码

非常不错的列出sql服务器上所有数据库的asp代码

ASP整理一些实用的速查代码

精品推荐
分类导航