addteacher.asp

网络教学管理系统

<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
body {
	background-color: #B1DB99;
}
-->
</style><!--#include file = "inc/conn.asp" -->
<!--#include file = "CheckLogin.asp" -->
<!--#include file = "inc/zhuru.asp" -->
<%
	Dim strName ,strPwd ,strPwd2 ,strSynopsis ,strSex ,srtTel ,strEmail ,strMSN ,strQQ ,strTno , strSchoolID ,strZhuanyeID
	strTno = trim(Request.Form("Tno"))
	strName = trim(Request.Form("name"))
	strPwd = trim(Request.Form("pwd"))
	strPwd2 = trim(Request.Form("pwd2"))
	strSynopsis = trim(Request.Form("Synopsis"))
	strSex = trim(Request.Form("sex"))
	strTel = trim(Request.Form("Tel"))
	strEmail = trim(Request.Form("Email"))
	strMSN = trim(Request.Form("MSN"))
	strQQ  = trim(Request.Form("QQ"))
	strSchoolID = trim(Request.Form("SchoolID"))
	strZhuanyeID = trim(Request.Form("ZhuanyeID"))

	Dim rs ,strSql 
	Set rs = Server.CreateObject("ADODB.Recordset")
	strSql = "SELECT * FROM Teacher WHERE Tno = '"& strTno &"'"
	rs.open strSql,conn,1,1
	If Not rs.EOF Then
		Response.Write("对不起，你不能添加该老师信息，因此教师号已存在!")
		Response.End
	End If
	rs.Close
	strSql = "INSERT INTO Teacher (tno,name,pwd,Synopsis,sex,tel,Email,MSN,QQ,SchoolID,ZhuanyeID) Values('"& strTno &"','"& strName &"','"& strPwd &"','"& strSynopsis &"','"& strSex &"','"& strTel &"','"& strEmail &"','"& strMSN &"','"& strQQ &"','"& strSchoolID &"','"& strZhuanyeID &"')"
	rs.open strSql,conn,3,1
	Response.Write("<BR><BR><BR><Div align=center>添加成功！<Br><BR><a href=Add_Teacher.asp>返回继续添加</a></div>")
	
	
%>