用ASP制作在线测试 -pc6资讯

您的位置：首页 → 网页设计 → ASP实例 → 用ASP制作在线测试

用ASP制作在线测试 时间：2004/11/7 2:53:00来源：本站整理作者：蓝点我要评论(0)

<%

CurQ = Request.Form("CurQ")

Answ = Request.Form("Answ")

correct=Request.Form("Correct")

wrong=Request.Form("Wrong")

'Poor Man's IsNull Code goes here

If PoorMansIsNull(CurQ) Then

        CurQ = 1

        correct = 0

        wrong = 0

End If

If PoorMansIsNUll(Answ) Then

        CurQ = CurQ + 1

        If CurQ > (Your maximum number of questions) Then

%>

Congratulations. You have completed this test. You missed <%=wrong%>

questions,

        but got <%=correct%> questions right. That is equivilent to a

<%=(correct/(max#ofQs)%>%.

        Thank you for doing the test.

<% End If %>

<%  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)

%>

Question Number <%=rsTemp("QuestionID")%>

<% 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

%>

Congratulations. You got it right. Whee

                <% correct = correct + 1 %>

             <% Else %>

I'm sorry, you missed the question. You can review by

reading:

<%=rsTemp("reference")