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

所属分类: 网络编程 / ASP编程 阅读数: 618
收藏 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。 
更多精彩内容其他人还在看

ASP编程入门进阶(廿一):DAO SQL之建立数据库表

ASP编程入门进阶(廿一):DAO SQL之建立数据库表
收藏 0 赞 0 分享

ASP万用分页程序

这只是个asp小技巧类的东西,它虽然适合在每个不同文件名里调用这个函数,但是也是有前提的,下面让我们来仔细看看其中的原委
收藏 0 赞 0 分享

ASP项目中的公共翻页模块

ASP项目中的公共翻页模块
收藏 0 赞 0 分享

asp实现批量录入数据的实现

asp实现批量录入数据的实现
收藏 0 赞 0 分享

从文本文件中读取信息并存储入数据库

从文本文件中读取信息并存储入数据库
收藏 0 赞 0 分享

在ASP中使用均速分页法提高分页速度

在ASP中使用均速分页法提高分页速度
收藏 0 赞 0 分享

一些值得一看的代码asp

这篇文章主要介绍了一些值得一看的代码asp
收藏 0 赞 0 分享

3种不同的方法生成文件

3种不同的方法生成文件
收藏 0 赞 0 分享

校验算法与ASP程序

这篇文章主要介绍了校验算法与ASP程序
收藏 0 赞 0 分享

ASP抽取数据的执行效率

ASP抽取数据的执行效率
收藏 0 赞 0 分享
查看更多