 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% 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 %> <p>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) %> <h2>Question Number <%=rsTemp("QuestionID")%> </h2> <form method=POST action="myASP.ASP"> <input type=hidden name=CurQ value=<%=CurQ%>> Your question is <%=rsTemp("Question")%><br> Answer: <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="Clear the Form"><input type=submit value="OK!"> </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>Congratulations. You got it right. Whee</p> <% correct = correct + 1 %> <% Else %> <p>I\\\'m sorry, you missed the question. You can review by reading: </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="Next Question"%> </form> <% End If %> 返回类别: 教程 上一教程: 网上取数据的一个例子 下一教程: 控制输出字符串的长度，可以区别中英文 您可以阅读与"用ASP制作在线测试"相关的教程: · 用ASP制作个性化的调查板(附源程序) · 用ASP开发一个在线考试程序（八） · ASP在线压(缩)解(压)RAR · 出色ASP-镜象站点速度测试 · 用ASP制作饼图、柱状图等 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
