源码网商城,靠谱的源码在线交易网站 我的订单 购物车 帮助

源码网商城

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

  • 时间:2021-03-28 23:03 编辑: 来源: 阅读:
  • 扫一扫,手机访问
摘要:新增加一个防垃圾评论的asp代码,鄙视垃圾
最近开通了,可以发表评论就一直被垃圾评论和留言困扰,一直没有找到很好的解决办法。事实上wordpress有一些强悍的插件可以防治spam,比如Akismet,不过这只能让我留着口水羡慕,因此最近一直在寻找一个相对较好的解决方案。
今天在Bigik.cn上看到一个不错的方法,Bigik使用加法运算形式的用户验证来解决这个问题。现把方法转载过来。当然这个方法不是很完善,我发现还会有一些spam进来。  使用方法:  程序代码 
[u]复制代码[/u] 代码如下:
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 
调用方法:
[u]复制代码[/u] 代码如下:
<%response.write getnum()%>
其他修改建议:  问题可以设置为加减乘除任意问题或者其他文字问题,例如“987 x 654 = ?”、“中国有几个少数民族?”等等,不要让浏览者答不上就可以了:P。  建议将验证码输入框宽度改小些,且最大输入字符数设置为2。 
  • 全部评论(0)
联系客服
客服电话:
400-000-3129
微信版

扫一扫进微信版
返回顶部