date_brow.asp

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

      <div align="center" class="unnamed14h20"> 
        <table width="163" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td class="unnamed6">　</td>
          </tr>
          <tr> 
            <td background="images/top01.gif" class="unnamed10">　</td>
          </tr>
          <tr> 
            <td height="30" background="images/mid01.gif" class="unnamed14">
<div align="center"><a href="datebase.asp?in_test=onlyong" class="unnamed14wu">增加单选题</a></div></td>
          </tr>
          <tr> 
            <td height="30" background="images/mid01.gif" class="unnamed14">
<div align="center"><a href="datebase.asp?in_test=many" class="unnamed14wu">增加多选题</a></div></td>
          </tr>
          <tr> 
            <td height="30" background="images/mid01.gif" class="unnamed14">
<div align="center"><a href="date_brow.asp" class="unnamed14wu">浏览编辑</a></div></td>
          </tr>
          <tr> 
            <td background="images/bottom01.gif" class="unnamed10">　</td>
          </tr>
          <tr> 
            <td class="unnamed6">　</td>
          </tr>
        </table>
<%conn.close%>
<!--#include file="open.asp" -->
<%
  str="select id from "&session("select_tk")&""
  rs.open str,conn,3,2
%>
        <p><a href="date_brow.asp?test_no=<%if test_no=1 then response.write rs.recordcount else response.write test_no-1 end if%>">上一题</a>　　<a href="date_brow.asp?test_no=<%if cint(test_no)=rs.recordcount then response.write 1 else response.write test_no+1 end if%>">下一题</a></p>
        <form name="form3" method="post" action="date_brow.asp?doing=sele">
          到第
          <input name="test_no" type="text" id="test_no" size="4">
          题　
          <input type="submit" name="Submit4" value=" 去 ">
        </form>
        <p>共<%=rs.recordcount%>题　　<a href="datebase.asp">返回</a></p>
        </div></td>
    <td width="570" valign="top"><table width="400" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td class="unnamed6"> 　</td>
        </tr>
      </table>
      <% str="select * from "&session("select_tk")&" where id="&test_no&""
   set rs=conn.execute(str)%>
   <%if rs.eof then%>
      <table width="500" border="1" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td height="30" bgcolor="#999999" class="unnamed16"><div align="center"><strong><font color="#FF0000">题库中设有任何试题</font></strong></div></td>
        </tr>
      </table> 
   <%else%>
      <table width="560" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td><form name="form2" method="post" action="date_brow.asp?doing=change&test_no=<%=rs("id")%>&in_test=<%if rs("select_only")=1 then%>onlyone<%else%>many<%end if%>">
              <table width="500" border="1" align="center" cellpadding="0" cellspacing="0">
                <tr> 
                  <td height="30" colspan="2" bgcolor="#CCCCCC"><div align="center" class="unnamed16"><strong>第<%=rs("id")%>题　　 
                      <%if rs("select_only")=1 then%>
                      单项选择题 
                      <%else%>
                      多项选择题 
                      <%end if%>
                      　</strong><font color="#FF0000"><span class="unnamed12">当前题库：<%=session("select_tk")%></span></font><strong> 
                      </strong></div></td>
                </tr>
                <tr> 
                  <td width="80" valign="top" class="unnamed14"> <div align="right">题目内容：</div></td>
                  <td width="420"><span class="unnamed14">　</span> <textarea style="font-family:宋体;font-size:14px" name="test_text" cols="52" rows="10" id="test_text"><%=rs("tm_text")%></textarea></td>
                </tr>
                <tr> 
                  <td class="unnamed14"> <div align="right">图　　片：</div></td>
<%
   file_name=year(now)
   if month(now)<10 then file_name=file_name&"0"&month(now) else file_name=file_name&month(now) end if
   if day(now)<10 then file_name=file_name&"0"&day(now) else file_name=file_name&day(now) end if
   if hour(now)<10 then file_name=file_name&"0"&hour(now) else file_name=file_name&hour(now) end if
   if minute(now)<10 then file_name=file_name&"0"&minute(now) else file_name=file_name&minute(now) end if
   if second(now)<10 then file_name=file_name&"0"&second(now) else file_name=file_name&second(now) end if
%>

                  <td class="unnamed14"> 　 　
<%if rs("img_name")<>"" and rs("img_name")<>"　" then%><a href="date_brow.asp?doing=dele_image&test_no=<%=rs("id")%>">取消图片</a><%else%>
                    <a href="select_upfile.asp?file_name=<%=file_name%>&direr=testimages" target="_blank">上传图片</a>　<font color="#FF0000"><span class="unnamed12">上传图片结束后一定要点击下面的修改按钮</span></font> 
                    <%end if%> 
                    <%'显示图片
      Dim fs,strFileNameAndPath   '检测文件是否存在
	  strFileNameAndPath=rs("img_name")
	  strFileNameAndPath="testimages/"&strFileNameAndPath
      strFileNameAndPath=Server.MapPath(strFileNameAndPath) '你的文件及路径
      set fs=CreateObject("Scripting.FileSystemObject")
    if fs.FileExists(strFileNameAndPath) then	  
	    response.write "<br>"
		response.write "<img src=testimages/"&rs("img_name")&">"
	 end if
