gusucode.com > ASP+ACCESS在线考试系统设计(源代码+论文) > ASP+ACCESS在线考试系统设计(源代码+论文)\郭晓璇论文第二稿\papermanage\评阅试卷.asp
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>人工评分</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<meta NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
</head>
<body background="images/bkg35.jpg">
<form action="查看成绩.asp" id="FORM9" method="post" name="FORM9">
<table border="0" width="100%">
<tr>
<th width="100%" height="5%"><h1><font face="楷体_GB2312" color="#0000FF">网络考场人工评分</font></h1>
</th>
</tr>
</table>
<%@ Language=VBScript %>
<%
dim score
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("试题库.mdb")
set rs= server.createobject("adodb.recordset")
ycorrect=0
rsCount=0
stzs=0
stzs=session("stzs")
'response.write stzs
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("试题库.mdb")
'name1=session("name1")
name1=request.querystring("papername")
session("name2")=name1
'response.write session("name2")
set rs=server.createobject("adodb.recordset")
set rs.activeconnection=conn
sql="select * from "& session("name2") &" where 试题题型='填空'"
set base=conn.execute(sql)
kk=0
dts=0
'base.movefirst
if not base.eof then
dts=dts+1
%>
<font face="楷体_GB2312" color="#ff0000"><strong><h2>一、填空题</strong></font> </h2>
<%end if
do while not base.eof
kk=kk+1%>
<table border="0" width="100%">
<tr>
<td width="100%" height="5%">第<%Response.Write kk %>题： <%Response.Write base("试题")%>（<%Response.Write base("试题分数")%>分） </td>
</tr>
</table>
<table border="0" width="100%" cellpadding="3">
<tr>
<td width="40%"><font color="#0000FF">本题分数：<%
if not base.eof then
response.write base("试题分数") & "分"
end if
%></font></td>
<td width="60%"><font color="#0000FF">用户得分：<%
if not base.eof then
for i=1 to base("附加参数")
base.movenext
next
end if
%></font></td>
</tr>
<tr>
<td width="50%"><h3><font face="楷体_GB2312" color="#0000FF"><strong>正确答案：</strong></font></h3>
</td>
<td width="50%"><h3><font face="楷体_GB2312" color="#0000FF"><strong>你的答案：</strong></font></h3>
</td>
</tr>
</table>
<table border="0" width="100%">
<tr>
<td width="50%" height="5%"><%
Response.Write base("答案")
%>
</td>
<td width="50%" height="5%"><%
for i=1 to base("附加参数")
Response.Write i & ":"
Response.Write base("用户答案")
Response.Write "<br>"
if base.eof then
exit for
else
base.movenext
end if
next
%>
</td>
</tr>
<tr>
<td width="100%" colspan="2"><img src="Images/sail.gif" alt="sail.gif (725 bytes)" width="811"
height="30"></td>
</tr>
</table>
<%loop%>
<table border="0" width="100%" cellpadding="3">
<tr>
<td width="100%"><img src="Images/30.gif" alt="30.gif (725 bytes)" width="807" height="12"></td>
</tr>
</table>
<p><%sql="select * from "& session("name2") &" where 试题题型='选择'"
set base=conn.execute(sql)
kk=0
if not base.eof then
dts=dts+1
select case dts
case 1
%> <font face="楷体_GB2312" color="#ff0000"><strong></p>
<h2>一、选择题</strong></font> </h2>
<p><%case 2 %> <font face="楷体_GB2312" color="#ff0000"><strong></p>
<h2>二、选择题</strong></font> </h2>
<p><%end select
end if
do while not base.eof
kk=kk+1%> </p>
<table border="0" width="100%">
<tr>
<td width="100%" height="3%" colspan="2">第<%Response.Write kk %>题： <%Response.Write base("试题")%>（<%Response.Write base("试题分数")%>分） </td>
</tr>
<tr>
<td width="50%" height="2%"></td>
<td width="50%" height="2%"></td>
</tr>
</table>
<table border="0" width="100%" cellpadding="3">
<tr>
<td width="40%"><font color="#0000FF">本题分数：<%
if not base.eof then
response.write base("试题分数") & "分"
end if
%></font></td>
<td width="60%"><font color="#0000FF">用户得分：<%
if not base.eof then
response.write "<input type='text' size='13' name=" & base("ID") & " value=" & base("用户得分") & ">"
end if
%></font></td>
</tr>
<tr>
<td width="50%"><h3><font face="楷体_GB2312" color="#0000FF"><strong>正确答案：</strong></font></h3>
</td>
<td width="50%"><h3><font face="楷体_GB2312" color="#0000FF"><strong>你的答案：</strong></font></h3>
</td>
</tr>
</table>
<table border="0" width="100%">
<tr>
<td width="50%" height="5%"><%
Response.Write base("答案")
%>
</td>
<td width="50%" height="5%"><%
for i=1 to base("附加参数")
Response.Write i & ":"
Response.Write base("用户答案")
Response.Write "<br>"
if base.eof then
exit for
else
base.movenext
end if
next
%>
</td>
</tr>
<tr>
<td width="100%" colspan="2"><img src="Images/sail.gif" alt="sail.gif (725 bytes)" width="813"
height="30"></td>
</tr>
</table>
<%loop%>
<table border="0" width="100%" cellpadding="3">
<tr>
<td width="100%"><img src="Images/30.gif" alt="30.gif (725 bytes)" width="809" height="12"></td>
</tr>
</table>
<%sql="select * from "& session("name2") &" where 试题题型='判断'"
set base=conn.execute(sql)
kk=0
if not base.eof then
dts=dts+1
select case dts
case 1
%>
<font face="楷体_GB2312" color="#ff0000"><strong><h2>一、判断题</strong></font> </h2>
<p><%case 2 %> <font face="楷体_GB2312" color="#ff0000"><strong></p>
<h2>二、判断题</strong></font> </h2>
<p><%case 3 %> <font face="楷体_GB2312" color="#ff0000"><strong></p>
<h2>三、判断题</strong></font> </h2>
<p><%end select
end if
do while not base.eof
kk=kk+1%> </p>
<table border="0" width="100%">
<tr>
<td width="100%" height="5%">第<%Response.Write kk %>题： <%Response.Write base("试题")%>（<%Response.Write base("试题分数")%>分） </td>
</tr>
</table>
<table border="0" width="100%" cellpadding="3">
<tr>
<td width="40%"><font color="#0000FF">本题分数<%
if not base.eof then
response.write base("试题分数") & "分"
end if
%>：</font></td>
<td width="60%"><font color="#0000FF">用户得分：<%
if not base.eof then
response.write "<input type='text' size='13' name=" & base("ID") & " value=" & base("用户得分") & ">"
end if
%></font></td>
</tr>
<tr>
<td width="50%"><h3><font face="楷体_GB2312" color="#0000FF"><strong>正确答案：</strong></font></h3>
</td>
<td width="50%"><h3><font face="楷体_GB2312" color="#0000FF"><strong>你的答案：</strong></font></h3>
</td>
</tr>
</table>
<table border="0" width="100%">
<tr>
<td width="50%" height="5%"><%
Response.Write base("答案")
%>
</td>
<td width="50%" height="5%"><%
for i=1 to base("附加参数")
Response.Write i & ":"
Response.Write base("用户答案")
Response.Write "<br>"
if base.eof then
exit for
else
base.movenext
end if
next
%>
</td>
</tr>
<tr>
<td width="100%" colspan="2"><img src="Images/sail.gif" alt="sail.gif (725 bytes)" width="815"
height="30"></td>
</tr>
</table>
<%loop%>
<table border="0" width="100%" cellpadding="3">
<tr>
<td width="100%"><img src="Images/30.gif" alt="30.gif (725 bytes)" width="815" height="12"></td>
</tr>
</table>
<%sql="select * from "& session("name2") &" where 试题题型='简答' or 试题题型='简述（简答）'"
set base=conn.execute(sql)
kk=0
if not base.eof then
dts=dts+1
select case dts
case 1
%>
<font face="楷体_GB2312" color="#ff0000"><strong><h2>一、简答题</strong></font> </h2>
<p><%case 2 %> <font face="楷体_GB2312" color="#ff0000"><strong></p>
<h2>二、简答题</strong></font> </h2>
<p><%case 3 %> <font face="楷体_GB2312" color="#ff0000"><strong></p>
<h2>三、简答题</strong></font> </h2>
<p><%case 4 %> <font face="楷体_GB2312" color="#ff0000"><strong></p>
<h2>四、简答题</strong></font> </h2>
<p><%end select
end if
do while not base.eof
kk=kk+1%> </p>
<table border="0" width="100%">
<tr>
<td width="100%" height="5%">第<%Response.Write kk %>题： <%Response.Write base("试题")%>（<%Response.Write base("试题分数")%>分） </td>
</tr>
</table>
<table border="0" width="100%" cellpadding="3">
<tr>
<td width="40%"><font color="#0000FF">本题分数：<%
if not base.eof then
response.write base("试题分数") & "分"
end if
%></font></td>
<td width="60%"><font color="#0000FF">用户得分：<%
if not base.eof then
response.write "<input type='text' size='13' name=" & base("ID") & " value=" & base("用户得分") & ">"
end if
%></font></td>
</tr>
<tr>
<td width="50%"><h3><font face="楷体_GB2312" color="#0000FF"><strong>正确答案：</strong></font></h3>
</td>
<td width="50%"><h3><font face="楷体_GB2312" color="#0000FF"><strong>你的答案：</strong></font></h3>
</td>
</tr>
</table>
<table border="0" width="100%">
<tr>
<td width="50%" height="5%"><%
Response.Write base("答案")
%>
</td>
<td width="50%" height="5%"><%
for i=1 to base("附加参数")
Response.Write i & ":"
Response.Write base("用户答案")
Response.Write "<br>"
if base.eof then
exit for
else
base.movenext
end if
next
%>
</td>
</tr>
<tr>
<td width="100%" colspan="2"><img src="Images/sail.gif" alt="sail.gif (725 bytes)" width="811"
height="30"></td>
</tr>
</table>
<%loop%>
<table border="0" width="100%" cellpadding="3">
<tr>
<td width="100%"><img src="Images/30.gif" alt="30.gif (725 bytes)" width="807" height="12"></td>
</tr>
</table>
<%sql="select * from "& session("name2") &" where 试题题型='论述' or 试题题型='论述（分析）'"
set base=conn.execute(sql)
kk=0
if not base.eof then
dts=dts+1
select case dts
case 1
%>
<font face="楷体_GB2312" color="#ff0000"><strong><h2>一、论述题</strong></font> </h2>
<p><%case 2 %> <font face="楷体_GB2312" color="#ff0000"><strong></p>
<h2>二、论述题</strong></font> </h2>
<p><%case 3 %> <font face="楷体_GB2312" color="#ff0000"><strong></p>
<h2>三、论述题</strong></font> </h2>
<p><%case 4 %> <font face="楷体_GB2312" color="#ff0000"><strong></p>
<h2>四、论述题</strong></font> </h2>
<p><%case 5 %> <font face="楷体_GB2312" color="#ff0000"><strong></p>
<h2>五、论述题</strong></font> </h2>
<p><%end select
end if
do while not base.eof
kk=kk+1%> </p>
<table border="0" width="100%">
<tr>
<td width="100%" height="5%">第<%Response.Write kk %>题： <%Response.Write base("试题")%>（<%Response.Write base("试题分数")%>分） </td>
</tr>
</table>
<table border="0" width="100%" cellpadding="3">
<tr>
<td width="40%"><font color="#0000FF">本题分数：<%
if not base.eof then
response.write base("试题分数") & "分"
end if
%></font></td>
<td width="60%"><font color="#0000FF">用户得分：<%
if not base.eof then
response.write "<input type='text' size='13' name=" & base("ID") & " value=" & base("用户得分") & ">"
end if
%></font></td>
</tr>
<tr>
<td width="50%"><h3><font face="楷体_GB2312" color="#0000FF"><strong>正确答案：</strong></font></h3>
</td>
<td width="50%"><h3><font face="楷体_GB2312" color="#0000FF"><strong>你的答案：</strong></font></h3>
</td>
</tr>
</table>
<table border="0" width="100%">
<tr>
<td width="50%" height="5%"><%
Response.Write base("答案")
%>
</td>
<td width="50%" height="5%"><%
for i=1 to base("附加参数")
Response.Write i & ":"
Response.Write base("用户答案")
Response.Write "<br>"
if base.eof then
exit for
else
base.movenext
end if
next
%>
</td>
</tr>
<tr>
<td width="100%" colspan="2"><img src="Images/sail.gif" alt="sail.gif (725 bytes)" width="806"
height="30"></td>
</tr>
</table>
<%loop%>
<table border="0" width="100%" cellpadding="3">
<tr>
<td width="100%"><img src="Images/30.gif" alt="30.gif (725 bytes)" width="809" height="12"></td>
</tr>
</table>
<table border="0" width="100%">
<tr>
<td width="100%" align="center"></td>
</tr>
</table>
<div align="center"><center><p><input id="submit1" name="提交" type="submit"
value="提交"
style="font-family: 宋体, 隶书; font-size: 14pt; background-image: url('images/提交.bmp')"><input
id="reset1" name="清空" type="reset" value="清空"
style="background-image: url('images/清空.jpg'); font-family: 宋体; font-size: 14pt">
</p>
</center></div>
</form>
</body>
</html>