addstudent.asp

教学平台

<style type="text/css">
<!--
body {
	background-color: #B1DB99;
}
body,td,th {
	font-size: 12px;
}
-->
</style><!--#include file = "inc/conn.asp" -->
<!--#include file = "CheckLogin.asp" -->
<!--#include file = "inc/zhuru.asp" -->
<%

	Dim strSno ,strName ,strPwd ,strPwd2 ,strCalssID ,strSex ,srtTel ,strEmail ,strMSN ,strQQ ,strZhengzhimianmao ,strNationality ,strNative ,strCardID ,strSchoolID ,strZhuanyeID ,strNianyue
	strSno = trim(Request.Form("Sno"))
	strName = trim(Request.Form("name"))
	strPwd = trim(Request.Form("pwd"))
	strPwd2 = trim(Request.Form("pwd2"))
	strCalssID = trim(Request.Form("classID"))
	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"))
	strZhengzhimianmao = trim(Request.Form("Zhengzhimianmao"))
	strNationality = trim(Request.Form("Nationality"))
	strNative = trim(Request.Form("Native"))
	strCardID = trim(Request.Form("CardID"))
	strSchoolID = trim(Request.Form("SchoolID"))
	strzhuanyeID = trim(Request.Form("zhuanyeID"))
	strNianyue = Trim(Request.Form("Nianyue"))
	
	Dim rs ,strSql 
	Set rs = Server.CreateObject("ADODB.Recordset")
	strSql = "SELECT * FROM Student WHERE Sno = '"& strSno &"'"
	rs.open strSql,conn,1,1
	If Not rs.EOF Then
		Response.Write("对不起，你不能添加该学生信息，因此学号已存在!")
		Response.End
	End If
	rs.Close
	strSql = "INSERT INTO Student (sno,name,pwd,classID,sex,tel,Email,MSN,QQ,Zhengzhimianmao,Nationality,Native,CardID,SchoolID,zhuanyeID,Nianyue) Values('"& strSno &"','"& strName &"','"& strPwd &"','"& strCalssID &"','"& strSex &"','"& strTel &"','"& strEmail &"','"& strMSN &"','"& strQQ &"','"& strZhengzhimianmao &"','"& strNationality &"','"& strNative &"','"& strCardID &"','"& strSchoolID &"','"& strzhuanyeID &"','"& strNianyue &"')"
	
	rs.open strSql,conn,3,1
	Response.Write("<BR><BR><BR><Div align=center>添加成功！<Br><BR><a href=Add_student.asp>返回继续添加</a></div>")
	
	
%>