?? 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 + -