📄 result.asp

📁 ASP 网页数据库短训教程源码
💻 ASP
字号:
<%@ Language=VBScript %> 
<%
  '定义变量，对象
  Dim Name, Score
  Dim Correct, RSCount
  Dim objConn, objRS, objRS1  
    ' 通过Session对象获取考生名
  Name = Session("User")
  Correct = 0
  RSCount = 0
  If Session("Pass") <> 1 Then
    Response.Redirect "Login.asp"
  End If
%>
<HTML> 
  <HEAD><TITLE>评分页面</TITLE></HEAD>
  <BODY bgcolor=LightYellow>
    <FONT size=6 face=方正舒体 color= blue><%=Name & ":"%></FONT><HR>
    <TABLE align=center>
      <TR><TD>正确答案：
<%
  s=UBound(Session("ans"))
    ' 给出正确答案并评分
    ' 循环将所有答案进行评分
  For i=1 to s
    Response.Write Session("ans")(i) & "&nbsp;"
    f=Cint(Request.Form(i))
    a=Session("ans")(i)
    If f = a then
      Correct = Correct + 1
    End If
  Next
    ' 输出成绩到客户端
  Response.Write "<TR><TD>你的答案： "
  Score = Int(Correct / s * 100)
  For i = 1 To Request.Form.Count
    Response.Write Cint(Request.Form(i)) & "&nbsp;"
  Next
  Response.Write "<P>你的成绩：" & score & "&nbsp;<B>"
  If Score < 60 Then Response.Write "<FONT color=red>不及格！</FONT>"
  If Score >= 60 And Score < 80 Then Response.Write "<FONT color=blue>及格</FONT>"
  If Score >= 80 And Score <= 100 Then Response.Write "<FONT color=blue>优秀！</FONT>"
  Response.Write "</B>"
    ' 记录成绩到数据库
    ' 使用Connection对象打开数据库文件
  Set objConn = Server.CreateObject("ADODB.Connection")
  objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & Server.MapPath("Exercise.mdb")
  objConn.Open
  Set objRS = Server.CreateObject("ADODB.Recordset")
  strSQL = "update Student set 成绩=" & score & " where 编号='" & name &"'"
  objRS.Open strSQL, objConn, 1, 2
    ' 释放资源
  objConn.Close
  Set objRS = Nothing
  Set objConn = Nothing
    ' 有些考生可能会通过浏览器的“返回”按钮回到Test.asp界面，将答案
    ' 修改后重新提交，因此增加如下逻辑判断是否已经提交过答案，这里的
    ' Session对象中的Pass变量是否为1代表考生在登录考试系统后是否按过
    ' “交卷”按钮，如果按过，在Result.asp的最后一条语句Session("Pass")=0
    ' 会将Pass变量置0，以示本次测试结束
  Session("Pass") = 0
%>
      <TR><TD height=40><A href="Login.asp">返回首页</A>
    </TABLE>
  </BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -