当前位置：文档之家› 在线考试系统源代码

在线考试系统源代码

课程删除源代码：<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%dim student_name,student_nostudent_name=session("student_name")student_no=session("student_no")student_password=session("student_password")if session("student_name")=empty thenresponse.write "<div align=""center"">您还没有登录，请<a href=""signup.asp"">返回</a> 登录</div>"response.endend if' 建立Connection 对象set conn= Server.CreateObject("adodb.connection")'定义OLE DB连接字符串'provider="provider=microsoft.jet.oledb.4.0;"'dbpath="data source="&server.mappath("/webtest/data/webtest.mdb")'打开连接'conn.open provider & dbpathcnnstr="DBQ=" + server.mappath("data/webtest.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"'打开连接'conn.open provider & dbpathconn.open cnnstr'创建command对象set cmd=server.CreateObject("mand")'将connection对象指定给command对象set cmd.activeconnection=conn'创建recordset对象set rs= Server.CreateObject("adodb.recordset")rs.locktype=2 '将锁定类型设为保守式dim sql1sql1="select 所学课程from student_subject where 学生学号='"&student_no&"' "rs.open sql1,conn, 3if rs.eof thenresponse.write "<div align=""center"">您还没有选择课程，请<a href=""s_select_subject.asp"">返回</a> 选择课程</div>"rs.closeresponse.endend if%><html><head><title>学生删除课程</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body bgcolor=#3399CC><h1 align="center"><% =session("student_name") %>同学删除课程</h1><hr><% if request("send")=empty then %><div align="center"><form name="s_del_subject_form" method="post" action=""><table width="70%" border="1" align="center" bordercolor="#000000"><tr><td><table width="100%" border="0" align="center"><tr><td colspan="2"><div align="center"> </div></td></tr><% rs.MoveFirst ' 将当前的数据记录移到第一项%><% While Not rs.EOF ' 判断是否已经过了最后一项%><tr><td><div align="right"><input type="checkbox" name="subject" value=<%= rs(0) %>>    </div></td><td width="49%" colspan="-4"><%= rs(0) %></td></tr><% rs.MoveNext ' 移到下一项%><%Wend%><tr><td colspan="2"><div align="center"> </div></td></tr><tr><td colspan="2"><div align="center"><input type="submit" name="ok" value="确定删除"></div></td></tr></table></td></tr></table><input name="send" type="hidden" value="send"></form><% else %><%subject_array=split(request("subject"),",")for i=0 to ubound(subject_array)dim subjectdim sql2subject=trim(subject_array(i))sql2="delete from student_subject where 学生学号='"&student_no&"' and 所学课程='"&subject&"'"mandtext=sql2cmd.Executenextconn.close%><%= "<p> </p><div align=""center"">您删除了下面这些的课程</div><br><br>" %><table width="29%" border="0" align="center"><tr><td><%subjects=replace(request("subject"),",","<li>")response.write "<ul><li>" & subjects & "</ul>"%><p> </p><p> </p><p> </p><p> </p><%= "<p align=""center""><a href=""student_main.asp"">返回</a> </p>" %> </td></tr></table><% end if %><p> </p></div></body></html>选择课程源代码：<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%dim student_name,student_nostudent_name=session("student_name")student_no=session("student_no")if session("student_name")=empty thenresponse.write "<div align=""center"">您还没有登录，请<a href=""student_signup.asp"">返回</a> 登录</div>"response.endend if' 建立Connection 对象set conn= Server.CreateObject("adodb.connection")'定义OLE DB连接字符串'provider="provider=microsoft.jet.oledb.4.0;"'dbpath="data source="&server.mappath("/webtest/data/webtest.mdb")'打开连接'conn.open provider & dbpathcnnstr="DBQ=" + server.mappath("data/webtest.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"'打开连接'conn.open provider & dbpathconn.open cnnstr'创建command对象set cmd=server.CreateObject("mand")'将connection对象指定给command对象set cmd.activeconnection=conn'创建recordset对象set rs= Server.CreateObject("adodb.recordset")rs.locktype=2 '将锁定类型设为保守式set rs5= Server.CreateObject("adodb.recordset")rs5.locktype=2 '将锁定类型设为保守式dim sql1sql1="select distinct 所讲学科from teacher "rs.open sql1,conn,3dim sql5sql5="select distinct 所学课程from student_subject where 学生学号='"&student_no&"'"rs5.open sql5,conn,3if not rs5.eof thendim subject_numrs5.MoveFirst ' 将当前的数据记录移到第一项While Not rs5.EOF ' 判断是否已经过了最后一项subject_num=subject_num+1rs5.MoveNext ' 移到下一项Wendredim select_array(subject_num) '将rs中的记录存入该数组dim subject_isubject_i=0rs5.MoveFirst ' 将当前的数据记录移到第一项While Not rs5.EOF ' 判断是否已经过了最后一项select_array(subject_i)=rs5("所学课程")subject_i=subject_i+1rs5.MoveNext ' 移到下一项Wendend ifrs5.close%><html><head><title>学生选择课程</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body bgcolor=#3399CC><div align="center"><h1><% =session("student_name") %>同学选择课程</h1><hr><p> </p><% if request("send")=empty then %><form name="s_select_subject_form" method="post" action=""><table width="70%" border="1" align="center" bordercolor="#000000"><tr><td><table width="100%" border="0" align="center"><tr><td colspan="2"><div align="center"> </div></td></tr><% if not rs.eof then rs.MoveFirst ' 将当前的数据记录移到第一项%><% While Not rs.EOF ' 判断是否已经过了最后一项%><% for i=0 to subject_num-1 %><% if rs("所讲学科")=select_array(i) then %><tr><td><div align="right">已选    </div></td><td width="49%" colspan="-4"><%= rs(0) %></td></tr><% exit for %><% end if %><% next %><% if i>=subject_num then%><tr><td><div align="right"><input type="checkbox" name="subject" value=<%= rs(0) %>>    </div></td><td width="49%" colspan="-4"><%= rs(0) %></td></tr><% end if %><% rs.MoveNext ' 移到下一项%><%Wendrs.close%><tr><td colspan="2"><div align="center"> </div></td></tr><tr><td colspan="2"><div align="center"><input type="submit" name="ok" value="确定选择"></div></td></tr></table></td></tr></table><input name="send" type="hidden" value="send"></form></div><%else %><%'检查是否选择了课程if request("subject")=empty thenresponse.write "您还没有选择课程！<p> </p><p> </p><p> </p><p> </p><p align=""center""><a href=""s_select_subject.asp"">返回</a> </p>"response.endend if%><%'检查选择的课程是否已经选过的%><%= "您选择了下面这些的课程<br><br>" %><table width="29%" border="0" align="center"><tr><td><%'输出已经选择了的课程subjects=replace(request("subject"),",","<li>")response.write "<ul><li>" & subjects & "</ul>"%><p> </p><p> </p><p> </p><p> </p><%= "<p align=""center""><a href=""student_main.asp"">返回</a> </p>" %> </td></tr></table><p> </p><%'将选择了的课程插入到数据库set rs2= Server.CreateObject("adodb.recordset")subject_array=split(request("subject"),",")dim subjectdim sql2,sql4for i=0 to ubound(subject_array)subject=trim(subject_array(i))sql4="select 学科编号from teacher where 所讲学科='"&subject&"'"rs2.open sql4,conn,3sql2="insert into student_subject values('"&student_no&"','"&rs2(0)&"','"&subject&"')"mandtext=sql2cmd.Executers2.closenextconn.close%><% end if %><p> </p></body></html>超级管理员登录界面源代码：<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%session("super_name")=emptysession("super_password")=empty%><html><head><title>超级管理员登录</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body bgcolor=#3399CC><div align="center"><h1>超级管理员登录</h1><hr><br><br><br><form action="super.asp" method="post" name="super_form" id="super_form"><table width="50%" border="1" align="center" bordercolor="#000000"> <tr><td><table width="100%" border="0" align="center"><tr><td><div align="center"></div></td><td> </td></tr><tr><td width="39%"><div align="right">姓    名:</div></td><td width="61%"><input name="super_name" type="text" id="super_name"></td> </tr><tr><td><div align="right">密    码:</div></td><td><input name="super_password" type="password" id="super_password"></td></tr><tr><td><div align="right"> </div></td><td><input name="super_ok" type="submit" id="student_ok3" value="登录"><input name="super_del" type="reset" id="student_del22" value="重置"></td> </tr></table></td></tr></table></form><%%></body></html>学生试卷查询源代码：<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%' 建立Connection 对象set conn= Server.CreateObject("adodb.connection")'定义OLE DB连接字符串'provider="provider=microsoft.jet.oledb.4.0;"'dbpath="data source="&server.mappath("data/webtest.mdb")cnnstr="DBQ=" + server.mappath("data/webtest.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"'打开连接'conn.open provider & dbpathconn.open cnnstr'创建command对象set cmd=server.CreateObject("mand")'将connection对象指定给command对象set cmd.activeconnection=conn'创建recordset对象set rs= Server.CreateObject("adodb.recordset")rs.locktype=2 '将锁定类型设为保守式%><html><head><title>学生试卷查询</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body bgcolor=#3399CC><div align="center"><h1>学生试卷查询</h1><hr><p> </p><%dim s_select_no_paper,s_select_subject_paper,s_select_date_papers_select_subject_paper=trim(request("s_select_subject_paper")) '学生选择考试的学科s_select_date_paper=trim(request("s_select_date_paper")) '学生选择考试的时间s_select_no_paper=trim(request("s_select_no_paper")) '学生选择考试学科的编号if s_select_subject_paper="选择学科编号" then%><script language="VBScript">alert("没有选择学科编号！")</script><%response.endend ifif s_select_subject_paper="选择考试学科" then%><script language="VBScript">alert("没有选择考试学科！")</script><%response.endend ifif s_select_date_paper="选择考试时间" then%><script language="VBScript">alert("没有选择考试时间！")</script><%response.endend ifs_select_date_paper=OutMDY(s_select_date_paper)dim sqlsql="select * from student_test where 考试学科='"&s_select_subject_paper&"' and cdate(考试时间)=#"&s_select_date_paper&"# and 学科编号='"&s_select_no_paper&"' "rs.open sql,conn,3if rs.eof thenresponse.write "学科编号，考试学科与考试时间不对应！<br><br>"response.write "<a href=""student_main.asp"">返回</a> </div>"rs.closeresponse.endend ifrs.closesql="select * from student_test where 考试学科='"&s_select_subject_paper&"' and cdate(考试时间)=#"&s_select_date_paper&"# and 学科编号='"&s_select_no_paper&"' and 学生学号='"&session("student_no")&"' order by 题型,题号"rs.open sql,conn,3if rs.eof thenresponse.write "你还没有考试这门课!"response.write "<a href=""student_main.asp"">返回</a> </div>"rs.closeresponse.endelse %><table border="1" bordercolor="#000000"><tr align="center" valign="middle"><td bgcolor="#3399FF"><div align="center"><font size="2">课程</font></div></td> <td bgcolor="#3399FF"><div align="center"><font size="2">题号</font></div></td> <td bgcolor="#3399FF"><div align="center"><font size="2">题型</font></div></td> <td bgcolor="#3399FF"><div align="center"><font size="2">你的回答</font></div></td><td bgcolor="#3399FF"><div align="center"><font size="2">分数</font></div></td> </tr><%rs.movefirstwhile not rs.eof%><tr align="center" valign="middle" bgcolor="#FFFFFF"><td><div align="center"><font size="2"><%= rs("考试学科") %></font></div></td> <td><div align="center"><font size="2"><%= rs("题号") %></font></div></td><td><div align="center"><font size="2"><%= rs("题型") %></font></div></td><td><div align="center"><font size="2"><%= rs("答案") %></font></div></td><td><div align="center"><font size="2"><%= rs("分数") %></font></div></td></tr><%rs.movenextwend%></table><p><% End If %></p><p><a href="student_main.asp">返回</a> </p></div></body></html>试卷生成界面及源代码：<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%if session("teacher_name")=empty thenresponse.write "<div align=""center"">您没有登录，请<a href=""teacher_signup.asp""target=""_parent"">返回</a>登录</div>"response.end()end if' 建立Connection 对象set conn= Server.CreateObject("adodb.connection")'定义OLE DB连接字符串'provider="provider=microsoft.jet.oledb.4.0;"'dbpath="data source="&server.mappath("data/webtest.mdb")'打开连接'conn.open provider & dbpathcnnstr="DBQ=" + server.mappath("data/webtest.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"'打开连接'conn.open provider & dbpathconn.open cnnstr'创建command对象set cmd=server.CreateObject("mand")'将connection对象指定给command对象set cmd.activeconnection=conn'创建recordset对象set rs= Server.CreateObject("adodb.recordset")rs.locktype=2 '将锁定类型设为保守式dim sqlsql="select distinct 学科编号from testing "rs.open sql,conn,3 '求test表中，学科编号if not rs.eof thendim no_numrs.MoveFirst ' 将当前的数据记录移到第一项While Not rs.EOF ' 判断是否已经过了最后一项no_num=no_num+1rs.MoveNext ' 移到下一项Wendredim no_array(no_num) '将rs中的记录存入该数组dim ii=0rs.MoveFirst ' 将当前的数据记录移到第一项While Not rs.EOF ' 判断是否已经过了最后一项no_array(i)=rs(0)i=i+1rs.MoveNext ' 移到下一项Wendend ifrs.closesql="select distinct 所讲学科from testing "rs.open sql,conn,3 '求test表中，该教师教了那些学科if not rs.eof thendim subject_numrs.MoveFirst ' 将当前的数据记录移到第一项While Not rs.EOF ' 判断是否已经过了最后一项subject_num=subject_num+1rs.MoveNext ' 移到下一项Wendredim subject_array(subject_num) '将rs中的记录存入该数组dim mm=0rs.MoveFirst ' 将当前的数据记录移到第一项While Not rs.EOF ' 判断是否已经过了最后一项subject_array(m)=rs(0)m=m+1rs.MoveNext ' 移到下一项Wendend ifrs.closesql="select distinct 考试时间from testing "rs.open sql,conn,3 '求test表中，该教师教了那些学科if not rs.eof thendim test_time_numrs.MoveFirst ' 将当前的数据记录移到第一项While Not rs.EOF ' 判断是否已经过了最后一项test_time_num=test_time_num+1rs.MoveNext ' 移到下一项Wendredim test_time_array(test_time_num) '将rs中的记录存入该数组dim jj=0rs.MoveFirst ' 将当前的数据记录移到第一项While Not rs.EOF ' 判断是否已经过了最后一项test_time_array(j)=rs(0)j=j+1rs.MoveNext ' 移到下一项Wendend ifrs.closeconn.close%><html><head><title>试卷生成</title><script language="JavaScript" type="text/JavaScript"></script></head><body bgcolor=#3399CC><div align="center"><h1>试卷生成</h1><table width="100%"><tr align="center" valign="middle"><td><div align="center"><font size="2"><a href="teacher_subject.asp" target="_parent">教师出题</a></font></div></td><td><div align="center"><font size="2"><a href="teacher_modify_subject.asp" target="_parent">修改试题</a></font></div></td><td><div align="center"><font size="2"><a href="teacher_find_subject.asp" target="_parent">查询试题</a></font></div></td><td><div align="center"><font size="2"><a href="teacher_draw.asp" target="_parent">教师抽题</a></font></div></td><td><div align="center"><font size="2"><a href="teacher_paper_make.asp" target="_parent">试卷生成</a></font></div></td><td><div align="center"><font size="2"><a href="teacher_do_score.asp" target="_parent">教师判卷</a></font></div></td><td><div align="center"><font size="2"><a href="teacher_find_score.asp" target="_parent">查询分数</a></font></div></td><td><div align="center"><font size="2"><a href="teacher_paper_analysis.asp" target="_parent">考后分析</a></font></div></td><td><div align="center"><font size="2"><a href="teacher_all_analysis.asp" target="_parent">整体分析</a></font></div></td><td><div align="center"><font size="2"><a href="teacher_share.asp" target="_parent">资源共享</a></font></div></td></tr></table><hr><p> </p><p> </p><form name="form1" method="post" action="teacher_paper_word.asp"><table width="50%" border="1" bordercolor="#000000"><tr><td align="center" valign="middle"><div align="center"><table width="100%" border="0"><tr><td><div align="center"><select name="t_p_m_no" id="t_p_m_no"><option>选择学科编号</option><% for i=0 to no_num-1 %><option><%= no_array(i) %></option><% next %></select></div></td></tr><tr><td><div align="center"><select name="t_p_m_subject" id="t_p_m_subject"><option>选择学科</option><% for i=0 to subject_num-1 %><option><%= subject_array(i) %></option><% next %></select></div></td></tr><tr><td><div align="center"><select name="t_p_m_test_time" id="t_p_m_test_time"><option>选择考试时间</option><% for i=0 to test_time_num-1 %><option><%=formatdatetime(test_time_array(i),vblongdate) %></option><% next %></select></div></td></tr><tr><td><div align="center"><input name="t_p_ok" type="submit" id="t_p_ok" value="确定"><input type="reset" name="Submit2" value="重写"><input name="send" type="hidden" id="send" value="send"></div></td></tr><tr><td><div align="center"> </div></td></tr></table></div></td></tr></table></form><input name="t_p_m_look" type="button" onClick="MM_openBrWindow('teacher_paper_make_look.asp','','scrollbars=yes,resizable=yes' )" value="信息查看"><p> </p><p> </p><p><a href="teacher_main.asp">返回</a></p></div></body></html>教师登录界面及源代码：<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%session("teacher_name")=emptysession("teacher_no")=emptysession("teacher_password")=emptysession("teacher_subject")=empty%><html><head><title>教师登录</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body bgcolor=#3399CC><div align="center"><h1><strong>教师登录</strong></h1><hr><br><br><br><form action="teacher_main.asp" method="post" name="teacher_form" id="teacher_form"> <table width="50%" border="1" bordercolor="#000000"> <tr><td><table width="100%" border="0"><tr><td><div align="center"></div></td><td> </td></tr><tr><td width="40%"><div align="right">教师姓名:</div></td><td width="60%"><div align="left"><input name="teacher_name" type="text" id="teacher_name"></div></td></tr><tr><td><div align="right">学科编号:</div></td><td><div align="left"><input name="teacher_no" type="text" id="teacher_no"></div></td></tr><tr>。

e商务文档

在线考试系统源代码

相关文档推荐：