📄 calscore.asp
字号:
<!--#include FILE="connect.asp"-->
<!--从testpaper.asp中的三个隐含变量中取得数值-->
<%
Subject=Request("Subject")
'response.write Subject
StudentID=Request("StudentID")
Name=Request("Name")
%>
<html>
<body leftmargin="100">
<LINK href="style.css" rel=stylesheet>
<center>
<h2><%=Name%>，你的考试成绩如下表：</h2>
<%
sql="Select * From "&Subject&" order by 题目序号"
'response.write sql
rs.open sql,conn,2,2
score=0
while not rs.EOF
answer=rs("正确答案")
'response.write "本题答案:"&answer
select case rs("题目类型")
case 1:
selection=Request("No"&rs("题目序号"))
'response.write "所给："&selection&"<br>"
case 2:
selection=""
for n=1 to 4
if not Request("No"&rs("题目序号")&"-"&n)="" then
selection=selection&Request("No"&rs("题目序号")&"-"&n)
end if
next
'response.write "所给："&selection&"<br>"
case 3:
selection=Request(rs("选择项1")) '选择项1存放填空题的名称
' response.write "所给:"&Request(rs("选择项1"))
case else:response.write"<b>其他题目还未确定评分规则！</b>"
end select
if answer=selection then
' response.write "right!<br>"
score=score+rs("本题分数")
'response.write "<b>"&score&"</b><br>"
'else response.write "<b>wrong!</b><br>"
end if
rs.movenext
wend
rs.close
%>
<!-- 把成绩保存到成绩表中-->
<%flag=false
rs.Open "Select * From 成绩表 where StudentID='"& StudentID &"'", conn,3,2
while not rs.eof
'response.write rs("试卷名称")
if rs("试卷名称")= Subject then
flag=true
end if
rs.movenext
wend
'response.write flag
rs.close%>
<% if flag=true then%>
<div align="center"><input type="button" onclick="window.close()" value="退出"></div>
<script language="vbscript">
msgbox"该记录已写入数据库！"
location.href="vbscript:window.close()"
</script>
<% else
rs.Open "Select * From 成绩表 where StudentID='"& StudentID &"'", conn,3,2
'response.write Subject
rs.addnew
rs("Name")=name
rs("StudentID")=StudentID
rs("考试时间")=now()
rs("成绩")=score
rs("试卷名称")=Subject
rs.update
rs.close
end if
%>
<!-- 用表格显示分数-->
<blockquote>
<table border=1 width="70%" align="center">
<tr bgcolor=green><td>学科</td><td>总分</td></tr>
<%
rs.Open "Select * From 成绩表 where StudentID='"& StudentID &"'", conn,3,2
while not rs.eof
%>
<tr><td><%=rs("试卷名称")%></td><td><%if rs("成绩")<>-1 then
response.write rs("成绩")
else response.write "<b>未考！</b>"
end if%>
</td></tr>
<%
rs.movenext
wend
rs.close%>
</table>
</blockquote>
<div align="center"><input type="button" onclick="window.close()" value="退出"></div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -