admindatabaseadd2.asp

来自「网络考试系统最终备份」· ASP 代码 · 共 356 行

ASP
356 行
字号 
<!--#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()
{ var bool=true;

  if (addform.sknow.value=="")
    { alert("请选择知识点！");
      addform.sknow.focus();
    return false;
	}
  if (addform.question.value=="")
    { alert("请输入题干！");
      addform.question.focus();
      return false;
	}
  if (addform.answer.value=="")
    { alert("请确定标准答案！");
      addform.answer.focus();
      bool=false;
	}
  if (addform.Option1.value=="" || addform.Option2.value=="" || addform.Option3.value=="" || addform.Option4.value=="" || addform.Option5.value=="" || addform.Option6.value=="")
    { alert("请给所有选项输入值！");
     return false;
	}	
return true;
  
}
</script>
<link rel="stylesheet" type="text/css" href="css.css">
<style type="text/css">
<!--
.style1 {font-size: 10pt}
-->
</style>
</head>

<body>

<table width="100%" height="25" border="0" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#00CCFF" id="AutoNumber2" style="border-collapse: collapse">
  <tr>
    <td width="100%" bgcolor="#FFFFFF">当前位置：<a href="news.asp">系统管理</a> &gt;
    <a href="admindatabaseselect.asp">题库管理</a> &gt; <a href="admindatabase.asp">试题管理</a> &gt; 增加试题</td>
  </tr>
</table>
<%
v_sID=request("subject")
v_typeID=request("questype")

session("Subject")=request("subject")
session("Ques_Type")=request("questype")

sid = "select * from subject_info where SubID ="&v_sID&" "
set rsid = server.CreateObject("adodb.recordset")
rsid.open sid,conn,3,2
'v_sName = rsid("SubName")

'sql1="select * from question_type where QueType="&v_typeID&""
'set rs1 = server.CreateObject("adodb.recordset")
'rs1.open sql1,conn,3,2



%>
<p></p>
<form name="addform" method="post" action="admindatabasesave.asp" onSubmit="return submitit();">
 
 <%
 if v_typeID=0 then
'显示单选题
 %>
 
  <table border="1" cellpadding="2" cellspacing="1" style="border-collapse: collapse" bordercolor="#c9def3" width="100%" id="AutoNumber3">
    <tr>
      <td width="80" align="center" bgcolor="#ecf4ff">当前科目</td>
      <td>
        <input name="subjectview" type="text" class="inputnormal" value="<%=rsid("SubName")%>" size="40" readonly="readonly">      </td>
    </tr>
    <tr>
      <td align="center" bgcolor="#ecf4ff">类型</td>
      <td><label>
        <input name="textfield" type="text" class="inputnormal" value="单选题">
      </label></td>
    </tr>
	<tr>
      <td align="center" bgcolor="#ecf4ff">知 识 点</td>
      <td>
	  
	  <select name="sknow">
        <option value="" selected>选择知识点</option>
		<%
		sql = "select * from knowledge_info where Sub_ID="&v_sID
		set rs = server.CreateObject("adodb.recordset")
		rs.open sql,conn,3,2
		while not rs.eof
		%>
		        <option value="<%=rs("KnowID")%>" ><%=rs("KnowName")%></option>
       <%
	   rs.movenext
	   wend
	   %>
      </select></td>
    </tr>
	<tr>
      <td align="center" bgcolor="#ecf4ff">难度系数</td>
      <td><select name="diffrate" id="diffrate">
        <option value="1" selected>简单(等级1)</option>
        <option value="2">较易(等级2)</option>
        <option value="3">中等(等级3)</option>
        <option value="4">较难(等级4)</option>
        <option value="5">困难(等级5)</option>
      </select>&nbsp;</td>
    </tr>
    <tr>
      <td align="center" bgcolor="#ecf4ff">题干</td>
      <td><textarea name="question" cols="80" rows="3" class="inputnormal" id="Question" onFocus="this.className='inputedit';this.select()" onBlur="this.className='inputnormal'"></textarea></td>
    </tr>
    <tr>
      <td align="center" bgcolor="#ecf4ff">内&nbsp;&nbsp;&nbsp; 容</td>
      <td>A.<input name="Option1" type="text" class="inputnormal" id="Option1" onFocus="this.className='inputedit';this.select()" onBlur="this.className='inputnormal'" size="60">
      <br>
      B.<input name="Option2" type="text" class="inputnormal" id="Option2" onFocus="this.className='inputedit';this.select()" onBlur="this.className='inputnormal'" size="60">
      <br>
      C.<input name="Option3" type="text" class="inputnormal" id="Option3" onFocus="this.className='inputedit';this.select()" onBlur="this.className='inputnormal'" size="60">
      <br>
      D.<input name="Option4" type="text" class="inputnormal" id="Option4" onFocus="this.className='inputedit';this.select()" onBlur="this.className='inputnormal'" size="60">　      </td>
    </tr>
    <tr>
      <td align="center" height="20" bgcolor="#ecf4ff">答&nbsp;&nbsp;&nbsp; 案</td>
      <td height="20">
      <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber5">
        <tr>
          <td>A</td>
          <td><input type="radio" name="answer" value="A"></td>
          <td>B</td>
          <td><input type="radio" name="answer" value="B"></td>
          <td>C</td>
          <td><input type="radio" name="answer" value="C"></td>
          <td>D</td>
          <td><input type="radio" name="answer" value="D"></td>
        </tr>
      </table>      </td>
    </tr>
    <tr>
      <td align="center" height="20" colspan="2">
      <div align="right">
        <input type="submit" value="保存" name="B1" class="s02">
        <input type="reset" value="重置" name="B2" class="s02">
      </div>      </td>
    </tr>
  </table>

