📄 add_zhuanye.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;
}
.STYLE11 {font-size: 14px}
-->
</style>
<SCRIPT language=JavaScript>
	function CheckValue(thisform)
	{

		if (thisform.Name.value.length == 0){
		alert ('请输入专业名。');
		return false;
		}
		
		if (thisform.Name.value.length > 80){
		alert ('专业名过长。');
		return false;
		}

		else {
		
		
			thisform.submit();
			
		}
	}
	</SCRIPT>
<body bgcolor="#B1DB99" topmargin="5" leftmargin="5">
<table width="355" align="left">
  <form id="form1" name="form1" method="post" action="addZhuanye.asp" onSubmit="CheckValue(this);return false">
  <tr>
    <td colspan="2" background="images/Down_bg.gif"><div align="center" class="STYLE11">添加专业 </div></td>
    </tr>
  <tr bgcolor="#66C06D">
    <td><div align="right"><span class="STYLE9">专业名：</span></div></td>
    <td><input type="text" name="Name" /></td>
  </tr>
  <tr bgcolor="#66C06D">
    <td width="94"><div align="right">所属学院</div></td>
    <td width="251">
      <label></label>    <select name="SchoolID">
	<%
	Dim rs ,strSql
	Set rs = Server.CreateObject("ADODB.RecordSet")
	strSql = "SELECT * FROM School 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="18" colspan="2" align="center"><input name="清空" type="reset"  value="清空" />&nbsp;&nbsp;
        <input type="submit" name="Submit2" value="添加"  /></td>
  </tr>    
    <tr>
    <td colspan="2" background="images/Top_bg.gif">&nbsp;</td>
    </tr>
  </form>
</table>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -