writegrade1.asp

学生档案管理系统。。 调试测试可以用。

 <!-- #include file="conn.asp" -->  
 <%
 Gno=request("Gno")
 GName=request("GName")
 CT=request("CT")
 DPID=request("DPID")
 Sql="select * from grade where 班级ID='"& Gno &"'"
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='writegrade.asp';</SCRIPT>"
End If 
rs.close
Set rs=Nothing
 If(Gno="" or GName="" or CT="") Then 
      Response.Write "<script>alert('非法操作：班级号,班级,班主任不能为空!!!');this.location.href='writegrade.asp';</SCRIPT>"
 Else 
	 set rs=server.CreateObject("adodb.recordset")
	 sqlstr="Insert Into grade(班级ID,班级,班主任,班主任密码) values('"&Gno&"','"&GName&"','"&CT&"',"&"'000')"
	 set rs=conn.execute(sqlstr)
	 response.Write "<script>alert('添加成功!!\n默认密码为000');this.location.href='showgrade.asp';</SCRIPT>"
 End If 
 %>