modcl.asp

这是用asp做的一个网上考试题库系统

      </td> 
     <%elseif objRS("Itemtype")=2 then%>
      <td width="7%" nowrap height="24">  
        <div align="center"> 
        <% 
           LENDAAN=LEN(answer)
           if LENDAAN<>0 then
               curdaan=left(answer,1)
               if curdaan="E" then%>
                     <input type="checkbox" name="xx5" value="E"  checked>E
                     <%answer=Right(answer,(LENDAAN-1))
                else%>	
                 <input type="checkbox" name="xx5" value="E" >E
               <%end if%>
           <%else%>
             <input type="checkbox" name="xx5" value="E" >E 
           <% end if%>
        </div> 
      </td> 
     <%end if%>
    <td colspan="2" height="21">
        <textarea name="stzwE" cols="50" rows="1"><%=objRS("xxE")%></textarea>
    </td>
  </tr>
     <tr>
      <td  width="7%" nowrap height="24">&nbsp; </td>
      <td width="10%" nowrap> 
         <%if objRS("xxEwj")<>"" then%>
           <%Session("stwjE")=objRS("xxEwj")%>
            <%if (objRS("Itemtype")=2) then%>
           <a href="./Temp3/<%=objRS("xxEwj")%>" target="_blank">选项E附件</a>
             <%else%>
              <a href="./Temp1/<%=objRS("xxEwj")%>" target="_blank">选项E附件</a>
             <%end if%> 
         <%else%>
            选项E无附件
         <%end if%>
      </td>
      <td width="83%">
        <input type="file" name="stwjE">
      </td>
    </tr>
   <% end if%>
  
  <% if (objRS("Itemtype")=2) then%>
       <tr>
       <td width="7%" nowrap height="24">  
        <div align="center"> 
        <% 
           LENDAAN=LEN(answer)
           if LENDAAN<>0 then
               curdaan=left(answer,1)
               if curdaan="F" then%>
                     <input type="checkbox" name="xx6" value="F"  checked>F
                     <%answer=Right(answer,(LENDAAN-1))
                else%>	
                 <input type="checkbox" name="xx6" value="F" >F
               <%end if%>
           <%else%>
             <input type="checkbox" name="xx6" value="F" >F
           <% end if%>
        </div> 
      </td> 
     
    <td colspan="2" height="21">
        <textarea name="stzwF" cols="50" rows="1"><%=objRS("xxF")%></textarea>
    </td>
    </tr>
     <tr>
      <td  width="7%" nowrap height="24">&nbsp; </td>
      <td width="10%" nowrap> 
         <%if objRS("xxFwj")<>"" then%>
           <%Session("stwjF")=objRS("xxFwj")%>
           <a href="./Temp3/<%=objRS("xxFwj")%>" target="_blank">选项F附件</a>
         <%else%>
            选项F无附件
         <%end if%>
      </td>
      <td width="83%">
        <input type="file" name="stwjF">
      </td>
    </tr>
  </table>
  <table width="97%" border="0">
    <tr> 
      <td> 
        <hr>
      </td>
    </tr>
  </table>
<% end if%>
<%if objRS("Itemtype")=3 then %>
 <p align="center">试题内容</p>   
  <p align="center">
    <TEXTAREA cols=105 id="shtnr" name="zwnr" rows="5" class="input" style="background-color: #FFFFFF; border-style: solid; border-width: 1   
              "></TEXTAREA>
  </p>   
            
  <p align="center"> 
    <input type="button" value="加入填空项" name="B3" onClick="AddTiankong();">
    <input type="button" name="B4" value="重新填写填空项" onClick="ResetTiankong();">
    （每一个填空项加入八个连续的半角下划线）</p>   
            <p align="center">试题答案</p>   
             
              
  <table width="75%" border="0" id=sttable>  
    <tr>   
      <td>  
        <div align="center">答案一：   
          <input type="text" id="last" name="da1" maxlength="50" size="30"class="input" style="background-color: #FFFFFF; border-style: solid; border-width: 1   
              ">  
        </div>  
      </td>  
    </tr>  
  </table>  
    
  <p >&nbsp; </p>   
            
  <p align="center"> 
    <input type="button" value="增加答案" onClick="addanswer()">
    <input type="button" value="减少答案" onClick="delanswer()">
  </p>  
  <table width="101%" border="0">
    <tr> 
      <td width="28%"> <%if objRS("STWJ")<>"" then%> 
       <%Session("zwwj")=objRS("STWJ")%>
       <div align="center"><a href="./Temp2/<%=objRS("STWJ")%>" target="_blank">试题附件</a> <%else%> 试题无附件 
          <%end if %> </div>
      </td>
      <td width="72%">为该题上载附件: 
        <input type="FILE" size="40"  name="zwwj">
      </td>
    </tr>
  </table>
 
<%end if%>

