📄 updatedepart.asp
字号:
<!--#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="修改">
<input type="reset" value="重写">
<input onClick="document.location.href='depart.asp';" type="button" value="返回" name="B3">
</td>
</tr>
</form>
</table>
<% rs.close
set rs=nothing %>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -