edittype.asp

asp考试系统

<!--#include file="../../../inc/config.asp" -->
<!--#include file="../../../inc/conn.asp" -->
<link href="../../../Styles/lanx.css" rel="stylesheet" type="text/css">
<link href="../../../Styles/Navigator.css" rel="stylesheet" type="text/css">
<script languang="javascipt">
function doSubmit()
{
	if (document.myform.L_sequence.value=="")
	{
		alert("请填写此题序号！");
		document.myform.L_sequence.focus();
		return false;
	}
	if (document.myform.L_description.value=="")
	{
		alert("请填写此题描述！");
		document.myform.L_description.focus();
		return false;
	}
	if (document.myform.L_parvalue.value=="")
	{
		alert("请填写此题分值！");
		document.myform.L_parvalue.focus();
		return false;
	}
	document.myform.submit();
}
</Script>
<%  
 	dim conn
	set conn=Server.CreateObject("ADODB.CONNECTION")
	set conn=openExamData()
	
	dim sqlTypes,rsTypes
	sqlTypes="select top 1 * from L_types where L_TypeID="&Request.QueryString("L_TypeID")
	set rsTypes=Server.createObject("adodb.recordset")
	rsTypes.open sqlTypes,conn,1,3
	
	dim sql,rs
	sql="select * from L_baseTypes order by L_position"
	set rs=Server.createObject("adodb.recordset")
	rs.open sql,conn,1,3
%>
<table width="301" border="0" align="center">
<form action="action/editType.asp" method="post" name="myform">
  <tr>
    <td width="295" height="20" align="center" bgcolor="#CCCCCC"> <strong>修改试卷题型</strong></td>  
  </tr>
   <tr>
     <td height="20" bgcolor="eeeeee">此题序号：
      <input name="L_sequence" type="text" id="L_sequence" value="<%= rsTypes("L_sequence") %>" /></td>
   </tr>
   <tr>
    <td width="295" height="20" bgcolor="eeeeee">此题描述：
      <input name="L_description" type="text" id="L_description" size="30" value="<%= rsTypes("L_description") %>"></td></tr>
	 <tr>
	   <td bgcolor="eeeeee">基本题型：
	     <select name="L_baseTypeID" id="L_baseTypeID">
	       <option value="<%= rsTypes("L_baseTypeID") %>">请选择基本题型</option>
		 <%  
		 do while not rs.eof
		 %>
	       <option value="<%= rs("L_baseTypeID") %>"><%= rs("L_name") %></option>
		   <%  
		   rs.movenext
		   loop
		   %>
         </select>       </td>
    </tr
	 ><tr>
	   <td bgcolor="eeeeee">每题分值：
       <input name="L_parvalue" type="text" id="L_parvalue" value="<%= rsTypes("L_parvalue") %>" /></td>
    </tr>
	 <tr><td bgcolor="eeeeee">
     排序权数：
         <select name="L_position" id="L_position">
           <option value="<%= rsTypes("L_position") %>">1000</option>
           <option value="1">1</option>
           <option value="2">2</option>
           <option value="3">3</option>
           <option value="4">4</option>
           <option value="5">5</option>
           <option value="6">6</option>
           <option value="7">7</option>
           <option value="8">8</option>
           <option value="9">9</option>
           <option value="10">10</option>
           <option value="11">11</option>
           <option value="12">12</option>
           <option value="13">13</option>
           <option value="14">14</option>
           <option value="15">15</option>
           <option value="16">16</option>
           <option value="17">17</option>
           <option value="18">18</option>
           <option value="19">19</option>
           <option value="20">20</option>
         </select>
     (由小到大)</td>  
  </tr>
   <tr>
    <td width="295" height="20" align="center" bgcolor="eeeeee">
	<input name="L_testID" type="hidden" value="<%= rsTypes("L_testID") %>" />
	<input name="L_TypeID" type="hidden" value="<%= rsTypes("L_TypeID") %>" />
	<input name="L_updateTime" type="hidden" value="<%= now() %>" />
	<input name="action" type="hidden" value="add" />
	<input type="button" name="btnSubmit" value=" 修 改" onclick="doSubmit()">
	&nbsp;
      <input type="reset" name="Submit" value=" 重 置 "></td>  
  </tr>
  </form>
</table>
<br />
<table width="500" border="0" align="center" cellpadding="0" cellspacing="2">
  <tr bgcolor="#CCCCCC">
    <td colspan="3" bgcolor="eeeeee"><strong>基本题型介绍：</strong></td>
  </tr>
  <tr bgcolor="#CCCCCC">
    <td width="39"><div align="center"><strong>编号</strong></div></td>
    <td width="89"><div align="center"><strong>题型名称</strong></div></td>
    <td width="364"><div align="center"><strong>详细描述</strong></div></td>
  </tr>
		 <%  
		 rs.movefirst
		 do while not rs.eof
		 %>
  <tr bgcolor="eeeeee">
    <td>&nbsp;<%= rs("L_baseTypeID") %></td>
    <td>&nbsp;<%= rs("L_name") %></td>
    <td>&nbsp;<%= rs("L_description") %></td>
  </tr>
		   <%  
		   rs.movenext
		   loop
		   %>
</table>