test_over.asp
来自「asp+access实现在线考试系统,整个系统采用Browser/Web/Dat」· ASP 代码 · 共 94 行
ASP
94 行
<!--#include file="conn.asp"-->
<!--#include file="check.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 6.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">
</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>百科知识竞赛</font>
<br>（本期考试 <%=request("xz")%> 道选择题，总分 <%=request("zf")%> 分）
<p><font color="#000080">考生姓名： <%=session("student")%> 性别： <%=session("sex")%> 班级： <%=session("classes")%> 学号： <%=session("number")%> </font><br>
<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("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>
<%end if %>
</table>
</center>
</div>
<br>
<div align="center">
<center>
</center>
</div>
<br>
<b> <font class=test1>总分：<%=zfenpd+zfenxz+zfentk%>分！</font></b><p align="right"><b><a href="exit.asp">
退出考试系统</a><br> </b></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="&zfenxz&" 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="&zfenxz&" where studentnumber="&session("number")&" and examinationid="&request("testid")&" "
set rsup=conn.execute(sqlup)
end if
%>
</center>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?