📄 score.asp

📁 asp开发 asp开发 asp开发 asp开发

💻 ASP

字号:

<%
Lesson = Request("Lesson")
No = Request("No")
Name = Request("Name")

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &_
	Server.MapPath("test.mdb")
Set rs = conn.Execute( lesson )
%>
<HTML><BODY BgColor=beige><H2>考试成绩<HR></H2>
<%
Score = 0
While Not rs.EOF
  Sel = Request( "No" & rs("题号") )
  Ans = rs("解答")
  If Ans = Sel Then
     Score = Score + Cint(rs("分数"))
  End If
  rs.MoveNext
Wend
SQL = "Select * From 成绩单 " 
SQL = SQL & "Where 学号=" &"'" &No &"'"& " And 姓名='" & Name & "'"
   Set conn = Server.CreateObject("ADODB.Connection")
   DBPath = Server.MapPath("test.mdb")
   conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
   Set rsScore = Server.CreateObject("ADODB.Recordset")
   rsScore.Open sql, conn, 2, 2
if rsscore(lesson)=-1 then
	rsScore(Lesson) =Cint(score) 'score
	rsScore.Update
else
Response.Write "<script>{alert('你已经考过了')}</script>"
end if
%>
<%=Name%>同志你好，你的考试成绩统计为：<BR>
<center>
  <TABLE Border=2 bgcolor=orange width=80%>
  <TR BgColor=beige><TD>你参加的科目</TD><TD>你的分数</TD></TR>
  <TR><TD>ASP</TD><TD Align=Right><%=getResult(RsScore("ASP"))%></TD></TR>
  <TR><TD>XML</TD><TD Align=Right><%=getResult(rsscore("XML"))%></TD></TR>
  </TABLE></center>
<HR><A HREF="login.asp?No=<%=No%>&Name=<%=Name%>">参加其他科目考试</A>
</BODY></HTML>
<%
Function getResult( Score )
   If Score = -1 Then 	
     getResult = "你还没有考试"
   ELseIf Score < 60 Then
      getResult = "<FONT Color=Red>" & Score & "</FONT>"
   Else
      getResult = Score
   End If
End Function
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -