<%
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)="三加二是多少？（填数字）："
AnswerArray(0)="5"
QuesionArray(1)="中国首都名称?"
AnswerArray(1)="北京"
QuesionArray(2)="一加二是多少？（填数字）"
AnswerArray(2)="3"
QuesionArray(3)="一天有多少个小时？（填数字）"
AnswerArray(3)="24"
QuesionArray(4)="一小时有多少分钟？（填数字）"
AnswerArray(4)="60"
%>
