您现在的位置是：网站首页> 编程资料编程资料

动网防恶意广告比较有效的办法附asp代码_应用技巧_

2023-05-25 231人已围观

简介 动网防恶意广告比较有效的办法附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)="武则天"

    %>

    上一篇：删除A表中在B表中不存在的数据_应用技巧_

    下一篇：asp磁盘缓存技术使用的代码_应用技巧_

    • 相关内容

    点击排行

    本栏推荐

    猜你喜欢