|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.出格提醒:修正之前论坛先做个备份,堕落时不会恢复的伴侣也不必费多年夜事!
避免论坛歹意注册
修正一下注册就好了。加上一个随机回覆成绩的,,,
1.进进背景,作风界面模板总办理,page_login,template.html(13)
<TR>
<TDclass=tablebody1><B>暗码成绩</B>:<BR>健忘暗码的提醒成绩</TD>
在此两句下面增加以下代码
<TR>
<TDclass=tablebody1>
<divstyle="color:red"><b>反论坛群发必填项:</b></div>
<div>为了避免群发软件的歹意注册,</div>
<div>请回覆以下成绩</div>
<divstyle="color:blue;font-size=18px"><b>{$EvilQuesion}<b></div></TD>
<TDclass=tablebody1><INPUTsize=30name=evilanswer></TD>
</TR>
2.翻开reg.asp,找到
<!--#includefile="inc/md5.asp"-->
在其下增加
<!--#includefile="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")
EndIf
在其下增加
IfRequest.Form("EvilAnswer")=""Then
ErrCodes=ErrCodes+"<li>"+"请填写防歹意注册成绩!"
EndIf
IfNotCheckEvil(Request.Form("EvilAnswer"))Then
ErrCodes=ErrCodes+"<li>"+"防歹意注册成绩回覆毛病,请前往重试。"
EndIf
3.增添一个新文件CheckEvil.asp,填写以下代码,并上传到论坛inc目次下,即/inc/CheckEvil.asp。
<%
DimQuesionArray(100)
DimAnswerArray(100)
DimQuesionNum
QuesionNum=5请在这里准确设置成绩的总数
FunctionCheckEvil(Answer)
DimTrueAnswer
IfSession("EvilID")=""Then
CheckEvil=False
ExitFunction
EndIf
TrueAnswer=CStr(AnswerArray(Session("EvilID")))
IfAnswer=TrueAnswerThen
CheckEvil=true
EndIf
EndFunction
QuesionArray(0)="12的平方是几?(数字)"
AnswerArray(0)="144"
QuesionArray(1)="中国最长的河道叫甚么名字?"
AnswerArray(1)="长江"
QuesionArray(2)="“举头看明月”的下句是甚么?(提醒:垂头??乡)"
AnswerArray(2)="垂头思家乡"
QuesionArray(3)="“举头看明月”的下句是甚么?(提醒:垂头??乡)"
AnswerArray(3)="垂头思家乡"
QuesionArray(4)="中国史上独一的女皇是谁?(提醒:武?天)"
AnswerArray(4)="武则天"
%>
在实现ERP等高端的ASP应用时,用户需要提供核心的经营资料,需要ASP商有很高的信用度。楼上说交互性不好,太牵强了吧。在微软提供的一套框架中,利用asp做网站,开发效率高,使用人数少,减少不必要的开销。交互性是互动方式,是有开发人员决定的。 |
|