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

📄 add_teachingsuject.asp

📁 网络教学管理系统
💻 ASP
字号:
<!--#include file = "inc/conn.asp" -->
<!--#include file = "CheckLogin.asp" -->
<!--#include file = "inc/zhuru.asp" -->
<style type="text/css">
<!--
.STYLE9 {color: #003300; font-size: 12px; }
body,td,th {
	font-size: 12px;
}
.STYLE12 {font-size: 14px}
-->
</style>
<SCRIPT language=JavaScript>
	function CheckValue(thisform)
	{

		if (thisform.TeachingYear.value.length == 0){
		alert ('请输入学年。');
		return false;
		}
		
		if (thisform.TeachingYear.value.length > 50){
		alert ('学年信息过长。');
		return false;
		}
		
		else {
		
		
			thisform.submit();
			}
	}
	</SCRIPT>
<body bgcolor="#B1DB99" topmargin="5" leftmargin="5">

<table width="355" border="0" align="left">
  <form id="form1" name="form1" method="post" action="addTeachingSuject.asp" onSubmit="CheckValue(this);return false">
  <tr bgcolor="#66C06D">
    <td height="17" colspan="2" background="images/Down_bg.gif"><div align="center" class="STYLE12">添加开课信息</div></td>
    </tr>
  <tr bgcolor="#66C06D">
    <td width="94" height="17"><div align="right">课程:</div></td>
    <td width="251"><select name="SujectID" >
	<%
	Dim rs ,strSql
	strSql = "SELECT * FROM Suject ORDER BY Name ASC"
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.open strSql,conn,1,1
	%>
	<%
			Do While Not rs.EOF 
	%>
			<option value=<%=rs("ID").Value%>><%=rs("name").Value%></option>
	<%
			rs.movenext
			loop
			rs.close
	%>
    </select>    </td>
  </tr>
  <tr bgcolor="#66C06D">
    <td height="17"><div align="right">教师:</div></td>
    <td><select name="TeacherID" >
	<%
	strSql = "SELECT * FROM Teacher ORDER BY Name ASC"
	rs.open strSql,conn,1,1
	%>
	<%
			Do While Not rs.EOF 
	%>
			<option value=<%=rs("ID").Value%>><%=rs("name").Value%></option>
	<%
			rs.movenext
			loop
			rs.close
	%>
    </select></td>
  </tr>
  <tr bgcolor="#66C06D">
    <td height="17"><div align="right"><span class="STYLE9">班级:</span></div></td>
    <td><select name="ClassID">
	<%
	strSql = "SELECT * FROM Class ORDER BY Name ASC"
	rs.open strSql,conn,1,1
	%>
	<%
			Do While Not rs.EOF 
	%>
			<option value=<%=rs("ID").Value%>><%=rs("name").Value%></option>
	<%
			rs.movenext
			loop
			rs.close
	%>
	  </select></td>
  </tr>
  <tr bgcolor="#66C06D">
    <td height="17"><div align="right">学年:</div></td>
    <td><input name="TeachingYear" type="text" ></td>
  </tr>
  <tr bgcolor="#66C06D">
    <td height="17"><div align="right">学期:</div></td>
    <td><select name="Semester" >
      <option value="1">第一学期</option>
      <option value="2">第二学期</option>
    </select>    </td>
  </tr>
  <tr bgcolor="#66C06D">
    <td height="18" colspan="2" align="center">
	        <input name="清空" type="reset"  value="清空" />&nbsp;&nbsp;
        <input type="submit" name="Submit2" value="添加"  />		</td>
  </tr>   
    <tr bgcolor="#66C06D">
    <td height="17" colspan="2" background="images/Top_bg.gif">&nbsp;</td>
    </tr>
   </form>
</table>

⌨️ 快捷键说明

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