updatedepart.asp

来自「学生档案管理系统。。调试测试可以用。」· ASP 代码 · 共 50 行

ASP

50 行

<!--#include file=conn.asp-->
<HTML>
 <HEAD>
  <TITLE> New Document </TITLE>
 </HEAD>

 <BODY>
<% 
  ID=request("id")
  set rs=server.CreateObject("adodb.recordset")
  sqlstr="select * from department where ID="&ID
  response.write sqlstr
  set Rs=conn.execute(sqlstr)
  GName=request("GName")
  Ct=request("CT")
  action=request("action")
  If action="edit" Then 
      If GName="" Or CT="" Then 
	  Response.Write "<script>alert('非法操作：系别和系主任不能为空!!');this.location.href='updatedepart.asp?id='"&id&"'';</SCRIPT>"
	  Else 
	  End If 
  End If 
%>
<p><font face="幼圆" size="3">修改院系信息</font></p>
<table>
<form method="POST" action="?action=edit">
  <tr>
    <td>院系名:</td>
    <td><input type="text" name="GName" size="20" value="<%=rs("系别")%>"></td>
  </tr>
  <tr>
    <td>系主任:</td> 
    <td><input type="text" name="CT" size="20" value="<%=rs("系主任")%>"></td>
  </tr> 
   <tr>
    <td colspan="2" align="center">
    <input type="submit" value="修改">
    &nbsp;
    <input type="reset" value="重写">
    &nbsp; 
    <input onClick="document.location.href='depart.asp';" type="button" value="返回" name="B3">
    </td>
  </tr> 
</form>
</table>
<% rs.close
 set rs=nothing %>
 </BODY>
</HTML>

updatedepart.asp - 源码说明

本页面展示了「学生档案管理系统。。调试测试可以用。」中的 updatedepart.asp 源码文件，采用 ASP 编程语言编写，共 50 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与学生管理相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?