addth.asp

来自「关于学生成绩的管理系统」· ASP 代码 · 共 39 行

<!--#include file="conn.asp"-->
<%
xino=request.form("xino")
if xino="--选择系--" then
   response.write "<script language='javascript'>"
   response.write "alert('请输入教师所属系别');"
   response.write "history.back(1);"
   response.write "</script>"
   response.end
end if
set rs=server.createobject("ADODB.Recordset")
sqlstr="select * from 系 where xino='"&request.form("xino")&"'"
rs.open sqlstr,conn,1,1
if not rs.eof then
  xiname=rs("xiname")
end if
teachername=request.form("teachername")
sex=request.form("sex")
teleph=request.form("teleph")
set rs=server.createobject("ADODB.Recordset")
sqlstr="select * from 教师"
rs.open sqlstr,conn,3,3
rs.addnew
if teachername="" then
   response.write "<script language='javascript'>"
   response.write "alert('请输入该教师姓名');"
   response.write "history.back(1);"
   response.write "</script>"
   response.end
   end if
rs("xino")=xino
rs("xiname")=xiname
rs("teachername")=teachername
rs("sex")=sex
rs("teleph")=teleph
rs.update
rs.close
response.redirect "kebiaoteach.asp"
%>