[注意]哎，看来哪里都逃不过广告的滋扰挖

索卢比 发表于 2006-11-26 00:22

<div style="FILTER: glow(color='#A6BA98',strength='2'); FLOAT: left; WIDTH: 120px;">oinwjfj</div><div style="FLOAT: left; MARGIN: 3px; WIDTH: 23px; TEXT-INDENT: 0px;"><img alt="帅哥哟，离线，有人找我吗？" src="http://www.playgm.cn/skins/rooh/ofMale.gif"/>
</div><div style="FLOAT: left; MARGIN: 5px; WIDTH: 15px; TEXT-INDENT: 0px;"><script language="javascript" type="text/javascript"></script></div><div class="posttitle" style="PADDING-RIGHT: 5px; PADDING-TOP: 8px; HEIGHT: 30px;"><div><div style="FLOAT: right;">第 23 楼</div> <a title="点击发送QQ消息给oinwjfj" href="http://wpa.qq.com/msgrd?V=1&Uin=26190916&Site=By Dvbbs&Menu=yes" target="_blank"><img height="16" src="http://wpa.qq.com/pa?p=1:26190916:4" width="16" align="middle" border="0" alt=""/></a> QQ <a href="http://www.playgm.cn/messanger.asp?action=new&touser=oinwjfj" target="_blank"><img alt="给oinwjfj发送一个短消息" src="http://www.playgm.cn/skins/rooh/message.gif" align="middle" border="0"/></a>
<a href="http://www.playgm.cn/friendlist.asp?action=addF&myFriend=oinwjfj" target="_blank"><img alt="把oinwjfj加入好友" src="http://www.playgm.cn/skins/rooh/friend.gif" align="middle" border="0"/></a>
<a href="http://www.playgm.cn/dispuser.asp?id=296014" target="_blank"><img alt="查看oinwjfj的个人资料" src="http://www.playgm.cn/skins/rooh/profile.gif" align="middle" border="0"/></a>
<a href="http://www.playgm.cn/query.asp?stype=1&nSearch=3&keyword=oinwjfj&BoardID=182&SearchDate=ALL" target="_blank"><img alt="搜索oinwjfj在〖FM2007 专区〗的所有贴子" src="http://www.playgm.cn/skins/rooh/find.gif" align="middle" border="0"/></a>
<a href="mailto:trsglm@163.com"><img alt="点击这里发送电子邮件给oinwjfj" src="http://www.playgm.cn/skins/rooh/email.gif" align="middle" border="0"/></a>
</div></div><div class="line"><img alt="" src="http://www.playgm.cn/Skins/rooh/line_01.gif"/></div><div class="postlary1"><div class="postuserinfo"><div><img height="120" alt="" src="http://www.playgm.cn/userface/image1.gif" width="120"/></div><div><img src="http://www.playgm.cn/skins/rooh/star/level2.gif" style="MARGIN: 5px 0px;" alt=""/></div><div>等级：论坛游侠</div><div>文章：200</div><div>门派：无门无派</div><div>注册：2006年11月10日</div><div>RP：1060</div></div><div class="postie"><div style="LINE-HEIGHT: 22px; HEIGHT: 22px;"><div style="FLOAT: left;"><img alt="发贴心情" src="http://www.playgm.cn/skins/rooh/topicface/face1.gif"/></div>先锋数据双线主机 = 158元年,月付,7天试用</div><div style="PADDING-RIGHT: 0px; MARGIN-TOP: 10px; FONT-SIZE: 9pt; OVERFLOW-X: hidden; WIDTH: 97%; WORD-BREAK: break-all; TEXT-INDENT: 24px; LINE-HEIGHT: normal; HEIGHT: 200px; WORD-WRAP: break-word;">1800M+100MySql+100Mail 全能空间虚拟主机 = 最底 158元/年两年一付284元 支持月付,免费使用7天，满意后付款！自由型提供了子目录绑定域名，实现一空间多网站的创举。 MySql数据库1M/1元/年 数据库采用远程连接，大大的提高了安全性。 独立人性化的 MySql和MsSql Web式数据库管理，大大方便维护工作。 http://PhpMyAdmin.86xf.com.cn/ (MySql) Web管理 http://MsSqlAdmin.86xf.com.cn/ (MsSql) Web管理 更多优惠尽在先锋数据网 http://www.86xf.com.cn 咨询QQ:26190916 点击联系我： http://wpa.qq.com/msgrd?V=1&Uin=26190916&Menu=yes</div><div style="OVERFLOW-X: hidden; WIDTH: 85%;"><img src="http://www.playgm.cn/skins/rooh/sigline.gif" alt=""/> 先锋数据网<a href="http://www.86xf.com.cn">www.86xf.com.cn</a></div></div></div>

会飞的猪啊 发表于 2006-11-26 00:29

呵呵,.........

fycmouse 发表于 2006-11-27 22:03

