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

📄 admincreatepaper2.asp

📁 基于asp的遗传算法组卷系统
💻 ASP
字号:
<!--#include file="conn.inc"-->
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>试卷基本信息</title>
<script language="javascript">
function submitit(myform)
//{
//if (document.all.shenhr.value=="选择审核人")
//{
// alert("审核人不能为空!");
// return false;
//}
//else
{
result="确认无误?"
if (confirm(result))
  {
    myform.action="admincreatepaper3.asp";
    return true;
  }
else
  return false;
}

function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
  {
  var e = form.elements[i];
  if (e.name != 'chkall')
     e.checked = form.checkall.checked;
  }
}
</script>
<link rel="stylesheet" type="text/css" href="css.css">
</head>

<body>

<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="25">
  <tr>
    <td width="100%">当前位置:<a href="news.asp">系统管理</a> &gt; 生成试卷</td>
  </tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3">
  <tr>
    <td width="80"><img border="0" src="images/2.jpg"></td>
    <td> </td>
  </tr>
</table>
<form method="POST" name="secondform" action="admincreatepaper2.asp" onsubmit="return submitit(secondform);">
  <table border="1" cellpadding="0" cellspacing="1" style="border-collapse: collapse" id="AutoNumber1" width="100%" bordercolor="#C0C0C0">
    <tr height="20">
      <td colspan="4" bgcolor="#E1E1E1">
      <p align="center"><b>试卷基本信息</b></td>
    </tr>
    <tr height="20">
      <td bgcolor="#EFEFEF" width="120">
      <p align="center"><b>选择科目</b></td>
      <td colspan="3">
      <input type="text" name="subject" size="20" value="<%=request("subject")%>" class="inputnormal" readonly>
	  <input type="hidden" name="nandu" id="nandu" value="<%=request("nandu")%>"><!--难度设置 -->
	  <input type="hidden" name="qufendu" id="qufendu" value="<%=request("qufendu")%>"><!--区分度设置 -->
	  <input type="hidden" name="chapt1_num" id="chapt1_num" value="<%=request("chapt1_num")%>"><!--章节设置 -->
	  <input type="hidden" name="chapt2_num" id="chapt2_num" value="<%=request("chapt2_num")%>">
	  <input type="hidden" name="chapt3_num" id="chapt3_num" value="<%=request("chapt3_num")%>">
	  <input type="hidden" name="chapt4_num" id="chapt4_num" value="<%=request("chapt4_num")%>">
	  <input type="hidden" name="chapt5_num" id="chapt5_num" value="<%=request("chapt5_num")%>">
	  </td>
    </tr>
    <tr height="20">
      <td colspan="4" bgcolor="#e1e1e1">
      <p align="center"><b>试卷信息</b></td>
    </tr>
    <tr height="20">
      <td align="center" bgcolor="#EFEFEF"><b>卷面总分(<font color="#FF0000">分</font>)</b></td>
      <td colspan="3">
      <p align="left">
      <input type="text" name="totalper" size="20" value="<%=request("totalper")%>" class="inputnormal" readonly></td>
    </tr>
    <tr height="20">
      <td align="center" bgcolor="#e1e1e1"> </td>
      <td bgcolor="#e1e1e1">
      <p align="center"><b>单选题</b></td>
      <td bgcolor="#e1e1e1">
      <p align="center"><b>多选题</b></td>
      <td bgcolor="#e1e1e1">
      <p align="center"><b>判断题</b></td>
    </tr>
    <tr height="20">
      <td align="center" bgcolor="#EFEFEF"><b>题型分布(<font color="#FF0000">个</font>)</b></td>
      <td>
      <p align="center">
      <input type="text" name="singlecount" size="12" value="<%
	  if request("singlecount")=empty then
	    response.Write ("0")
	  else
	    response.Write (request("singlecount"))
	  end if%>" class="inputnormal" readonly></td>
      <td>
      <p align="center">
      <input type="text" name="multicount" size="12" value="<%
	  if request("multicount")=empty then
	    response.Write ("0")
	  else
	    response.Write (request("multicount"))
	  end if
	  %>" class="inputnormal" readonly></td>
      <td>
      <p align="center">
      <input type="text" name="judgecount" size="12" value="<%
	  if request("judgecount")=empty then
	    response.Write ("0")
	  else
	    response.Write (request("judgecount"))
	  end if%>" class="inputnormal" readonly></td>
    </tr>
    <tr height="20">
      <td align="center" bgcolor="#EFEFEF"><b>分值分布(<font color="#FF0000">分</font>)</b></td>
      <td>
      <p align="center">
      <input type="text" name="singleper" size="12" value="<%
	  if request("singleper")=empty then
	    response.Write ("0")
	  else
	    response.Write (request("singleper"))
	  end if%>" class="inputnormal" readonly></td>
      <td>
      <p align="center">
      <input type="text" name="multiper" size="12" value="<%
	  if request("multiper")=empty then
	    response.Write ("0")
	  else
	    response.Write (request("multiper"))
	  end if%>" class="inputnormal" readonly></td>
      <td>
      <p align="center">
      <input type="text" name="judgeper" size="12" value="<%
	  if request("judgeper")=empty then
	    response.Write ("0")
	  else
	    response.Write (request("judgeper"))
	  end if%>" class="inputnormal" readonly></td>
    </tr>
    <tr height="20">
      <td align="center" bgcolor="#e1e1e1" colspan="4"><b>考试时间设定</b></td>
    </tr>
    <tr height="20">
      <td align="center" bgcolor="#EFEFEF"><b>考试时间(<font color="#FF0000">小时</font>)</b></td>
      <td colspan="3">
      <p align="center">
      <input type="text" name="testtime" size="12" value="<%=request("testtime")%>" class="inputnormal" readonly></td>
    </tr>
    <tr height="20">
      <td align="center" bgcolor="#EFEFEF"><b>有效期</b></td>
      <td colspan="3">
      <p align="center">
      <input type="text" name="starttime" size="20" value="<%=request("starttime")%>" class="inputnormal" readonly>
      —<input type="text" name="endtime" size="20" value="<%=request("endtime")%>" class="inputnormal" readonly></td>
    </tr>
    <tr height="20">
      <td colspan="4" bordercolor="#E1E1E1">
      <p align="left">&nbsp;以上数据将赋予如下人员,请确定参加考试人员</td>
    </tr>
  </table>
  <p><br>
  </p>
  <table border="1" cellpadding="0" cellspacing="1" style="border-collapse: collapse" width="100%" id="AutoNumber1" bordercolor="#C0C0C0">
    <tr height="20">
      <td colspan="5" bgcolor="#E1E1E1" align="center">
      <p align="center"><b><font size="2">确定参加考试人员</font></b></td>
    </tr>
    <tr height="20">
      <td width="80" bgcolor="#EFEFEF">
      <p align="center">      
        <select size="1" name="sdepartment" onChange="this.form.submit();">
          <option selected>所有部门</option>
          <% sql="select * from department"
      set rs=server.createobject("adodb.recordset")
      rs.open sql,conn,3,2
      do while not rs.eof %>
          <option value="<%=rs("department")%>" <%if rs("department")=request("sdepartment") then response.Write ("selected")%>><%=rs("department")%></option>
          <% rs.movenext
      loop
      rs.close %>
        </select>
      </td>
      <td width="20" bgcolor="#E1E1E1">
      <p align="center"> </td>
      <td bgcolor="#EFEFEF"><b>&nbsp; 姓名</b></td>
      <td bgcolor="#EFEFEF"><b>&nbsp; 职务</b></td>
      <td bgcolor="#EFEFEF"><b>&nbsp; 部门</b><b>&nbsp; </b></td>
    </tr>
    <% sdepartment=request("sdepartment")
      response.write department
      if sdepartment="所有部门" or sdepartment="" then
      sql="select * from cadre_info"
      else
      sql="select * from cadre_info where department='" & sdepartment & "'" 
      end if
      set rs=server.createobject("adodb.recordset")
      rs.open sql,conn,3,2
      do while not rs.eof %>
    <tr height="20">
      <td>      <input type="text" name="chkall" size="10" value="<%=rs("userid")%>" class="inputnormal" readonly></td>
      <td bgcolor="#E1E1E1">
      <input type="checkbox" name="userid" value="<%=rs("userid")%>" checked></td>
      <td>&nbsp; <%=rs("username")%></td>
      <td>&nbsp; <%=rs("duties")%></td>
      <td>&nbsp; <%=rs("department")%>&nbsp; </td>
    </tr>
    <% rs.movenext
      loop
      rs.close %>
    <tr>
      <td colspan="5" bgcolor="#E1E1E1">&nbsp;</td>
    </tr>
  </table>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="30">
    <tr>
      <td width="50%">
      <input type="checkbox" name="checkall" value="ON" checked onclick="CheckAll(this.form)">全部选择/取消</td>
      <td width="50%">
      <p align="right">
      <input type="submit" value="下一步&gt;&gt;" name="B1" class="s02"></td>
    </tr>
  </table>
</form>
</body>
</html>

⌨️ 快捷键说明

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