<%
elseif v_typeID=1 then
'显示多选题
%>

  <table border="1" cellpadding="2" cellspacing="1" style="border-collapse: collapse" bordercolor="#C9DEF3" width="100%" id="AutoNumber3">
    <tr>
      <td width="80" align="center" bgcolor="#ecf4ff">当前科目</td>
      <td>
      <input type="text" name="subjectview" size="40" value="<%=rsid("SubName")%>" readonly class="inputnormal">
      </td>
    </tr>
    <tr>
      <td align="center" bgcolor="#ecf4ff">类型</td>
      <td>
	  <input name="textfield" type="text" class="inputnormal" value="多选题">
	  &nbsp;</td>
    </tr>
	<tr>
		<td align="center" bgcolor="#ecf4ff">知 识 点</td>
        <td>
		<select name="sknow">
        <option value="" selected>选择知识点</option>
		<%
		sql = "select * from knowledge_info where Sub_ID="&v_sID
		set rs = server.CreateObject("adodb.recordset")
		rs.open sql,conn,3,2
		while not rs.eof
		%>
		        <option value="<%=rs("KnowID")%>" ><%=rs("KnowName")%></option>
       <%
	   rs.movenext
	   wend
	   %>
      </select>
		&nbsp;</td>
	</tr>
	<tr>
      <td align="center" bgcolor="#ecf4ff">难度系数</td>
      <td>
	  <select name="diffrate" id="diffrate">
        <option value="1" selected>简单(等级1)</option>
        <option value="2">较易(等级2)</option>
        <option value="3">中等(等级3)</option>
        <option value="4">较难(等级4)</option>
        <option value="5">困难(等级5)</option>
      </select>
	  &nbsp;</td>
	</tr>
    <tr>
      <td align="center" bgcolor="#ecf4ff">标&nbsp;&nbsp;&nbsp; 题</td>
      <td>
      <textarea rows="3" name="question" cols="80" onBlur="this.className='inputnormal'" onFocus="this.className='inputedit';this.select()" class="inputnormal"></textarea>
      </td>
    </tr>
    <tr>
      <td align="center" bgcolor="#ecf4ff">内&nbsp;&nbsp;&nbsp; 容</td>
      <td>A
        <input name="Option1" type="text" class="inputnormal" id="Option1" onFocus="this.className='inputedit';this.select()" onBlur="this.className='inputnormal'" size="60">
        <br>
      B.<input name="Option2" type="text" class="inputnormal" id="Option2" onFocus="this.className='inputedit';this.select()" onBlur="this.className='inputnormal'" size="60">
      <br>
      C.<input name="Option3" type="text" class="inputnormal" id="Option3" onFocus="this.className='inputedit';this.select()" onBlur="this.className='inputnormal'" size="60">
      <br>
      D.<input name="Option4" type="text" class="inputnormal" id="Option4" onFocus="this.className='inputedit';this.select()" onBlur="this.className='inputnormal'" size="60">
      <br>
      E.<input name="Option5" type="text" class="inputnormal" id="Option5" onFocus="this.className='inputedit';this.select()" onBlur="this.className='inputnormal'" size="60">
      <br>
      F.<input name="Option6" type="text" class="inputnormal" id="Option6" onFocus="this.className='inputedit';this.select()" onBlur="this.className='inputnormal'" size="60">　 
      </td>
    </tr>
    <tr>
      <td align="center" height="20" bgcolor="#ecf4ff">答&nbsp;&nbsp;&nbsp; 案</td>
      <td height="20">
      <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber5">
        <tr>
          <td>A</td>
          <td>
          <input type="checkbox" name="answer" value="A" onBlur="this.className='inputnormal'" onFocus="this.className='inputedit';this.select()" class="inputnormal"></td>
          <td>B</td>
          <td>
          <input type="checkbox" name="answer" value="B" onBlur="this.className='inputnormal'" onFocus="this.className='inputedit';this.select()" class="inputnormal"></td>
          <td>C</td>
          <td>
          <input type="checkbox" name="answer" value="C" onBlur="this.className='inputnormal'" onFocus="this.className='inputedit';this.select()" class="inputnormal"></td>
          <td>D</td>
          <td>
          <input type="checkbox" name="answer" value="D" onBlur="this.className='inputnormal'" onFocus="this.className='inputedit';this.select()" class="inputnormal"></td>
          <td>E</td>
          <td>
          <input type="checkbox" name="answer" value="E" onBlur="this.className='inputnormal'" onFocus="this.className='inputedit';this.select()" class="inputnormal"></td>
          <td>F</td>
          <td>
          <input type="checkbox" name="answer" value="F" onBlur="this.className='inputnormal'" onFocus="this.className='inputedit';this.select()" class="inputnormal"></td>
        </tr>
      </table>
      </td>
    </tr>
    <tr>
      <td align="center" height="20" colspan="2">
      <div align="right">
        <input type="submit" value="保存" name="B1" class="s02">
        <input type="reset" value="重置" name="B2" class="s02">
      </div>
      </td>
    </tr>
  </table>

