<!--#include file="../checkLogin.asp"-->
<!--#include file="../SQLconn.asp"-->
<html>
<head>
<title>课程安排</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<link rel="stylesheet" type="text/css" href="../images/<%=request.cookies("imgdir")%>/css/style.css" media="all"/>

</head>
<body class="bodycolor" topmargin="5">

<div align="center">
 <p><br>
 </p>
 <p>&nbsp;</p>
 <p>&nbsp;</p>

<% id=request("id")
   xingqi=request("xingqi")
   jieci=request("jieci")
  
 
Set rs=Server.CreateObject("Adodb.Recordset")
sql="Select * from kechengbiao where  ID='"&id& "'"
rs.open sql,conn,1,1
%>

  <form action="SaveModi.asp"  method="post" name="form1" onSubmit="return form_check();">
    
     <p>&nbsp;</p>
     <table width="287" border="0" align="center">
       <tr>
         <td width="57" height="35"><div align="center">级别：</div></td>
         <td width="220">
		 
			<div align="left">
			  <select name="jibie" id="jibie" style= "width:100px ">
			    <option selected ><%=rs( "年级" )%></option>
			    <option></option>
			    <% Set RSsel = Conn.Execute("select vname from  varset where name='grade' order by vid")
			While NOT RSsel.EOF %>
                <option value=<%=RSsel( "vname" )%>><%=RSsel( "vname" )%></option>
                <% RSsel.MoveNext
			Wend
			RSsel.Close%>
		      </select>
		   </div></td>
       </tr>
	   <tr>
         <td width="57" height="38"><div align="center">班别：</div></td>
         <td width="220">
		 
			<div align="left">
			  <select name="banbie" id="banbie" style= "width:100px ">
			    <option selected ><%=rs( "班别" )%></option>
			    <option></option>
			    <% Set RSsel = Conn.Execute("select vname from  varset where name='class' order by vid")
			While NOT RSsel.EOF %>
                <option value=<%=RSsel( "vname" )%>><%=RSsel( "vname" )%></option>
                <% RSsel.MoveNext
			Wend
			RSsel.Close%>
		      </select>
		   </div></td>
       </tr>
	   <tr>
         <td width="57" height="33"><div align="center">科目：</div></td>
         <td width="220">
		 
			<div align="left">
			  <select name="kemu" id="kemu" style= "width:100px ">
			    <option selected ><%=rs( "自录科目" )%></option>
			    <option></option>
			    <% Set RSsel = Conn.Execute("select  subject from  subjectorder  order by vid")
			While NOT RSsel.EOF %>
                <option value=<%=RSsel( "subject" )%>><%=RSsel( "subject" )%></option>
                <% RSsel.MoveNext
			Wend
			RSsel.Close%>
			<option value=自习>自习</option>
			<option value=班会>班会</option>
			<option value=其他>其他</option>
		      </select>
		   </div></td>
       </tr>
       
       <tr>
         <td height="68" colspan="2"><div align="center"><span class="mtdtl">
           <input name="button" type="button" class="topanniu" onClick="location='MyKeCheng.asp';"  value="返回">
  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  <input name="submit" type="submit" class="topanniu" value="保存">
         </span></div></td>
       </tr>
     </table>
     <p>&nbsp;</p>
     <p>&nbsp;</p>
     <input type="hidden" name="id" value=<%=id%>>
	 <input type="hidden" name="xingqi" value=<%=xingqi%>>
     <input type="hidden" name="jieci" value=<%=jieci%>>		

</form>          
               
			   
 
 
</body>
</html>