<!-- #include file="conn.asp" -->  
 <%
 Sno=request("Sno")
 Name=request("Name")
 Sex=request("Sex")
 Tel=request("Tel")
 Birthday=request("Birthday")
 Address=request("Address")
 GName=request("GName")
 bbb=request("bbb")
Sql="select * from student where 學生ID='"& Sno &"'"
Set Rs=Server.CreateObject("adodb.recordSet")
Rs.open sql,conn,1,1
If Not rs.eof And Not rs.bof Then 
	Response.Write "<script>alert('非法操作：學生ID以存在!!');this.location.href='WRITE.ASP';</SCRIPT>"
End If 
rs.close
Set rs=Nothing
If Sno="" Or Name="" Or GName="" Then 
  Response.Write "<script>alert('非法操作：學生ID,姓名,班級不能為空!!!');this.location.href='WRITE.ASP';</SCRIPT>"
Else 
 sqlstr="Insert Into student(學生ID,姓名,性別,電話,出生日期,地址,班級,系別,密碼) values('"&Sno&"','"&Name&"','"&Sex&"','"&Tel&"',#"&Birthday&"#,'"&Address&"','"&GName&"','"&bbb&"','123456')"
 conn.execute(sqlstr)
  Response.Write "<script>alert('添加成功!!!');this.location.href='xs_student.asp';</SCRIPT>"
End If 
 %>