teacherxgz.asp

教务系统主要是老师和学生的一个平台

<!--#include file="connection.asp"-->
<%
oldtno=trim(request.form("oldtno"))
xino=trim(request.form("xino"))
zhuanyeno=trim(request.form("zhuanye"))
teachername=trim(request.form("teachername"))
sex=trim(request.form("sex"))
teleph=trim(request.form("teleph"))
teacherno=trim(request.form("teacherno"))

if xino="--选择系--" then
   response.write "<script language='javascript'>"
   response.write "alert('请输入教师所属系别');"
   response.write "history.back(1);"
   response.write "</script>"
   response.end
end if
 
if zhuanye="--选择专业--" then
   response.write "<script language='javascript'>"
   response.write "alert('请输入教师所属专业');"
   response.write "history.back(1);"
   response.write "</script>"
   response.end
end if

if teachername="" then
   response.write "<script language='javascript'>"
   response.write "alert('请输入该教师姓名');"
   response.write "history.back(1);"
   response.write "</script>"
   response.end
end if

sqlstr="select * from 系,专业 where 系.xino='" & xino &"' and 专业.zhuanyeno='" & zhuanyeno &"' and 系.xino=专业.xino"
set rs=server.createobject("ADODB.Recordset")
rs.open sqlstr,CN 
if not rs.eof then
   xiname=rs("xiname")
   zhuanye=rs("zhuanye")
else 
   response.write "<script language='javascript'>"
   response.write "alert('请选择正确的系及专业名称');"
   response.write "history.back(1);"
   response.write "</script>"
   response.end
end if

set rs1=server.createobject("ADODB.Recordset")
sqlstr="select * from 教师 where teacherno='" & oldtno &"'"
rs1.open sqlstr,CN,3,3
if not rs1.eof then
rs1("teacherno")=teacherno
rs1("teachername")=teachername
rs1("teacherpsw")=teacherno
rs1("xino")=xino
rs1("xiname")=xiname
rs1("zhuanyeno")=zhuanyeno
rs1("zhuanye")=zhuanye
rs1("sex")=sex
rs1("teleph")=teleph
rs1.update
rs1.close
response.write "<script language='javascript'>"
response.write "alert('修改成功！');"
response.write "history.back(1);"
response.write "</script>"
response.end
end if 
%>