首页 > 开发 > Asp > 正文

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

2020-06-20 13:08:44
字体:
来源:转载
供稿:网友
最近开通了,可以发表评论就一直被垃圾评论和留言困扰,一直没有找到很好的解决办法。事实上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。 

您可能感兴趣的文章:

PHP用strstr()函数阻止垃圾评论(通过判断a标记)php中使用Akismet防止垃圾评论的代码自动发帖机的斗争过程防止垃圾评论的几个方法总结php的ZipArchive类用法实例php自定义apk安装包实例php防止站外远程提交表单的方法php获取textarea的值并处理回车换行的方法php实现给图片加灰色半透明效果的方法PHP清除数组中所有字符串两端空格的方法php实现删除指定目录下相关文件的方法PHP中加密解密函数与DES加密解密实例php实现过滤表单提交中html标签的方法PHP实现通过中文字符比率来判断垃圾评论的方法
发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表