小货工作室

今天和师兄师姐喝了散伙酒后又去唱K,闹了一晚上回到宿舍睡不着了~
只好跑到3楼来上网
看着自己的BLOG评论空荡荡的
很想恢复一下评论功能
但是我又担心会有太多垃圾广告~
上网搜了一下解决方案,还真的发现了个好东西~
老方法,保存一份~

问题式验证码 for LBS^2
代码中的问题可以自己设置，我设置的都是比较简单的10以内加减法计算。你也可以设置一些问题。中文也可以。
这样做的好处是验证码更直观，用户体验更好。而且也可以起到一定的防止spam的目的，毕竟每个人的问题不同。
代码如下：

<br/><script language=”VBScript” runAt=”server”><br/>Function getcode()<br/>Dim QuesionNum<br/>QuesionNum=10 ‘问题的总数,如要添加问题,请先修改这个数值<br/>Dim CodeIndex<br/>CodeIndex=0<br/>Dim QuesionArray(100)<br/>Dim AnswerArray(100)<br/>QuesionArray(0)=”= 1 + 2″ ‘问题列表及答案,可自行修改<br/>AnswerArray(0)=”3″<br/>QuesionArray(1)=”= 2 + 2″<br/>AnswerArray(1)=”4″<br/>QuesionArray(2)=”= 3 + 4″<br/>AnswerArray(2)=”7″<br/>QuesionArray(3)=”= 2 + 4″<br/>AnswerArray(3)=”6″<br/>QuesionArray(4)=”= 1 + 2″<br/>AnswerArray(4)=”3″<br/>Randomize<br/>CodeIndex = Int((QuesionNum * Rnd) + 0)<br/>Session(“lbsSecurityCode”) = AnswerArray(CodeIndex)<br/>getcode = QuesionArray(CodeIndex)<br/>End Function<br/></script><br/>
LBS^2使用方法：
1.将整个代码保存到_common.asp
2.在login.asp，global.asp，register.asp文件中查找

<br/><img src=”scode.asp?rnd=<%=Math.random()%>” /><br/>用<%=getcode()%>替换。<br/>

<br/> 建议不替换，而采用这样的形式:<br/><!–<img src=”scode.asp?rnd=<%=Math.random()%>” />–><%=getcode()%><br/>有问题时以便还原