<%

elseif v_typeID=2 then
'显示判断题
%>

  <table border="1" cellpadding="2" cellspacing="1" style="border-collapse: collapse" bordercolor="#C9DEF3" width="100%" id="AutoNumber3">
    <tr>
      <td width="80" align="center" bgcolor="#ecf4ff">当前科目</td>
      <td>
      <input type="text" name="subjectview" size="40" value="<%=rsid("SubName")%>" readonly class="inputnormal">
      </td>
    </tr>
    <tr>
      <td align="center" bgcolor="#ecf4ff">类型</td>
      <td>
	  <input name="textfield" type="text" class="inputnormal" value="判断题">
	  &nbsp;</td>
    </tr>
	<Tr>
		<td align="center" bgcolor="#ecf4ff">知 识 点</td>
        <td>
		<select name="sknow">
        <option value="" selected>选择知识点</option>
		<%
		sql = "select * from knowledge_info where Sub_ID="&v_sID
		set rs = server.CreateObject("adodb.recordset")
		rs.open sql,conn,3,2
		while not rs.eof
		%>
		        <option value="<%=rs("KnowID")%>" ><%=rs("KnowName")%></option>
       <%
	   rs.movenext
	   wend
	   %>
      </select>
		&nbsp;</td>
	</tr>
	<tr>
      <td align="center" bgcolor="#ecf4ff">难度系数</td>
      <td>
	  <select name="diffrate" id="diffrate">
        <option value="1" selected>简单(等级1)</option>
        <option value="2">较易(等级2)</option>
        <option value="3">中等(等级3)</option>
        <option value="4">较难(等级4)</option>
        <option value="5">困难(等级5)</option>
      </select>
	  &nbsp;</td>
	</Tr>
    <tr>
      <td align="center" bgcolor="#ecf4ff">标&nbsp;&nbsp;&nbsp; 题</td>
      <td>
      <textarea rows="3" name="question" cols="80" onBlur="this.className='inputnormal'" onFocus="this.className='inputedit';this.select()" class="inputnormal"></textarea>
      </td>
    </tr>
    <tr>
      <td align="center" height="20" bgcolor="#ecf4ff">答&nbsp;&nbsp;&nbsp; 案</td>
      <td height="20">
      <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber5">
        <tr>
          <td>正确</td>
          <td><input type="radio" name="answer" value="y"></td>
          <td>不正确</td>
          <td><input type="radio" name="answer" value="n"></td>
        </tr>
      </table>
      </td>
    </tr>
    <tr>
      <td align="center" height="20" colspan="2">
      <div align="right">
        <input type="submit" value="保存" name="B1" class="s02">
        <input type="reset" value="重置" name="B2" class="s02">
      </div>
      </td>
    </tr>
  </table>
  
<%
end if
%>
</form>

</body>

</html>

admindatabaseadd2.asp - 源码说明

本页面展示了「网络考试系统最终备份」中的 admindatabaseadd2.asp 源码文件，采用 ASP 编程语言编写，共 356 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与网络考试相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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