📄 复件 score.asp

📁 这是一个无纸化测试系统

💻 ASP

字号:

<!-- #include virtual="DB.fun" -->
<%
Lesson = Request("Lesson")
No = Request("No")
Name = Request("Name")
LessonTime=Lesson & "Time"
Createtime=now

Set rs = GetMdbRecordset( "Test.mdb", Lesson )
%>

<HTML>
<title>网上考试——考试成绩</title>
<BODY BgColor=White>
<H2 align="center"><font size="3">考试成绩</font></H2>
<H2> 
  <HR size="1">
  <font size="2"><%
Score = 0
While Not rs.EOF
  Sel = Request( "No" & rs("题号") )
  Ans = rs("解答")
  If Ans = Sel Then
     Score = Score + rs("分数")
  End If
  rs.MoveNext
Wend

SQL = "Select * From 成绩单 " 
SQL = SQL & "Where 学号='" & No & "' And 姓名='" & Name & "'"
Set rsScore = GetMdbRecordset( "Test.mdb", SQL )
rsScore(Lesson) = score
rsScore(LessonTime)=createtime
rsScore.Update
%> </font> </H2>
<BLOCKQUOTE>
  <div align="center"><font size="2"> <b>学号</b>：<%=No%><BR>
    <b>姓名</b>：<%=Name%><BR>
    </font> </div>
  <BLOCKQUOTE>
    <table border=1 cellpadding="2" cellspacing="2" align="center">
      <tr bgcolor=Yellow> 
        <td> 
          <div align="center"><b><font size="2">科目</font></b></div>
        </td>
        <td> 
          <div align="center"><b><font size="2">分数</font></b></div>
        </td>
        <td> 
          <div align="center"><b><font size="2">时间</font></b></div>
        </td>
      </tr>
      <tr> 
        <td><font size="2" color="#0000FF">计算机基础与应用</font></td>
        <td align=Right><font size="2"><%=ScoreHTML(rsScore("计算机基础与应用"))%></font>　</td>
        <td align=center><font size="2"><%=rsScore("计算机基础与应用Time")%></font>　</td>
      </tr>
      </table>
  </BLOCKQUOTE>
</BLOCKQUOTE>
<HR size="1">
<div align="center">
  <p><font size="2"><A HREF="Enter.asp?No=<%=No%>&Name=<%=Name%>">参加其他科目考试</A></font></p>
  <p><font size="2"><a href="../default.htm">返回首页</a></font> </p>
</div>
</BODY>
</HTML>

<%
Function ScoreHTML( Score )
   If Score = -1 Then 	' 尚未考试
      ScoreHTML = "--"
   ELseIf Score < 60 Then
      ScoreHTML = "<FONT Color=Red>" & Score & "</FONT>"
   Else
      ScoreHTML = Score
   End If
End Function
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -