论坛防恶意注册方法大全

12345678

方法一

防恶意注册方法!!
看看本站的注册页面

http://bbs.DVLJD.cn/reg.asp

实现方法

先把根目录下的reg.asp更名为zc.asp

然后新建一个reg.asp.

代码如下:

[无需回复]
<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<%
Dvbbs.LoadTemplates("")
Dvbbs.Stats="注册指引"
Dvbbs.Nav()
Dvbbs.Head_var 0,"","会员注册","zc.asp"
call main()
Dvbbs.Footer

sub main()
%>
<div align="center">
<table border="1" width="98%" height="115">
 <tr>
  <td height="115" width="98%" bordercolorlight="#0000FF" bgcolor="#C0C0C0" bordercolor="#0000FF">
<p align="center">为防止暴力营销恶意注册，设立此页面。</p>
<p align="center"><font size="5">网友注册请点击：</font><b><a href="zc.asp"><font size="5">我要注册</font></a></b></p>
  <p>　</td>
 </tr>
</table>

</div>
<p>　</p>

<%
end sub
%>

补充：

然后进入“动网论坛”管理后台，打开外观风格界面，进入 page_login 页面，按 Ctrl + F，查找 reg.asp，统统换成zc.asp ，提交修改就可以了(成功).

方法二

1:把论坛中的reg.asp重命名，如改为zc.asp


2.把zc.asp中的所有reg.asp 替换成 zc.asp

3.修改模板：
把分页面模板page_login的界面风格中的(12)、(13)项中的"reg.asp?"修改为"zc.asp?"。具体的可以用我们压缩包里的两个TXT文件的内容覆盖，文件名为12的覆盖界面风格中的(12)，文件名为13的覆盖界面风格中的(13)。

从此再无广告骚扰!!!!

方法三:

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

<TR>
<TD class=tablebody1><B>密码问题</B>：<BR>忘记密码的提示问题</TD>

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

<TR>
<TD class=tablebody1>
<div style="color:red"><b>反论坛群发必填项:</b></div>
<div>为了防止群发软件的恶意注册，</div>
<div>请回答以下问题</div>
<div style="color:blue;font-size=18px"><b>{$EvilQuesion}<b></div>

</TD>
<TD class=tablebody1><INPUT size=30 name=evilanswer> </TD>
</TR>

2. 打开reg.asp，找到
<!--#include file="inc/md5.asp"-->
在其下添加
<!--#include file="inc/CheckEvil.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+"<li>"+"请填写防恶意注册问题!"
End If

If Not CheckEvil(Request.Form("EvilAnswer")) Then
ErrCodes=ErrCodes+"<li>"+ "防恶意注册问题回答错误，请返回重试。"
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)="武则天"

%>

方法四：

1.打开reg.asp文件
先找到:

answer=md5(Request.form("answer"),16)
End If
其下面增加:

'ssa加入防止恶意注册必填项
If Request.form("Forumname")="" Then
Response.redirect "showerr.asp?ErrCodes=<li>您没有回答“防恶意注册问题答案”！&action=OtherErr"
Else
If Request.form("Forumname")<>Dvbbs.Forum_Info(0) Then
Response.redirect "showerr.asp?ErrCodes=<li>请回答正确的“防恶意注册问题答案”！&action=OtherErr"
End If
End If

再找到: TempLateStr=Replace(TempLateStr,"{$user_belief}",Selectinfo(5))
在其下面添加一行: TempLateStr=Replace(TempLateStr,"{$Forumname}",Dvbbs.Forum_Info(0))

2.后台界面风格模板总管理page_login template.html(13)中找到

<TD class=tablebody1><B>问题答案</B>：<BR>忘记密码的提示问题答案，用于取回论坛密码</TD>
<TD class=tablebody1>
<INPUT type=text size=30 name=answer>
</TD></TR>
后面添加:

<TR>
<TD class=tablebody1><B>本论坛的中文名字是什么？</B><BR><font color=red>此条为防止恶意注册必填项！<br>
答案:</font><input type="text" value={$Forumname} readonly style="border-left:none; border-right:none; border-top:none; border-bottom: 1 solid blue;background:transparent;width:180px;color:blue"> <button style="font-size:12px; cursor:help; border-left:none; border-right:none; border-top:none; border-bottom:none; background:transparent" >
<font title="点击即可复制答案">(点击复制)</font></botton></TD>
<TD class=tablebody1>
<INPUT maxLength=50 size=30 name=Forumname></TD>
</TR>

<TR>
<TD class=tablebody1><B>OICQ号码</B>：<BR>强烈推荐填写，方便在论坛上互动联系<font color=red>(4--13位)<br><font color=green>请填写真实的QQ号，方便浩天与您联系</font></TD>
<TD class=tablebody1><INPUT maxLength=50 size=30 name=OICQ><font color=red>*</font>假的就别填写啦！</TD>
</TR>

红色的代码为注册增加QQ项如果不需要可以取消，只加蓝色的代码。

[/无需回复]