📄 smodify.asp
字号:
<!--#include file="adovbs.inc" -->
<!--#include file="admin_conn.asp"-->
<html>
<head>
<script language="javascript">
<!--
function check() {
if (document.form2.SubjectName.value =="" ){
window.alert("请输入课程名称！");
document.form2.SubjectName.focus();
return false;
}
}
-->
</script>
</head>
<body>
<P align="center"><STRONG><FONT face="华文彩云" size=6 color=darkred>课程修改</FONT></STRONG></P>
<%
set myrs=server.CreateObject("adodb.recordset")
myrs.Open"select * from course where 课程编号=" & session("subjectID") &"",conn,adOpenStatic
set rs1=server.CreateObject("adodb.recordset")
set rs2=server.CreateObject("adodb.recordset")
set rs3=server.CreateObject("adodb.recordset")
session("subjectName")=trim(Request("SubjectName"))
session("subjectTrem")=Request("SubjectTrem")
if request("action")="change" then
sql1="select count(*) from course where 课程编号<>" & session("subjectID") &"and 课程名称='" & session("subjectName") &"'"
rs1.Open sql1,conn,adOpenStatic
if rs1(0)>0 then
%>
<script language="javascript">
<!--
window.alert("课程名称重复,请重新输入！！");
-->
</script>
<%
else
'
rs3.Open "select * from course ",conn,adOpenStatic,adLockOptimistic
rs3.Find("课程编号="& session("subjectID"))
rs3(1).Value =session("subjectName")
rs3(2).Value =session("subjectTrem")
rs3.Update
rs3.Close
%>
<script language="javascript">
<!--
window.alert("修改成功!");
-->
</script>
<%
'-----------报出修改成功信息---------------
Response.Redirect("SubjectModify.asp")
end if
rs1.Close
end if
%>
<form method=post name=form2 action="SModify.asp?action=change" onSubmit="return check()">
<table align=center border=1 cellpadding=0 cellspacing=0 width="80%">
<tr align=middle>
<td width="8%"><b>课程编号</b></td>
<td width="30%"><b>课程名称</b></td>
<td width="15%"><b>学期</b></td>
<td width="15%"><b>操作</b></td>
</tr>
<tr align=middle>
<td><%=myrs(0)%> </td>
<td><input type=text name=SubjectName value= <%=myrs(1)%> size=25> </td>
<td ><SELECT style="WIDTH: 103px" name=SubjectTrem>
<%
rs2.Open "select * from term",conn,adOpenStatic
rs2.MoveFirst
while not rs2.EOF
if rs2(1).Value =myrs(2).Value then
%>
<OPTION value=<% =rs2.Fields("学期名称") %> selected> <% = rs2.Fields("学期名称") %> </OPTION>
<%
else
%>
<OPTION value=<% =rs2.Fields("学期名称") %>> <% = rs2.Fields("学期名称") %> </OPTION>
<%
end if
rs2.MoveNext
wend
rs2.Close
myrs.close
%>
</SELECT></td>
<td ><input type=submit value=修改 id=submit1 name=submit1></td>
</tr>
</table>
</form>
<%
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -