Active network anti-malicious advertising more effective way to attach ASP code _ Application Skills

Source: Internet
Author: User
1.
Enter backstage, style interface template Total Management, page_login,template.html (13)

<TR>
&LT;TD class=tablebody1><b> Password issues </B>:<BR> forgotten password hints Questions </TD>


Add the following code to these two sentences

<TR>
&LT;TD class=tablebody1>
<div style= "color:red" ><b> anti-forum mass must fill:</b></div>
<div> to prevent the malicious registration of mass software,</div>
<div> please answer the following questions </div>
<div style= "color:blue;font-size=18px" ><b>{$EvilQuesion}<b></div>


</TD>
&LT;TD class=tablebody1><input size=30 name=evilanswer> </TD>
</TR>


2. Open reg.asp and find
<!--#include file= "inc/md5.asp"-->
under which you add
<!--#include file= "inc/checkevil.asp"-->
Found it
Templatestr=replace (Templatestr, "{$user _belief}", Selectinfo (5))
under which you add
Randomize
Session ("Evilid") =int (Rnd*quesionnum)
Templatestr=replace (Templatestr, "{$EvilQuesion}", Quesionarray (Session ("Evilid"))
Found it
Else
Quesion=request.form ("Quesion")
End If
under which you add
If Request.Form ("evilanswer") = "" Then
errcodes=errcodes+ "<li>" + "Please fill out the problem of malicious registration!"
End If

If not Checkevil (Request.Form ("Evilanswer")) Then
errcodes=errcodes+ "<li>" + "anti-malicious registration problem answer error, please return to try again." "
End If



3. Add a new file checkevil.asp, fill in the following code, and upload to the Forum Inc directory, that is,/inc/checkevil.asp.
<%
Dim Quesionarray (100)
Dim Answerarray (100)
Dim Quesionnum
Quesionnum=5 ' Please set the total number of problems here correctly

Function Checkevil (Answer)
Dim Trueanswer
If session ("evilid") = "" Then
Checkevil=false
Exit Function
End If
Trueanswer=cstr (Answerarray ("Evilid"))
If Answer=trueanswer Then
Checkevil=true
End If


End Function

Quesionarray (0) = "12 squared is how much?" (digital) "
Answerarray (0) = "144"
Quesionarray (1) = "What is the name of the longest river in China?" "
Answerarray (1) = "Changjiang River"
Quesionarray (2) = "What is the next sentence of" Looking up at the moon "? (Hint: Bow down??) Township) "
Answerarray (2) = "head down and think of home"
Quesionarray (3) = "What is the next sentence of" Looking up at the moon "? (Hint: Bow down??) Township) "
Answerarray (3) = "head down and think of home"
Quesionarray (4) = "Who is the only empress in the history of China?" (Hint: Wu Tian) "
Answerarray (4) = "Empress Wu"

%>
Related Article

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.