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

所属分类: 网络编程 / ASP编程 阅读数: 525
收藏 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 指南

ASP 指南
收藏 0 赞 0 分享

改进 ASP 的字符串处理性能

改进 ASP 的字符串处理性能
收藏 0 赞 0 分享

pjblog2的参数第1/2页

pjblog2的参数
收藏 0 赞 0 分享

ASP智能搜索的实现

ASP智能搜索的实现
收藏 0 赞 0 分享

网站生成静态页面攻略2:数据采集

网站生成静态页面攻略2:数据采集
收藏 0 赞 0 分享

网站生成静态页面攻略3:防采集策略

网站生成静态页面攻略3:防采集策略
收藏 0 赞 0 分享

网站生成静态页面攻略4:防采集而不防搜索引擎策略

网站生成静态页面攻略4:防采集而不防搜索引擎策略
收藏 0 赞 0 分享

简单分页函数一 常用

简单分页函数一 常用
收藏 0 赞 0 分享

asp最常用的分页函数

asp最常用的分页函数
收藏 0 赞 0 分享

LINE9的目录浏览源程序

LINE9的目录浏览源程序
收藏 0 赞 0 分享
查看更多