asp如何做一个看他爱不爱你的小测验？

如何做一个看他爱不爱你的小测验？

<％
CurQ = Request.Form("CurQ")
Answ = Request.Form("Answ")
correct=Request.Form("Correct")
wrong=Request.Form("Wrong")
If PoorMansIsNull(CurQ) Then          
        CurQ = 1                            
        correct = 0
        wrong = 0
End If
If PoorMansIsNUll(Answ) Then
        CurQ = CurQ + 1
        If CurQ > ' (最大的题目数) Then
％>
        <p>恭喜,您完成了这次测试. 共答对了<％=correct％> 道题,答错了<％=wrong％>道题. 您的情商是<％=(correct/(max#ofQs)％>％.
        要走桃花运哦.
<％ End If ％>
<％  set conntemp = server.createobject("adoDB.Connection")
    set myDSN = ' (DSN信息)
    conntemp.Open myDSN
    set mySQL = "SELECT * FROM QUESTIONS WHERE QuestionID=" & CurQ
    set rsTemp= conntemp.Execute(mySQL)
％>
<h2>Question Number <％=rsTemp("QuestionID")％> </h2>
<form method=POST action="myASP.ASP">
    <input type=hidden name=CurQ value=<％=CurQ％>>
现在的问题是:<％=rsTemp("Question")％><br>
答案:<select name="AnsW">
                <option value=1><％=rsTemp("AnswerA")</option>
                <option value=2><％=rsTemp("AnswerB")</option>
                <option value=3><％=rsTemp("AnswerC")</option>
                <option value=4><％=rsTemp("AnswerD")</option>
        </select>    
<input type=hidden value="<％=correct％>"><input type=hidden value="<％=wrong％>">
<input type=reset value="清空"><input type=submit value="正确!">
</form>
<％ Else ％>
<％  set conntemp = server.createobject("adoDB.Connection")
    set myDSN = '(your DSN info goes here)
    conntemp.Open myDSN
    set mySQL = "SELECT * FROM QUESTIONS WHERE QuestionID=" & CurQ
    set rsTemp= conntemp.Execute(mySQL)
            If AnsW = rsTemp("CorrectAns") Then
％>
                <p>恭喜,您答对了! Whee</p>
                <％ correct = correct + 1 ％>
            <％ Else ％>
                <p>天啊,您又答错了!小心挨皮锤哦... </p>
                <p><％=rsTemp("reference")</p>
                <％ wrong = wrong + 1 ％>
            <％ End If ％>
      <form method=POST action="myASP.ASP">
              <input type="hidden" name=curQ value="<％=curQ％>">
              <input type="hidden" name=correct value="<％=correct％>">
              <input type="hidden" name=wrong value="<％=wrong％>">
              <input type="submit" value="下一题,看招!"％>
      </form>
<％ End If ％>