动网防恶意广告比较有效的办法附asp代码

1.
  进入后台,风格界面模板总管理,page_login,template.html(13) 


密码问题
忘记密码的提示问题


在此两句上面添加如下代码 



反论坛群发必填项:

为了防止群发软件的恶意注册,

请回答以下问题

{$EvilQuesion}




 



2. 打开reg.asp,找到

在其下添加

找到
TempLateStr=Replace(TempLateStr,"{$user_belief}",Selectinfo(5))
在其下添加
Randomize
Session("EvilID")=int(Rnd*QuesionNum) 
TempLateStr=Replace(TempLateStr,"{$EvilQuesion}", QuesionArray(Session("EvilID")))
找到
Else
quesion=Request.form("quesion")
End If
在其下添加
If Request.Form("EvilAnswer")="" Then
ErrCodes=ErrCodes+"
  • "+"请填写防恶意注册问题!"
    End If

    If Not CheckEvil(Request.Form("EvilAnswer")) Then
    ErrCodes=ErrCodes+"
  • "+ "防恶意注册问题回答错误,请返回重试。"
    End If



    3. 增加一个新文件CheckEvil.asp,填写如下代码,并上传到论坛inc目录下,即 /inc/CheckEvil.asp。
    <%
    Dim QuesionArray(100)
    Dim AnswerArray(100)
    Dim QuesionNum
    QuesionNum=5 '请在这里正确设置问题的总数

    Function CheckEvil(Answer)
    Dim TrueAnswer
    If Session("EvilID")="" Then
    CheckEvil=False
    Exit Function
    End If
    TrueAnswer=CStr(AnswerArray(Session("EvilID")))
    If Answer=TrueAnswer Then
    CheckEvil=true
    End If


    End Function

    QuesionArray(0)="12的平方是多少?(数字)"
    AnswerArray(0)="144"
    QuesionArray(1)="中国最长的河流叫什么名字?"
    AnswerArray(1)="长江"
    QuesionArray(2)="“举头望明月”的下句是什么?(提示:低头??乡)"
    AnswerArray(2)="低头思故乡"
    QuesionArray(3)="“举头望明月”的下句是什么?(提示:低头??乡)"
    AnswerArray(3)="低头思故乡"
    QuesionArray(4)="中国史上唯一的女皇是谁?(提示:武?天)"
    AnswerArray(4)="武则天"

    %>
  • 你可能感兴趣的:(动网防恶意广告比较有效的办法附asp代码)