addth.asp

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

<!--#include file="connection.asp"-->
<%
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

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 rs=server.createobject("ADODB.Recordset")
sqlstr="select * from 教师 where teacherno='" & teacherno &"'"
rs.open sqlstr,CN,3,3
if rs.eof then
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("teacherno")=teacherno
rs("teachername")=teachername
rs("teacherpsw")=teacherno
rs("xino")=xino
rs("xiname")=xiname
rs("zhuanyeno")=zhuanyeno
rs("zhuanye")=zhuanye
rs("sex")=sex
rs("teleph")=teleph
rs.update
rs.close
response.redirect "addteacher.asp"
end if
%>