index01.asp

本系统适用于选择题（单选和多选）的练习和考试.主要有七大模块：学习信息、经验交流、学生练习、学生考试、试卷管理、题库操作、身份 资料、成绩查询、系统帮助。超级管理员还可进行系统设置

<table width="770" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#ff99cc" bgcolor="#edebdb">
  <tr>
    <td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="380"><table width="100%" border="1" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="22" background="images/jybg01.gif" class="unnamed14"><div align="center"><strong>最新学习信息</strong></div></td>
              </tr>
<%
  str="select id,标题,发文日期 from ziliao order by id desc"
  set rs=conn.execute(str)
  for m=1 to 10%>
              <tr> 
                <td height="20" class="unnamed12">　☆ <%if not rs.eof then%> <a href=ziliao_disp.asp?ziliao_id=<%=rs("id")%>><%=left(rs("标题"),20)%></a> <%if len(rs("标题"))>20 then%>
                  … <%end if%> 　<%=rs("发文日期")%> <%else%>　<%end if%></td>
              </tr>
<% if not rs.eof then
      rs.movenext
   end if
  next%>
            </table></td>
          <td width="10">&nbsp;</td>
          <td width="380"><table width="100%" border="1" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="22" background="images/jybg01.gif" class="unnamed14"><div align="center"><strong>最新学习经验</strong></div></td>
              </tr>
<%
  str="select id,标题,发表日期 from jiaoliou where 是否主题=1 order by id desc"
  set rs=conn.execute(str)
  for m=1 to 10%>
              <tr>
                <td height="20" class="unnamed12">　☆  <%if not rs.eof then%> <a href=jiaoliou_disp.asp?disp_id=<%=rs("id")%>><%=left(rs("标题"),20)%></a> <%if len(rs("标题"))>20 then%>
                  … <%end if%> 　<%=rs("发表日期")%> <%else%>　<%end if%></td>
              </tr>
<%if not rs.eof then
    rs.movenext
   end if
  next%>
            </table></td>
        </tr>
      </table>
      <table width="560" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td class="unnamed6">　</td>
        </tr>
      </table>
      <table width="100%" border="1" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="22" colspan="8" background="images/jybg01.gif"><div align="center" class="unnamed14"><strong>最　新　考　试　信　息</strong></div></td>
        </tr>
        <tr class="unnamed12"> 
          <td width="210"> <div align="center">考 试 名 称</div></td>
          <td width="90"><div align="center">考试科目</div></td>
          <td width="70" height="20"> <div align="center">考试班级</div></td>
          <td width="135"> <div align="center">开 始 时 间</div></td>
          <td width="135"> <div align="center">结 束 时 间</div></td>
          <td width="45"> <div align="center">试题数</div></td>
          <td width="45"> <div align="center">查成绩</div></td>
          <td width="40"> <div align="center">状态</div></td>
        </tr>
        <%str="select id,考试名称,题库名称,考试班级,开考时间,结束时间,试题数量,数据表名,查分 from test_gl order by 结束时间 desc,开考时间 desc"
   set rs=conn.execute(str)
if not rs.eof then
   m=1
   do while m<=10 and not rs.eof%>
        <tr class="unnamed12"> 
          <td width="210" height="20"> 　 
            <%if session("student_bj")=rs("考试班级") then%>
            <A href="student_test.asp?doing=testing&test_name=<%=rs("数据表名")%>"><%=rs("考试名称")%></a> 
            <%else%>
            <%=rs("考试名称")%> 
            <%end if%>
          </td>
          <td width="90" height="20"><div align="center"><%=rs("题库名称")%></div></td>
          <td width="70"> <div align="center"><%=rs("考试班级")%></div></td>
          <td width="135"> <div align="center"><%=rs("开考时间")%></div></td>
          <td width="135"> <div align="center"><%=rs("结束时间")%></div></td>
          <td width="45"> <div align="center"><%=rs("试题数量")%></div></td>
          <td width="45"> <div align="center"> 
              <%if rs("查分")=1 then%>
              <font color="#0000FF">允许</font> 
              <%else%>
              <font color="#FF0000">禁止</font> 
              <%end if%>
            </div></td>
          <td width="40"> <div align="center"> 
              <%if rs("结束时间")<now then%>
              <font color="#FF0000">已结束</font> 
              <%else%>
              <%if rs("开考时间")<now then%>
              <font color="#0000FF">进行中</font> 
              <%else%>
              <font color="#FF00FF">未开始</font> 
              <%end if%>
              <%end if%>
            </div></td>
        </tr>
        <% rs.movenext
   m=m+1
   loop%>
        <%else%>
        <tr class="unnamed12"> 
          <td height="40" colspan="8"><div align="center"><font color="#FF0000">目前没有任何考试信息</font></div></td>
        </tr>
        <%end if%>
        <tr class="unnamed12">
          <td height="40" colspan="8"><div align="center"><a href="http://www.ads4cn.com/newsbar/refferer.asp?caiyuqi"><img src="images/nb1.gif" width="468" height="60" border="0"></a><br>
              <a href="http://www.ads4cn.com/newsbar/refferer.asp?caiyuqi" target="_blank"  class="unnamed12">闲着也是闲着，不花一分钱，也不耽误多少时间，试试看吧。 
              </a></div></td>
        </tr>
      </table> </td>
  </tr>
</table>