list_chengji_st.asp

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

	 tk_id=cint(request.querystring("tk_id"))
	 str="select * from "&list_tk&" where id="&tk_id&""
	 set rs=conn.execute(str)
%>
<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("id")%></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%">
				<%if mid(rs("da"),1,1)="1" then response.write "A" end if%>
				<%if mid(rs("da"),2,1)="1" then response.write "B" end if%>
				<%if mid(rs("da"),3,1)="1" then response.write "C" end if%>
				<%if mid(rs("da"),4,1)="1" then response.write "D" end if%>
				<%if mid(rs("da"),5,1)="1" then response.write "E" end if%>
				<%if mid(rs("da"),6,1)="1" then response.write "F" end if%>
				</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%">
				<% if an="000000" then response.write "未答" end if%>
				<%if mid(an,1,1)="1" then response.write "A" end if%>
				<%if mid(an,2,1)="1" then response.write "B" end if%>
				<%if mid(an,3,1)="1" then response.write "C" end if%>
				<%if mid(an,4,1)="1" then response.write "D" end if%>
				<%if mid(an,5,1)="1" then response.write "E" end if%>
				<%if mid(an,6,1)="1" then response.write "F" end if%>
				</td>
              </tr>
            </table></td>
        </tr>
        <tr> 
          <td height="20" background="images/mid01.gif"><div align="center">
              <p class="unnamed12"><a href="list_chengji_st.asp?doing=list_cj&list_name=<%=list_name%>">关闭显示试题</a></p>
            </div></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" class="unnamed12h">　　　<span class="unnamed14">第 <%=tm_id%> 题</span></td>
        </tr>
        <tr> 
          <td class="unnamed12h"><%=rs("tm_text")%></td>
        </tr>
        <%if rs("img_name")<>"" and rs("img_name")<>"　" then%>
        <tr> 
          <td><div align="center"><img src="testimages/<%=rs("img_name")%>"></div></td>
        </tr>
        <%end if%>
        <tr> 
          <td class="unnamed12H">　A： 
            <%if rs("select_only")=1 then%><input type="radio" name="radiobutton" value="radiobutton"><%else%> <input type="checkbox" name="checkbox" value="checkbox"><%end if%>
            <%=rs("da_a")%></td>
        </tr>
        <tr> 
          <td class="unnamed12H">　B： 
            <%if rs("select_only")=1 then%><input type="radio" name="radiobutton" value="radiobutton"><%else%> <input type="checkbox" name="checkbox2" value="checkbox"><%end if%>
            <%=rs("da_b")%></td>
        </tr>
   <%if rs("da_c")<>"" and rs("da_c")<>"　" then%>
        <tr> 
          <td class="unnamed12H">　C： 
            <%if rs("select_only")=1 then%><input type="radio" name="radiobutton" value="radiobutton"><%else%> <input type="checkbox" name="checkbox3" value="checkbox"><%end if%>
            <%=rs("da_c")%></td>
        </tr>
   <%end if
     if rs("da_d")<>"" and rs("da_d")<>"　" then%>
        <tr> 
          <td class="unnamed12H">　D： 
            <%if rs("select_only")=1 then%><input type="radio" name="radiobutton" value="radiobutton"><%else%> <input type="checkbox" name="checkbox4" value="checkbox"><%end if%>
            <%=rs("da_d")%></td>
        </tr>
   <%end if
     if rs("da_e")<>"" and rs("da_e")<>"　" then%>
        <tr> 
          <td class="unnamed12H">　E： 
            <%if rs("select_only")=1 then%><input type="radio" name="radiobutton" value="radiobutton"><%else%> <input type="checkbox" name="checkbox5" value="checkbox"><%end if%>
            <%=rs("da_e")%></td>
        </tr>
   <%end if
     if rs("da_f")<>"" and rs("da_f")<>"　" then%>
        <tr>
          <td class="unnamed12H">　F： 
            <%if rs("select_only")=1 then%><input type="radio" name="radiobutton" value="radiobutton"><%else%> <input type="checkbox" name="checkbox6" value="checkbox"><%end if%>
            <%=rs("da_f")%></td>
        </tr>
    <%end if%>
      </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>
<%end if    'xyz%>

<%end if      'abcd%>
<table width="770" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#ff99cc" bgcolor="#edebdb">
  <tr>
    <td valign="top"> <table width="500" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td class="unnamed6">　</td>
        </tr>
      </table> 
      <div align="center" class="unnamed14h20">
        <table width="770" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="30" bgcolor="#999999"><div align="center" class="unnamed16"><strong>试 
                卷 信 息 列 表</strong></div></td>
          </tr>
        </table>
<%str="select id,考试名称,题库名称,开考时间,结束时间,试题数量,数据表名,查分 from test_gl where 考试班级='"&session("student_bj")&"'order by id desc"
   set rs=conn.execute(str)%>
        <table width="770" border="1" cellspacing="0" cellpadding="0">
          <tr class="unnamed12"> 
            <td width="200" height="20"> 
              <div align="center">考 试 名 称</div></td>
            <td width="100">
<div align="center">考试科目</div></td>
            <td width="140" height="20"> <div align="center">开 始 时 间</div></td>
            <td width="140" height="20"> <div align="center">结 束 时 间</div></td>
            <td width="60" height="20"> <div align="center">试题数量</div></td>
            <td width="60" height="20"> <div align="center">查询成绩</div></td>
            <td width="40" height="20"> <div align="center">状态</div></td>
          </tr>
          <%
if not rs.eof then
    do while not rs.eof%>
          <tr class="unnamed12"> 
            <td height="20">　 <%if rs("查分")=1 then%> <a href=list_chengji_st.asp?doing=list_cj&list_tk=<%=rs("题库名称")%>&list_name=<%=rs("数据表名")%>><%=rs("考试名称")%></a> <%else%> <%=rs("考试名称")%> <%end if%></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"> 
                <%if rs("查分")=1 then%>
                <font color="#0000FF">允许</font> 
                <%else%>
                <font color="#FF0000">禁止</font> 
                <%end if%>
              </div></td>
            <td height="20"><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
	      loop
else%>
          <tr class="unnamed12"> 
            <td height="30" colspan="7"><div align="center" class="unnamed14"><font color="#FF0000">没有该班级的考试试卷</font></div></td>
          </tr>
          <%end if%>
        </table>
        <table width="600" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td class="unnamed6">　</td>
          </tr>
        </table>
        <font color="#FF0000"> </font> </div></td>
  </tr>
</table>
<%else%>
<!--#include file="index01.asp" -->
<%end if%>
<!--#include file="inc/bottom.asp" -->
<%conn.close%>
</body>
</html>