classmanageok.asp

来自「java 编的图形管理系统 连Access数据库的」· ASP 代码 · 共 43 行

<!--#include file="conn.asp"-->
<%
dim classname
dim classadmin
classname1=request("classname1")
classname=request.form("classname")
classadmin=request.form("classadmin")
if trim(request.form("classname"))="" then
   classname="没有命名"
else
   classname=request.form("classname")
end if
if trim(request.form("classadmin"))="" then
   classadmin="无人管理"
else
   classadmin=request.form("classadmin")
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from class where classname='"&classname1&"'"
rs.open sql,conn,3,2
rs("classname")=classname
rs("classadmin")=classadmin
rs.update
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from c1 where classname='"&classname1&"'"
rs.open sql,conn,3,2
if not rs.eof then
Set rs=Server.CreateObject("ADODB.Recordset")
sql="update c1 set classname='"&classname&"' where classname='"&classname1&"'"
conn.execute sql
end if
%>
<script language="JavaScript">        
alert("\恭喜您,成功修改班级信息!!")

</script>
<table border="0" cellspacing="0" width="100%" cellpadding="0">
   <tr>
      
    <td width="100%"  height="250" valign="middle" align="center"><a href="manage.asp">返回</a></td>
   </tr>
</table>