score.asp

来自「Active Server Pages 网页制作教程看之前请传到ASP空间。或者」· ASP 代码 · 共 57 行

ASP
57 行
字号 
<!-- #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
%>

score.asp - 源码说明

本页面展示了「Active Server Pages 网页制作教程看之前请传到ASP空间。或者本地用iis。或安装pws内有说明」中的 score.asp 源码文件，采用 ASP 编程语言编写，共 57 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Active相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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