斑斑来看看，我看见很多论坛这样搞过之后就没有广告群发的事件了！希望论坛越办越好！！！！ 方法一：
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>问题答案： 忘记密码的提示问题答案，用于取回论坛密码</TD> <TD class=tablebody1> <INPUT type=text size=30 name=answer> </TD></TR> 后面添加: 
<TR> <TD class=tablebody1>本论坛的中文名字是什么？ 此条为防止恶意注册必填项！ 答
案:<input type="text" value={$Forumname}
onclick="oCopy(this)" 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"
onclick="window.clipboardData.setData('text',this.previousSibling.value)"> (点击复制)</botton></TD> <TD class=tablebody1> <INPUT maxLength=50 size=30 name=Forumname></TD> </TR> 
<TR> <TD
class=tablebody1>OICQ号码： 强烈推荐填写，方便在论坛上互动联
系(4--13位) 请填写真实的QQ号，方便浩天与您联系</TD> <TD class=tablebody1><INPUT maxLength=50 size=30 name=OICQ>*假的就别填写啦！</TD> </TR>
红色的代码为注册增加QQ项如果不需要可以取消，只加蓝色的代码。
方法二：使用增强的验证码 
这是一个比较正式使用比较广泛的做法。将你联想到手机强大的手写识别功能后，你就会对这种方法的可*性提出怀疑。但是如何更好地增大软件的识别难度，仍是大家努力的方向。 
方法三：让注册者回答固定问题 
软件能识别验证码，但是绝对不会识别诸如以下文字：“请回答三加二等于几，用英文表示”。人工智能还达不到这种水平。基于这种思路，我们就可以让注
册者回答问题。但这个问题绝对不要写成：“请回答本论坛的名字”，“今天是星期几”，“请复制以下文字”之类的易破解问题。你可以考虑让用户回答与论坛有
关的话题。假设你的论坛是讨论金庸的。你可以这样说：“为证明你是一个金庸迷，请回答以下问题：《射雕英雄传》的东邪西毒南帝北丐中，西毒是谁”。 
我这里只给出了思路，由于时间关系，还没有写相应的实现代码。如果大家支持本帖，我会在下次补上。当然也希望热心人把修改方法提供给大家。 
方法四：让注册者回答随机问题 
显然，这是上个思路的一点改进。至于在效果上是否有区别，还未实践证明。 
这里我给出了修改方法。蓝色代码为已存在代码，红色代码是新增加代码。 
1. 进入后台，风格界面模板总管理，page_login,template.html(13) 
<TR> <TD class=tablebody1>密码问题： 忘记密码的提示问题</TD> 
在此两句上面添加如下代码 
<TR> <TD class=tablebody1> <div style="color:red">反论坛群发必填项:</div> <div>为了防止群发软件的恶意注册，</div> <div>请回答以下问题</div> <div style="color:blue;font-size=18px">{$EvilQuesion}</div> 
</TD> <TD class=tablebody1><INPUT size=30 name=evilanswer> </TD> </TR> 
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+"<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)="武则天" 
%>

master_wu 发表于 2006-11-30 22:58

<div class="quote">以下是引用fycmouse在2006-11-27 14:03:00的发言： 斑斑来看看，我看见很多论坛这样搞过之后就没有广告群发的事件了！希望论坛越办越好！！！！ 方法一：  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>问题答案： 忘记密码的提示问题答案，用于取回论坛密码</TD> <TD class=tablebody1> <INPUT type=text size=30 name=answer> </TD></TR> 后面添加:  <TR> <TD class=tablebody1>本论坛的中文名字是什么？ 此条为防止恶意注册必填项！ 答 案:<input type="text" value={$Forumname} onclick="oCopy(this)" 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" onclick="window.clipboardData.setData('text',this.previousSibling.value)"> (点击复制)</botton></TD> <TD class=tablebody1> <INPUT maxLength=50 size=30 name=Forumname></TD> </TR>    <TR> <TD class=tablebody1>OICQ号码： 强烈推荐填写，方便在论坛上互动联 系(4--13位) <font color=green>请填写真实的QQ号，方便浩天与您联系</TD> <TD class=tablebody1><INPUT maxLength=50 size=30 name=OICQ>*假的就别填写啦！</TD> </TR>  红色的代码为注册增加QQ项如果不需要可以取消，只加蓝色的代码。  方法二：使用增强的验证码    这是一个比较正式使用比较广泛的做法。将你联想到手机强大的手写识别功能后，你就会对这种方法的可*性提出怀疑。但是如何更好地增大软件的识别难度，仍是大家努力的方向。  方法三：让注册者回答固定问题    软件能识别验证码，但是绝对不会识别诸如以下文字：“请回答三加二等于几，用英文表示”。人工智能还达不到这种水平。基于这种思路，我们就可以让注 册者回答问题。但这个问题绝对不要写成：“请回答本论坛的名字”，“今天是星期几”，“请复制以下文字”之类的易破解问题。你可以考虑让用户回答与论坛有 关的话题。假设你的论坛是讨论金庸的。你可以这样说：“为证明你是一个金庸迷，请回答以下问题：《射雕英雄传》的东邪西毒南帝北丐中，西毒是谁”。  我这里只给出了思路，由于时间关系，还没有写相应的实现代码。如果大家支持本帖，我会在下次补上。当然也希望热心人把修改方法提供给大家。  方法四：让注册者回答随机问题    显然，这是上个思路的一点改进。至于在效果上是否有区别，还未实践证明。  这里我给出了修改方法。蓝色代码为已存在代码，红色代码是新增加代码。  1.   进入后台，风格界面模板总管理，page_login,template.html(13)  <TR> <TD class=tablebody1>密码问题： 忘记密码的提示问题</TD>    在此两句上面添加如下代码  <TR> <TD class=tablebody1> <div style="color:red">反论坛群发必填项:</div> <div>为了防止群发软件的恶意注册，</div> <div>请回答以下问题</div> <div style="color:blue;font-size=18px">{$EvilQuesion}</div>    </TD> <TD class=tablebody1><INPUT size=30 name=evilanswer> </TD> </TR>    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+"<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)="武则天"    %></div>这个事宜，请联系论坛管理员

master_wu 发表于 2006-11-30 22:59

顶楼的事宜已处理

页: [1]

爆棚小组 PlayGM论坛's Archiver

[注意]哎，看来哪里都逃不过广告的滋扰挖