📄 test_over.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="check.asp"-->
<html>
<head>
<meta http-equiv="Expires" CONTENT="0">
<meta http-equiv="Cache-Control" CONTENT="no-cache">
<meta http-equiv="Pragma" CONTENT="no-cache">
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>学生党校网上测试系统</title>
<link rel="stylesheet" type="text/css" href="css.css">
<script language="JavaScript">
<!--
javascript:window.history.forward(1);
//-->
</script>
</head>
<body topmargin="0" leftmargin="0">
<!--#include file="top.htm"-->
<div align="center">
<center>
<table border="1" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="760" height="100">
<tr>
<td align="center"><font class=test1>第 <%=request("qi")%> 期考试在线判卷</font>
<br>（本期考试 <%=request("pd")%> 道判断题， <%=request("xz")%> 道选择题， <%=request("tk")%> 道填空题，总分 <%=request("zf")%> 分）
<p><font color="#000080">考生姓名： <%=session("student")%> 性别： <%=session("sex")%> 班级： <%=session("classes")%> 学号： <%=session("number")%> </font><br>
<br>
<div align="center">
<center>
<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750">
<tr>
<td bgcolor="#CBEFDC">一、判断题（共 <%=request("pd")%> 道，每题 <%=request("pds")%> 分）</td>
</tr>
<%if request("flagpd")=1 then
%><tr><td><%=request("messagepd")%></td></tr>
<%else
for i=1 to request("pd")%>
<tr>
<td> <%=i%> 、 <%=request("tgpd"&i)%>
<%if trim(request("cate"&i))=trim(request("pdda"&i)) then
fncolor="#FF0000"
df=request("pds")
response.write "<font color="&fncolor&">（正确答案："&request("pdda"&i)&" 提交答案："&request("cate"&i)&" 判题：√ 得分："&df&"分）</font>"
else
fncolor="#0000FF"
df=0
response.write "<font color="&fncolor&">（正确答案："&request("pdda"&i)&" 提交答案："&request("cate"&i)&" 判题：╳ 得分："&df&"分）</font>"
end if
zfenpd=cint(zfenpd)+cint(df)
next
%>
</td>
</tr>
<tr>
<td align="right"><b><font color="#FF0000">判断类型题小计得分：<%=zfenpd%>分</font></b></td>
</tr>
<%end if %>
</table>
</center>
</div>
<br>
<div align="center">
<center>
<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750">
<tr>
<td bgcolor="#CBEFDC">一、选择题（共 <%=request("xz")%> 道，每题 <%=request("xzs")%> 分）</td>
</tr>
<%if request("flagxz")=1 then
%><tr><td><%=request("messagexz")%></td></tr>
<%else
for i=1 to request("xz")%>
<tr>
<td> <%=i%> 、 <%=request("tgxz"&i)%>
<%
if trim(request("sele"&i))=trim(request("xzda"&i)) then
fncolor="#FF0000"
df=request("xzs")
response.write "<font color="&fncolor&">（正确答案："&request("xzda"&i)&" 提交答案："&request("sele"&i)&" 判题：√ 得分："&df&"分）</font>"
response.write "<tr><td>A、"&request("xzxx1"&i)&" B、"&request("xzxx2"&i)&" C、"&request("xzxx3"&i)&" D、"&request("xzxx4"&i)&" </td></tr>"
else
fncolor="#0000FF"
df=0
response.write "<font color="&fncolor&">（正确答案："&request("xzda"&i)&" 提交答案："&request("sele"&i)&" 判题：╳ 得分："&df&"分）</font>"
response.write "<tr><td>A、"&request("xzxx1"&i)&" B、"&request("xzxx2"&i)&" C、"&request("xzxx3"&i)&" D、"&request("xzxx4"&i)&" </td></tr>"
end if
zfenxz=cint(zfenxz)+cint(df)
next
%>
</td>
</tr>
<tr>
<td align="right">
<b><font color="#FF0000">选择题类型小计得分：<%=zfenxz%>分</font></b></td>
</tr>
<%end if %>
</table>
</center>
</div>
<br>
<div align="center">
<center>
<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750">
<tr>
<td bgcolor="#CBEFDC">一、填空题（共 <%=request("tk")%> 道，每题 <%=request("tks")%> 分）</td>
</tr>
<%if request("flagtk")=1 then
%><tr><td><%=request("messagetk")%></td></tr>
<%else
for i=1 to request("tk")%>
<tr>
<td> <%=i%> 、 <%=request("tgtk"&i)%>
<%
if trim(request("t"&i))=trim(request("tkda"&i)) then
fncolor="#FF0000"
df=request("tks")
response.write "<font color="&fncolor&">（正确答案："&request("tkda"&i)&" 提交答案："&request("t"&i)&" 判题：√ 得分："&df&"分）</font>"
else
fncolor="#0000FF"
df=0
response.write "<font color="&fncolor&">（正确答案："&request("tkda"&i)&" 提交答案："&request("t"&i)&" 判题：╳ 得分："&df&"分）</font>"
end if
zfentk=cint(zfentk)+cint(df)
next
%>
</td></tr>
<tr>
<td align="right"><b><font color="#FF0000">填空题类型小计得分：<%=zfentk%>分</font></b></td>
</tr>
</table>
<%end if %>
</center>
</div>
<p><br>
<b> <font class=test1>总分：<%=zfenpd+zfenxz+zfentk%>分！</font></b>
<Input Type=Button Value="考卷另存" onclick="document.execCommand('Saveas',false,'c:\\test.htm')">
</p>
<p><font color="#FF0000">如需确认考试成绩请考卷另存后至chambo@163.com</font> </p>
<p align="right"><b><a href="exit.asp">
退出考试系统</a><br> </b></td>
</tr>
</table>
<%
set rs=conn.execute("select * from report where 学生id="&session("id")&" and 试卷id="&request("testid")&" and 是否补考=False")
if not rs.eof then
sqlup="update report set 分数="&zfenpd+zfenxz+zfentk&" where 学生id="&session("id")&" and 试卷id="&request("testid")&" "
set rsup=conn.execute(sqlup)
end if
set rs=conn.execute("select * from report where 学生id="&session("id")&" and 试卷id="&request("testid")&" and 是否补考=True ")
if not rs.eof then
sqlup="update report set 补考成绩="&zfenpd+zfenxz+zfentk&" where 学生id="&session("id")&" and 试卷id="&request("testid")&" "
set rsup=conn.execute(sqlup)
end if
%>
</center>
</div>
<!--#include file="adv.htm"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -