kemanageok.asp

来自「查询,基于ASP的开发环境!数据库是ACCESS [成绩查询.rar] - 网上」· ASP 代码 · 共 44 行

<!--#include file="conn.asp"-->
<%
dim ke
dim teacher
ke1=request("ke1")
ke=request.form("ke")
teacher=request.form("teacher")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from kecheng where ke='"&ke1&"'"
rs.open sql,conn,3,2

if trim(request.form("ke"))="" then
   ke="没有命名"
else
   ke=request.form("ke")
end if

if trim(request.form("teacher"))="" then
   teacher="无人授课"
else
   teacher=request.form("teacher")
end if

%>
<%

rs("ke")=ke
rs("teacher")=teacher
rs.update
rs.close

conn.close
set conn=nothing %>
<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>