<%
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)="请问<<红楼梦>>的作者是谁？（提示：曹雪芹）"
AnswerArray(1)="曹雪芹"
QuesionArray(2)="请问<<水浒传>>的作者是谁？（提示：施耐庵）"
AnswerArray(2)="施耐庵"
QuesionArray(3)="请问<<三国演义>>的作者是谁？（提示：罗贯中）"
AnswerArray(3)="罗贯中"
QuesionArray(4)="请问<<西厢记>>的作者是谁？（提示：王实甫）"
AnswerArray(4)="王实甫"
QuesionArray(5)="请问<<孙子兵法>>的作者是谁？（提示：孙武）"
AnswerArray(5)="孙武"
QuesionArray(6)="请问<<史记>>的作者是谁？（提示：司马迁）"
AnswerArray(6)="司马迁"
QuesionArray(7)="请问11+1=？（提示：12）"
AnswerArray(7)="12"
QuesionArray(8)="请问9+3=？（提示：12）"
AnswerArray(8)="12"
QuesionArray(9)="请问2+9=？（提示：11）"
AnswerArray(9)="11"


%>