⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 test_pigai.asp

📁 在线考试系统源码实现远程判卷
💻 ASP
字号:
<!--#include file="../inc/open.asp" -->
<!--#include file="../inc/md5.inc" --><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head><!--#include file="../inc/css.css" -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>批改试卷</title>
</head>

<body>
<!--#include file="../inc/top.asp" -->
<!--#include file="../inc/menu.asp" -->
<%if session("zzteacher")=false then
    te_user_login=trim(request.form("te_user_login"))
	te_pass_login=trim(request.form("te_pass_login"))
	if te_user_login<>"" and te_pass_login<>"" then
	    te_pass_login=ucase(md5(te_pass_login))
		str="select * from user_te where teacher_user='"&te_user_login&"' and teacher_pass='"&te_pass_login&"'"
		set rs=conn.execute(str)
		if not rs.eof then
		    session("zzteacher")=true
			if rs("teacher_class")="超级管理员" then
			   session("adminadmin")=true
			end if
		end if
	end if
end if%>

<table width="770" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="ff99cc" bgcolor="edebeb">
  <tr>
    <td width="200" valign="top"><table width="163" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td class="unnamed6"> </td>
        </tr>
        <tr> 
          <td background="../images/nxmt_lj_46.gif" class="unnamed10"> </td>
        </tr>
        <tr> 
          <td background="../images/nxmt_lj_44.gif"><div align="center" class="unnamed14">用户登录</div></td>
        </tr>
        <tr> 
          <td background="../images/nxmt_lj_44.gif" class="unnamed12"> <%if session("zzteacher")=flase then%> <form action="test_pigai.asp" method="post" name="form1" class="unnamed12">
              <div align="center">用户名: 
                <input name="te_user_login" type="text" id="te_user_login" size="12" maxlength="15">
                <br>
                <br>
                密 码: 
                <input name="te_pass_login" type="password" id="te_pass_login" size="12" maxlength="15">
                <br>
                <br>
                <input type="submit" name="Submit" value=" 登 录 ">
              </div>
            </form>
            <div align="center"> 
              <% else
       response.write "<br><center>已登录  <a href=../quit.asp>退出</a>"
	   response.write "<br><br><a href=stlx_setup.asp?lx=no>设置为没有练习状态</a>"
	   response.write "<br><br><a href=stlx_setup.asp?lx=yes>设置为练习状态</a>"
     end if
%>
            </div></td>
        </tr>
        <tr> 
          <td background="../images/nxmt_lj_45.gif" class="unnamed10"> </td>
        </tr>
      </table></td>
    <td width="570" valign="top"> <div align="center">
<%if session("zzteacher")=false then%>
        <table width="570" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr> 
            <td width="439"><table width="400" border="0" align="center" cellpadding="0" cellspacing="0">
                <tr> 
                  <td><div align="center" class="unnamed19"> 
                      <p class="unnamed14">在线考试系统</p>
                      <p><strong><font color="#0000FF">试 卷 批 改</font></strong></p>
                      <p class="unnamed14">管理员登录后可批改试卷、查看考试成绩</p>
                    </div></td>
                </tr>
              </table></td>
            <td width="131"><img src="../images/xxkj.jpg" width="130" height="185"></td>
          </tr>
        </table>
        <%end if%>
<% if session("zzteacher")=true then	
	str="select * from test_gl"
	set rs=conn.execute(str)
	  if rs.eof then
	     %>
        <font color="#FF0000"><span class="unnamed14"><br><br><br><br>现在没有任何试卷</span></font> 
        <%else%>
        <span class="unnamed14"> </span>
        <table width="500" cellspacing="0" cellpadding="0">
          <tr>
            <td class="unnamed6"> </td>
          </tr>
        </table>
        <span class="unnamed14">现有试卷情况列表 </span> 
        <table width="100%" height="20" border="1" cellpadding="0" cellspacing="0" class="unnamed12">
          <tr bgcolor="#CCCCCC"> 
            <td height="20"><div align="center">考试名称</div></td>
            <td height="20"><div align="center">考试班级</div></td>
            <td height="20"><div align="center">考试日期</div></td>
            <td height="20"><div align="center">开考时间</div></td>
            <td height="20"><div align="center">结束时间</div></td>
            <td height="20"><div align="center">试题数</div></td>
            <td height="20"><div align="center">批改</div></td>
            <td height="20"><div align="center">成绩</div></td>
          </tr>
<%do while not rs.eof%>
          <tr> 
            <td height="20"><div align="center"><%=rs("考试名称")%></div></td>
            <td height="20"><div align="center"><%=rs("考试班级")%></div></td>
            <td height="20"><div align="center"><%=rs("考试日期")%></div></td>
            <td height="20"><div align="center"><%=rs("开考时间")%></div></td>
            <td height="20"><div align="center"><%=rs("结束时间")%></div></td>
            <td height="20"><div align="center"><%=rs("试题数量")%></div></td>
            <td height="20"><div align="center"><a href=dopigai.asp?table_name=<%=rs("数据表名")%>><%if rs("批改")="1" then response.write "已批改" else response.write "未批改" end if%></a></div></td>
            <td height="20"><div align="center"><a href=list_cj.asp?table_name=<%=rs("数据表名")%>>查看</a></div></td>
          </tr>
<%rs.movenext
   loop%>
        </table>
        <%	  end if
   end if%>
      </div></td>
  </tr>
</table>

<!--#include file="../inc/bottom.inc" -->
<%conn.close%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -