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

📄 list_chengji_st.asp

📁 本系统适用于选择题（单选和多选）的练习和考试.主要有七大模块：学习信息、经验交流、学生练习、学生考试、试卷管理、题库操作、身份 资料、成绩查询、系统帮助。超级管理员还可进行系统设置
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<!--#include file="open.asp" -->
<!--#include file="inc/md5.inc" -->
<%path_name=request.servervariables("SCRIPT_NAME")
strnum=len(path_name)-instrrev(path_name,"/")
self_name=right(path_name,strnum)%>
<%
  doing=request.querystring("doing")
  if doing="login" then  '用户登录
      user_id=trim(request.form("user_id"))
	  pass=trim(request.form("pass"))
	  if user_id<>"" and pass<>"" and instr(user_id,"'")=0 and instr(user_id,"&")=0 then
	      pass=ucase(md5(pass))
		  str="select * from user_teacher where teacher_user='"&user_id&"' and teacher_pass='"&pass&"'"
		  set rs=conn.execute(str)
		  if not rs.eof then
		      session("zzteacher")=true
			  session("name")=rs("teacher_name")
			  if rs("teacher_class")="超级管理员" then session("zzadmin")=true end if
		  else
		      str="select * from user_student where 学籍号='"&user_id&"' and 密码='"&pass&"'"
		      set rs=conn.execute(str)
			  if not rs.eof then
			     session("zzstudent")=true
				 session("student_id")=user_id
				 session("name")=rs("姓名")
				 session("student_bj")=rs("班级")
			  end if
		  end if
	  end if
  end if
%>
<!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 topmargin="1">
<!--#include file="top.asp" -->
<!--#include file="menu.asp" -->
<table width="770" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#ff99cc" bgcolor="#edebdb">
<%if session("zzteacher")=true or session("zzstudent")=true then%>
  <tr> 
    <td height="20" class="unnamed12"><div align="center">用户已登录　用户类别：
	<%if session("zzstudent")=true then%>学生　学籍号：<%=session("student_id")%>　姓名：<%=session("name")%>　班级：<%=session("student_bj")%><%end if%>
	<%if session("zzteacher")=true then%>教师　姓名：<%=session("name")%><%end if%>
	　<%if session("zzadmin")=true then%><a href=system_setup.asp>系统设置</a><%end if%>
		　<a href="quit.asp?back=<%=self_name%>">退出</a></div></td>
  </tr>
<%else%>
  <tr> 
    <td height="20" class="unnamed12"> <form name="form1" method="post" action="<%=self_name%>?doing=login">
        <div align="center">用户登录　输入学籍号或用户名： 
          <input name="user_id" type="text" id="user_id" value=<%=id_disp%> size="20">
          　密码： 
          <input name="pass" type="password" id="pass" size="16">
          　 
          <input type="submit" name="Submit" class="unnamed12" value="登录">
          　 
          <input type="reset" name="Submit2" class="unnamed12" value="重填">
          　 <a href="reg.asp?back=<%=self_name%>">注册</a>　<a href="rereg.asp">忘记密码</a></div>
      </td></form>
  </tr>
<%end if%>
</table>
<table width="770" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td class="unnamed4">　</td>
  </tr>
</table>
<%if session("zzstudent")=true then%>
<table width="770" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#ff99cc" bgcolor="#edebdb">
  <tr>
    <td width="767" height="24"> 
      <div align="center" class="unnamed14h20"> <span class="unnamed12H"><font color="#FF0000"><marquee direction="left" scrolldelay="200">
        <font color="#0000FF">注意：一旦对某试卷查询分数后，就不能再次进入该试卷继续进行考试，请谨慎使用此功能。</font> 
        </marquee>
        </font></span> </div></td>
  </tr>
</table>
<table width="700" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td class="unnamed4">　</td>
  </tr>
</table>
<%if doing="list_cj" then  'abcd %>
<%
list_name=request.querystring("list_name")
list_tk=request.querystring("list_tk")
str="select 题号,正确答案,完成答案,试题数,正确数,错误数,得分,完成 from "&list_name&" where 学籍号='"&session("student_id")&"'"
set rs=conn.execute(str)
if rs("完成")<>"1" then
    temp1=rs("正确答案")    '开始计算分数
    temp2=rs("完成答案")
	ok=0
	notok=0
  for m=1 to rs("试题数")
     daok=mid(temp1,m*6-5,6)
	 da=mid(temp2,m*6-5,6)
	 if daok=da then ok=ok+1 else notok=notok+1 end if
  next
  cj=ok*100/rs("试题数")
  str="update "&list_name&" set 正确数="&ok&",错误数="&notok&",得分="&cj&",完成='1' where 学籍号='"&session("student_id")&"'"
  conn.execute(str)    '计算分数结束
  str="select 题号,正确答案,完成答案,试题数,正确数,错误数,得分 from "&list_name&" where 学籍号='"&session("student_id")&"'"
  set rs=conn.execute(str)
end if
%>

<table width="770" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#ff99cc" bgcolor="#edebdb">
  <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/top01.gif" class="unnamed10">　</td>
        </tr>
        <tr>
          <td height="20" background="images/mid01.gif"><table width="150" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr class="unnamed12"> 
                <td width="60%"><div align="right">试题总数：</div></td>
                <td width="40%"><%=rs("试题数")%></td>
              </tr>
            </table></td>
        </tr>
        <tr> 
          <td height="20" background="images/mid01.gif"><table width="150" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr class="unnamed12"> 
                <td width="60%"><div align="right">答对数量：</div></td>
                <td width="40%"><%=rs("正确数")%></td>
              </tr>
            </table></td>
        </tr>
        <tr> 
          <td height="20" background="images/mid01.gif"><table width="150" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr class="unnamed12"> 
                <td width="60%"><div align="right">答错数量：</div></td>
                <td width="40%"><%=rs("错误数")%></td>
              </tr>
            </table></td>
        </tr>
        <tr> 
          <td height="20" background="images/mid01.gif"><table width="150" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr class="unnamed12"> 
                <td width="60%"><div align="right">总 得 分：</div></td>
                <td width="40%"><%=rs("得分")%></td>
              </tr>
            </table></td>
        </tr>
        <tr> 
          <td background="images/bottom01.gif" class="unnamed10">　</td>
        </tr>
        <tr> 
          <td class="unnamed6">　</td>
        </tr>
      </table></td>
    <td width="570" valign="top"><table width="500" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td class="unnamed6">　</td>
        </tr>
      </table>
      <table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td height="30" bgcolor="#999999"> 
            <div align="center" class="unnamed16"><strong>详 细 显 示</strong></div></td>
        </tr>
      </table>
      <table width="500" border="1" align="center" cellpadding="0" cellspacing="0">
        <tr class="unnamed12"> 
<%
  test_no_all=rs("题号")
  daok_all=rs("正确答案")
  da_all=rs("完成答案")
  test_all=rs("试题数")
  for m=1 to rs("试题数")
    daok=mid(daok_all,m*6-5,6)
	da=mid(da_all,m*6-5,6)
	test_no=mid(test_no_all,m*4-3,4)
%>
          <td height="24"><div align="center"><a href=list_chengji_st.asp?doing=list_cj&list_tk=<%=list_tk%>&an=<%=da%>&disp=tm&tm_id=<%=m%>&tk_id=<%=test_no%>&list_name=<%=list_name%>>第<%=m%>题</a><%if da="000000" then%>
              <font color="#FF00FF">未答</font> 
              <%else%><%if da=daok then%>
              <font color="#0000FF">正确</font> 
              <%else%>
              <font color="#FF0000">错误</font>
<%end if%><%end if%></div></td>
   <%if m mod 5=0 and m<test_all then%></tr><tr class="unnamed12"><%end if%>
<%next%>
   <%if m mod 5=0 then%><td>　</td><%end if%>
   <%if m mod 5=4 then%><td>　</td><td>　</td><%end if%>
   <%if m mod 5=3 then%><td>　</td><td>　</td><td>　</td><%end if%>
   <%if m mod 5=2 then%><td>　</td><td>　</td><td>　</td><td>　</td><%end if%>
        </tr>

      </table>
      <table width="400" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td class="unnamed6">　</td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="700" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td class="unnamed6">　</td>
  </tr>
</table>

<%    'xyz
   disp=request.querystring("disp")
   if disp="tm" then
     an=request.querystring("an")
	 tm_id=request.querystring("tm_id")
12

⌨️ 快捷键说明

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