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>