%> </td>
                </tr>
                <tr> 
                  <td class="unnamed14"> <div align="right">答案A：</div></td>
                  <td class="unnamed14"> 　 
                    <input name="da_a" type="text" id="da_a" value="<%=rs("da_a")%>" size="52"></td>
                </tr>
                <tr> 
                  <td class="unnamed14"> <div align="right">答案B：</div></td>
                  <td class="unnamed14">　 
                    <input name="da_b" type="text" id="da_b" value="<%=rs("da_b")%>" size="52"></td>
                </tr>
                <tr> 
                  <td class="unnamed14"> <div align="right">答案C：</div></td>
                  <td class="unnamed14">　 
                    <input name="da_c" type="text" id="da_c" value="<%=rs("da_c")%>" size="52"></td>
                </tr>
                <tr> 
                  <td class="unnamed14"> <div align="right">答案D：</div></td>
                  <td class="unnamed14">　 
                    <input name="da_d" type="text" id="da_d" value="<%=rs("da_d")%>" size="52"></td>
                </tr>
                <tr> 
                  <td class="unnamed14"> <div align="right">答案E：</div></td>
                  <td class="unnamed14">　 
                    <input name="da_e" type="text" id="da_e" value="<%=rs("da_e")%>" size="52"></td>
                </tr>
                <tr> 
                  <td class="unnamed14"> <div align="right">答案F：</div></td>
                  <td class="unnamed14">　 
                    <input name="da_f" type="text" id="da_f" value="<%=rs("da_f")%>" size="52"></td>
                </tr>
                <%if rs("select_only")=1 then%>
                <tr> 
                  <td class="unnamed14"><div align="right">正确答案：</div></td>
                  <td class="unnamed14">　 
                    <input name="da_ok" type="radio" value="a" <%if rs("da")="100000" then%>checked<%end if%>>
                    A； 
                    <input name="da_ok" type="radio" value="b" <%if rs("da")="010000" then%>checked<%end if%>>
                    B； 
                    <input name="da_ok" type="radio" value="c" <%if rs("da")="001000" then%>checked<%end if%>>
                    C； 
                    <input name="da_ok" type="radio" value="d" <%if rs("da")="000100" then%>checked<%end if%>>
                    D； 
                    <input name="da_ok" type="radio" value="e" <%if rs("da")="000010" then%>checked<%end if%>>
                    E； 
                    <input name="da_ok" type="radio" value="f" <%if rs("da")="000001" then%>checked<%end if%>>
                    F。</td>
                </tr>
                <%else%>
                <tr> 
                  <td class="unnamed14"><div align="right">正确答案：</div></td>
                  <td class="unnamed14">　 
                    <input name="sa" type="checkbox" id="sa" value="a" <%if mid(rs("da"),1,1)="1" then%>checked<%end if%>>
                    A； 
                    <input name="sb" type="checkbox" id="sb" value="b" <%if mid(rs("da"),2,1)="1" then%>checked<%end if%>>
                    B； 
                    <input name="sc" type="checkbox" id="sc" value="c" <%if mid(rs("da"),3,1)="1" then%>checked<%end if%>>
                    C； 
                    <input name="sd" type="checkbox" id="sd" value="d" <%if mid(rs("da"),4,1)="1" then%>checked<%end if%>>
                    D； 
                    <input name="se" type="checkbox" id="se" value="e" <%if mid(rs("da"),5,1)="1" then%>checked<%end if%>>
                    E； 
                    <input name="sf" type="checkbox" id="sf" value="f" <%if mid(rs("da"),6,1)="1" then%>checked<%end if%>>
                    F。</td>
                </tr>
                <%end if%>
                <tr> 
                  <td height="30" colspan="2" class="unnamed14"><div align="center">
                      <input type="submit" name="Submit3" value=" 修 改 ">
                      　　　<a href="date_brow.asp?dele_id=<%=rs("id")%>&doing=dele">删除本题</a></div></td>
                </tr>
              </table>
            </form></td>
        </tr>
      </table>
	    <%end if%>
	  </td>
  </tr>
</table>

<%else%>
<table width="600" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td class="unnamed4">　</td>
  </tr>
</table>
<!--#include file="index01.asp" -->
<%end if%>
<!--#include file="inc/bottom.asp" -->
<%conn.close%>
</body>
</html>