<% if objRS("Itemtype")=4  then%>
  <p align="center"><font color="#0000CC"><b>试题正文</b></font></p>
  <table width="77%" border="0" height="58" align="center">
    <tr>   
    <td width="1%" height="24" nowrap>&nbsp; </td>  
    <td width="99%" height="24" nowrap>   
      <div align="center"><font size="2" color="#3333FF">   
          <textarea name="zwnr" cols="80" rows="2"><%=objRS("STNR")%></textarea>  
        </font></div>  
    </td>  
  </tr>  
</table>  
  
     
    
<table width="75%" border="0" align="center">  
  <tr>   
    <td width="45%" nowrap>   
      <div align="right">   
        <%if objRS("DAAN")="T" then%>
        <input type="radio" name="pd" value="T" checked>  
        <%else%>
        <input type="radio" name="pd" value="T">
        <%end if%>  
        <font color="#3333FF" size="3">正确</font> </div>  
    </td>  
    <td width="2%" nowrap>&nbsp;</td>  
    <td width="53%" nowrap>
      <% if objRS("DAAN")="F" then%>   
      <input type="radio" name="pd" value="F" checked>
      <%else%>
       <input type="radio" name="pd" value="F" >
      <%end if%>
      <font color="#3333FF" size="3"> 错误 </font></td>  
  </tr>  
</table>  
<table width="101%" border="0">
    <tr> 
      <td width="34%" nowrap> <%if objRS("STWJ")<>"" then%> 
         <%Session("zwwj")=objRS("STWJ")%>
        <div align="center"><a href="./Temp4/<%=objRS("STWJ")%>" target="_blank">试题附件</a> <%else%> 试题无附件 
          <%end if %> </div>
      </td>
      <td width="66%" nowrap> 
        <div align="left">为该题上载附件: 
          <input type="FILE" size="40"  name="zwwj">
        </div>
      </td>
    </tr>
  </table>
<%end if%>
<%if objRS("Itemtype")=5 then %>
   
  <p align="center"><b><font color="#000099">试题正文</font></b></p>
  <table width="77%" border="0" height="63" align="center">  
  <tr>   
      <td width="1%" height="75" nowrap>&nbsp; </td>  
      <td width="99%" height="75" nowrap> 
        <div align="center"><font size="2" color="#3333FF">   
          <textarea name="zwnr" cols="80" rows="3"><%=objRS("STNR")%></textarea>  
        </font></div>  
    </td>  
  </tr>  
</table>  
  
<table width="75%" border="0" align="center">  
  <tr>  
    <td width="15%" nowrap>  
      <div align="center"><font color="#3333FF" size="3"><b>答案：</b></font><b><font color="#3333FF"></font></b></div>  
    </td>  
    <td width="85%">   
      <div align="center">  
          <textarea name="answer" cols="60" rows="3"><%=objRS("DAAN")%></textarea>  
      </div>  
    </td>  
  </tr>  
</table>  
<table width="101%" border="0">
    <tr> 
      <td width="28%"> <%if objRS("STWJ")<>"" then%> 
       <%Session("zwwj")=objRS("STWJ")%>
        <div align="center"><a href="./Temp5/<%=objRS("STWJ")%>" target="_blank">试题附件</a> <%else%> 试题无附件 
          <%end if %> </div>
      </td>
      <td width="72%">为该题上载附件: 
        <input type="FILE" size="40"  name="zwwj">
      </td>
    </tr>
  </table>
<% end if%>
  <table width="93%" border="0">
     <tr>
     <td width="33%" nowrap> 
        <div align="center"><font color="#FF3333">答案解释：</font></div>
      </td>
      <td width="67%"><textarea name="dajs" cols="30" rows="1"><%=objRS("DAZJ")%></textarea> 
    </td>
    </tr>
  </table>
  <%if objRS("ExistId")=0 then %>
  <table width="92%" border="0">
    <tr> 
      <td width="46%" nowrap> 
        <div align="right">
          <input type="Reset" name="hfst" value="恢复此试题">
        </div>
      </td>
      <td width="12%" nowrap>
        <input type="submit" name="xgst" value="修改此试题">
      </td>
      <td width="42%" nowrap>
        <input type="button" name="closeW" value="关闭此窗口">
      </td>
    </tr>
  </table>
  <%else%>
   <table width="92%" border="0">
    <tr> 
      
      <td width="48%" nowrap>
         <div align="right">
        <input type="submit" name="xgst" value="修改此试题">
         </div>
      </td>
        <td width="4%" nowrap>&nbsp;
     
      </td>
      <td width="48%" nowrap>
        <input type="button" name="closeW" value="关闭此窗口">
      </td>
    </tr>
  </table>
   <% end if%>
 <%  
   objRS.Close
   objConn.Close 
   Set objRS= Nothing
   Set objConn = Nothing
 %> 
</form>
</body>
</html>
<% end if%>