📄 mod_school.asp

📁 网络教学管理系统

💻 ASP

字号:

<!--#include file="inc/conn.asp" -->
<!--#include file = "CheckLogin.asp" -->
<!--#include file = "inc/zhuru.asp" -->
<%
	Dim strID ,rs ,srtSql 
	strID = Request.QueryString("ID")
	If strID &"" = "" Then
		Response.Write("参数错误！")
		Response.End
	End If 
	Dim strName  
	strSql = "SELECT * FROM School WHERE ID = "& strID
	Set rs = Server.CreateObject("ADODB.RecordSet")
	rs.open strSql,conn,1,1
	If Not rs.EOF Then
		strName = rs("name").value
		rs.close
	
%>
<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 ('请输入学院名。');
		}
		
		if (thisform.Name.value.length > 80){
		alert ('学院名过长。');
		}
	
		else {
		
		
			thisform.submit();
		}
	}
	</SCRIPT>
<body bgcolor="#B1DB99" topmargin="5" leftmargin="5">

<table width="355" align="left">
  <form id="form1" name="form1" method="post" action="ModSchool.asp?ID=<%=strID%>" onSubmit="CheckValue(this);return false">
  <tr bgcolor="#66C06D">
    <td colspan="2" background="images/Down_bg.gif" bgcolor="#66C06D"><div align="center" class="STYLE11">修改学院信息</div></td>
    </tr>
  <tr bgcolor="#66C06D">
    <td width="94"><div align="right"><span class="STYLE9">学院名：</span></div></td>
    <td width="251">
      <label>
        <input type="text" name="Name" value="<%=strName%>">
        </label>    </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 colspan="2" background="images/Top_bg.gif" bgcolor="#66C06D">&nbsp;</td>
    </tr>
   </form>
</table>
<%
	Else
		Response.Write("参数错误！")
		Response.End
	End If
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -