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

所属分类: 网络编程 / ASP编程 阅读数: 594
收藏 0 赞 0 分享
最近开通了,可以发表评论就一直被垃圾评论和留言困扰,一直没有找到很好的解决办法。事实上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。 
更多精彩内容其他人还在看

IIS访问ASP页面时报错The requested resource is in use.的解决办法

IIS访问ASP页面时报错The requested resource is in use.的解决办法
收藏 0 赞 0 分享

错误类型:Provider (0x80004005)未指定的错误 的一个处理方法

一般情况下asp可以正常运行,但只要连接数据库就提示,Microsoft JET Database Engine 错误'80004005'
收藏 0 赞 0 分享

关于“未指定的错误”的问题 的比较正解的解决方法

关于“未指定的错误”的问题 的比较正解的解决方法
收藏 0 赞 0 分享

关于asp+access的安全问题分析

关于asp+access的安全问题分析
收藏 0 赞 0 分享

把RS.GetRows看得更清楚

把RS.GetRows看得更清楚
收藏 0 赞 0 分享

ASP面向对象编程探讨及比较

ASP面向对象编程探讨及比较
收藏 0 赞 0 分享

ASP错误处理

ASP错误处理
收藏 0 赞 0 分享

web文件管理器的后续开发

web文件管理器的后续开发
收藏 0 赞 0 分享

上一篇,下一篇过程代码

上一篇,下一篇过程代码
收藏 0 赞 0 分享

一小偷类!!有兴趣的可以看看

一小偷类!!有兴趣的可以看看
收藏 0 赞 0 分享
查看更多