📄 score.asp
字号:
<!-- #include virtual="/kjasp/func/DB.fun" -->
<%
Lesson = Request("Lesson")
No = Request("No")
Name = Request("Name")
Set rs = GetMdbRecordset( "Test.mdb", Lesson )
%>
<HTML>
<BODY BgColor=White Background="../B01.jpg">
<H2>考试成绩<HR></H2>
<%
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.Update
%>
<BLOCKQUOTE>
学号：<%=No%><BR>
姓名：<%=Name%><BR>
<BLOCKQUOTE>
<TABLE Border=1>
<TR BgColor=Yellow><TD>科目</TD><TD>分数</TD></TR>
<TR><TD>ASP</TD><TD Align=Right><%=ScoreHTML(rsScore("ASP"))%></TD></TR>
<TR><TD>BCC</TD><TD Align=Right><%=ScoreHTML(rsScore("BCC"))%></TD></TR>
<TR><TD>VB</TD><TD Align=Right><%=ScoreHTML(rsScore("VB"))%></TD></TR>
</TABLE>
</BLOCKQUOTE>
</BLOCKQUOTE>
<HR>
<A HREF="Enter.asp?No=<%=No%>&Name=<%=Name%>">参加其他科目考试</A>
</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 + -