用ASP制作在线测试

来源：百度文库编辑：神马文学网时间：2024/04/25 12:20:21

<%CurQ = Request.Form("CurQ")
Answ = Request.Form("Answ")
correct=Request.Form("Correct")
wrong=Request.Form("Wrong")'Poor Man's IsNull Code goes hereIf PoorMansIsNull(CurQ) Then
        CurQ = 1
        correct = 0
        wrong = 0
End IfIf 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")

<% wrong = wrong + 1 %> <% End If %> <% End If %>资料引用:http://www.knowsky.com/1472.html

用ASP制作在线测试用JavaScript制作在线测试题用JavaScript制作在线测试题用VS.NET中的测试工具测试ASP.NET程序 asp本地测试工具软件 ASP在线统计代码用VS.NET中的测试工具测试ASP.NET程序 (2) QQ空间留言代码在线编辑工具，IQ智商测试网络搞笑证件在线制作用ASP开发试题库与在线考试系统(8) - ASP 实例用ASP.NET建立一个在线RSS新闻聚合器用ASP.NET建立一个在线RSS新闻聚合器 asp制作用户登陆界面-- 在线制作在线制作在线制作在线文件管理器asp源代码 asp在线考试系统论文 Javascript制作在线测试小程序实例-Javascript教程-数字生活在线代码测试器心理在线测试大全心理在线测试大全心理在线测试大全自己动手制作动态网站ASP.PHP.JSP asp制作用户登陆界面--龙二