【向暴力群发(搜客,利剑)说不For Disciz 5.0 GBK!】2007/01/03更新

这帖子我超喜欢他的解释方法

为什么不给出回复和发帖时的修改代码？

原帖由 dahaida_wz 于 2007-1-14 21:12 发表
为什么不给出回复和发帖时的修改代码？

看你楼上的跟帖!
直接告诉你不难,但是你永远都学不会做一些自己应该掌握的小修改~~~!
哪多哪少???好好合计一下吧~~!

太棒的插件，谢谢了。

请教楼主,按楼主所说方法安装后,登陆注册页面出现如下错误提示,请问是何问题,有何解?
Parse error: syntax error, unexpected T_REQUIRE_ONCE in /web/b/bbs.31uc.com/register.php on line 1

11111111顶顶～～～～～～

请教楼主,按楼主所说方法安装后,登陆注册页面出现如下错误提示,请问是何问题,有何解?
Parse error: syntax error, unexpected T_REQUIRE_ONCE in /web/b/bbs.31uc.com/register.php on line 1

我在想，为什么官方论坛没有人来骚扰呢，一定有防止的方法，没公开吧 :o

请问DZ有这样的防暴力注册（防机器人注册）的修改方法么


我的论坛刚刚从DV转到DZ，原来用的DV防注册程序相当的好用，最重要的是，原来的防注册程序很爽

转好的论坛刚刚投入使用，会员发贴倒没几个，机器人倒是每天发贴几百个了，呵，

以下是我论坛原来的防注册程序（dv7.10,动网7.10版本）

-------------------------------------------------------------
第一步：

将一下代码保存为asp文件，文件名为：Checkyuckj.asp

<%
Dim QuesionArray(100)
Dim AnswerArray(100)
Dim QuesionNum
QuesionNum=10 '请在这里正确设置问题的总数

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

End Function


QuesionArray(0)="请问本网站的站名是？（提示：书酒论坛”）"
AnswerArray(0)="书酒论坛"
QuesionArray(1)="请问本网站的网址是？（提示：www.shujiu.com）"
AnswerArray(1)="www.shujiu.com"
QuesionArray(2)="“天苍苍，野茫茫”的下句是什么？（提示：风吹草低现牛羊）"
AnswerArray(2)="风吹草低现牛羊"
QuesionArray(3)="“惟见长江天际流”的上句是什么？（提示：孤帆远影碧空尽）"
AnswerArray(3)="孤帆远影碧空尽"
QuesionArray(4)="对联诗钟的上句有几个字？（提示：七字）"
AnswerArray(4)="七字"
QuesionArray(5)="书酒人生邀月醉，请注明此句的平仄（提示：平仄平平平仄仄）"
AnswerArray(5)="平仄平平平仄仄"
QuesionArray(6)="你是否为机器人？（提示：不是）"
AnswerArray(6)="不是"
QuesionArray(7)="钓鱼台是不是中国的？（提示：是）"
AnswerArray(7)="是"
QuesionArray(8)="台湾是不是中国的一个省（提示：是）"
AnswerArray(8)="是"
QuesionArray(9)="你是否会坚决地抵制日货（提示：是）"
AnswerArray(9)="是"


%>



第二步：



1. 进入后台，风格界面模板总管理，page_login,template.html(13)
找到：
<TR>
<TD class=tablebody1><B>问题答案</B>：<BR>忘记密码的提示问题答案，用于取回论坛密码</TD>
<TD class=tablebody1>
<INPUT type=text size=30 name=answer>
</TD></TR>
下面添加：
<TR>
<TD class=tablebody1><div style="color:red">为防止恶意注册,请回答以下问题:</div>
<b>{$yuckjQuesion}<b>
</TD>
<TD class=tablebody1><INPUT size=30 name=yuckjanswer></TD>
</TR>
2. 打开reg.asp，找到
<!--#include file="inc/md5.asp"-->
在其下添加
<!--#include file="inc/Checkyuckj.asp"-->
找到
TempLateStr=Replace(TempLateStr,"{$user_belief}",Selectinfo(5))
在其下添加
Randomize
Session("yuckjID")=int(Rnd*QuesionNum)
TempLateStr=Replace(TempLateStr,"{$yuckjQuesion}", QuesionArray(Session("yuckjID")))
找到
Else
quesion=Request.form("quesion")
End If
在其下添加
If Request.Form("yuckjAnswer")="" Then
ErrCodes=ErrCodes+"<li>"+"请填写防恶意注册问题!"
End If
If Not Checkyuckj(Request.Form("yuckjAnswer")) Then
ErrCodes=ErrCodes+"<li>"+ "防恶意注册问题回答错误，请返回重试。"
End If
把 刚才保存的Checkyuckj.asp 放到论坛inc/目录下

OK! 恭喜你，从此，你就永远的告别机器人的暴力注册了和乱发广告的困扰了！一共有十个问题，每次进入提示的问题都不一样的


怎么说这个防注册方法爽呢？有一些问题实在太爽快了，哈哈，钓鱼台是不是中国的？一定要回答是，才能完成注册，哈哈啊


不知道咱们DZ有没有这程序呢？

请教楼主,按楼主所说方法安装后,登陆注册页面出现如下错误提示,请问是何问题,有何解?
Parse error: syntax error, unexpected T_REQUIRE_ONCE in /web/b/bbs.31uc.com/register.php on line 1

楼主不来看回复了么?关注呀