标题:[转贴]提供一个防暴力注册的修改方法！
作者:小轻
时间:11/5 20:22
下面这个方法用于动网论坛，版本不同的时候，语言有所变化，如果实在不懂，请与小轻联系
第一步：
将一下代码保存为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)="台湾是不是中国的一个省（提示：是）"
Answ ..
下页
回复本帖|发新话题
回复列表 (3)
#1 [em99][em100]<STRONG> ..
[云儿依依 11/5 21:27]
#2 <P>太牛了！！</P>
[踢倒银河 11/6 02:46]
#3 再加一个用于DZ论坛的防机器人 ..
[小轻 1/6 23:39]
<<下一主题
>>上一主题
返回板块