postwrite.asp

来自「学生档案管理系统。。 调试测试可以用。」· ASP 代码 · 共 26 行

 <!-- #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 
 %>