www.gusucode.com > ASP+ACCESS在线考试系统设计(源代码+论文) > ASP+ACCESS在线考试系统设计(源代码+论文)\郭晓璇论文第二稿\papermanage\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="score.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

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
		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="694" 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="695" 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="694"
      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="695" 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="694"
      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="695" 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><%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="694"
      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="695" 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>