addu.asp

能自动计算总分、平均分及格率等各种统计数据。在统计时你还可以选择统计全部学科或部分学科；在使用中可自由增删成绩、人员

<%
bj=request("bj")
xh=request("xh")
xhf=request("xhf")
xm=request("xm")
xq=request("xq")
mm=request("mm")
kc=request("kc")
lx=request("lx")
if mm="" then 
mm=xh
end if
sex=request("sex")
addr=request("addr")
yb=request("yb")
username=request("username")
password=request("password")
if password="" then
password=username
end if
%>

<!-- #include file="conn.asp"-->

<%if request("kind")="1" then%>
<%
if xh="" or bj="--==请选择==--" then
    response.write "<script language=JavaScript>" & chr(13) & "alert('请您输入学号和班级');" & "history.back()" & "</script>" 
    Response.End
end if

mysql="select xh from user where xh='"&xh&"'"
set rs1=conn.execute(mysql)
if not rs1.eof then
  rs1.close
  response.write "<script language=JavaScript>" & chr(13) & "alert('你输入的学号已经存在！~');" & "history.back()" & "</script>"
  response.End
end if


set savebbs1=conn.execute("insert into user(bj,xh,xm,mm,sex,addr,yb)values('"&bj&"','"&xh&"','"&xm&"','"&mm&"','"&sex&"','"&addr&"','"&yb&"')")
session("user")=xh
session("pwd")=mm
response.write "<script language=JavaScript>" & chr(13) & "alert('同学信息添加成功！');"&"window.location.href = '"&session("return")&"'"&" </script>"
set savebbs1=nothing 
end if
%>

<%if request("kind")="0" then%>
<%if session("password")<>"" then%>
<%
if username="" then
    response.write "<script language=JavaScript>" & chr(13) & "alert('请您输入管理员的相关信息');" & "history.back()" & "</script>" 
    Response.End
end if

mysql="select username from admin where username='"&username&"'"
set rs1=conn.execute(mysql)
if not rs1.eof then
  rs1.close
  response.write "<script language=JavaScript>" & chr(13) & "alert('您输入的用户已经存在！~');" & "history.back()" & "</script>"
  response.End
end if


set savebbs1=conn.execute("insert into admin(username,password) values('"&username&"','"&password&"')")
response.write "<script language=JavaScript>" & chr(13) & "alert('管理员信息添加成功！');"&"window.location.href = 'admin_user.asp'"&" </script>" 
set savebbs1=nothing 
%>

<%
else
response.redirect("admpost.asp")
end if
end if
%>


<%if request("kind")="2" then%>
<%if session("password")<>"" then%>
<%
if bj="" or xhf="" then
    response.write "<script language=JavaScript>" & chr(13) & "alert('请您输入完整的信息');" & "history.back()" & "</script>"
    Response.End
end if

mysql="select bj from bjb where bj='"&bj&"'"
set rs1=conn.execute(mysql)
if not rs1.eof then
  rs1.close
  response.write "<script language=JavaScript>" & chr(13) & "alert('您输入的班级已经存在！~');" & "history.back()" & "</script>"
  response.End
end if


set savebbs1=conn.execute("insert into bjb(bj,xhf) values('"&bj&"','"&xhf&"')")
response.write "<script language=JavaScript>" & chr(13) & "alert('班级相关信息添加成功！');"&"window.location.href = 'admin_addxhs.asp'"&" </script>"
set savebbs1=nothing 
%>

<%
else
response.redirect("admpost.asp")
end if
end if
%>


<%if request("kind")="3" then%>
<%if session("password")<>"" then%>
<%
if kc="" or bj="--==请选择==--" then
    response.write "<script language=JavaScript>" & chr(13) & "alert('请您输入完整信息');" & "history.back()" & "</script>"
    Response.End
end if

bjj=left(bj,3)
mysql="select * from kcb where bj='"&bjj&"' and kc='"&kc&"' and lx='"&lx&"' and xq='"&xq&"'"
set rs1=conn.execute(mysql)
if not rs1.eof then
  rs1.close
  response.write "<script language=JavaScript>" & chr(13) & "alert('您输入的信息已经存在！~');" & "history.back()" & "</script>"
  response.End
end if


set savebbs1=conn.execute("insert into kcb(bj,kc,xq,lx) values('"&bjj&"','"&kc&"','"&xq&"','"&lx&"')")
response.write "<script language=JavaScript>" & chr(13) & "alert('课程信息添加成功！');"&"window.location.href = 'admin_addxhs.asp'"&" </script>"
set savebbs1=nothing 
%>

<%
else
response.redirect("admpost.asp")
end if
end if
%>