📄 test_over.asp
字号:
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<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">
</head>
<body topmargin="0" leftmargin="0">
<!--#include file="top2.html"-->
<div align="center">
<center>
<table border="1" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="782" height="100">
<tr>
<td align="center">
<br>（本期考试 <%=request("tk")%> 道填空题， <%=request("xz")%> 道选择题， <%=request("wd")%> 道问答题，总分 <%=request("zf")%> 分）
<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>
<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("wd")%> 道，每题 <%=request("wds")%> 分）</td>
</tr>
<%if request("flagwd")=1 then
%><tr><td><%=request("messagewd")%></td></tr>
<%else
for i=1 to request("wd")%>
<tr>
<td> <%=i%> 、 <%=request("tgwd"&i)%>
<%
if trim(request("t"&i))=trim(request("wdda"&i)) then
fncolor="#FF0000"
df=request("wds")
response.write "<font color="&fncolor&">（正确答案："&request("wdda"&i)&" 提交答案："&request("t"&i)&" 判题：√ 得分："&df&"分）</font>"
else
fncolor="#0000FF"
df=0
response.write "<font color="&fncolor&">（正确答案："&request("wdda"&i)&" 提交答案："&request("t"&i)&" 判题：╳ 得分："&df&"分）</font>"
end if
zfenwd=cint(zfenwd)+cint(df)
next
%>
</td></tr>
<tr>
<td align="right"><b><font color="#FF0000">问答题类型小计得分：<%=zfenwd%>分</font></b></td>
</tr>
</table>
<%end if %>
</center>
</div>
<br>
<b> <font class=test1>总分：<%=zfentk+zfenxz+zfenwd%>分！</td>
</tr>
</table>
<%
'set rs=conn.execute("select * from examination where studentnumber="&session("number")&" and examinationid="&request("testid")&" and pass=0")
'if not rs.eof then
'sqlup="update examination set score="&zfenpd+zfenxz+zfentk&" where studentnumber="&session("number")&" and examinationid="&request("testid")&" "
'set rsup=conn.execute(sqlup)
'end if
'set rs=conn.execute("select * from examination where studentnumber="&session("number")&" and examinationid="&request("testid")&" and pass=1 ")
'if not rs.eof then
'sqlup="update examination set makeup="&zfenpd+zfenxz+zfentk&" where studentnumber="&session("number")&" and examinationid="&request("testid")&" "
'set rsup=conn.execute(sqlup)
'end if
%>
</center>
</div>
</body>
<!--#include file="end.html"-->
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -