addu.asp

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

<%
bj=replace(request("bj"),"'","")
xh=replace(request("xh"),"'","")
xhf=replace(request("xhf"),"'","")
xm=replace(request("xm"),"'","")
if xm="" then xm=replace(request.form("user"),"'","")
xq=replace(request("xq"),"'","")
mm=replace(request("mm"),"'","")
kc=replace(request("kc"),"'","")
lx=replace(request("lx"),"'","")
question=replace(request.form("question"),"'","")
answer=replace(request.form("answer"),"'","")
if mm="" then 
mm=xh
end if
sex=replace(request("sex"),"'","")
addr=replace(request("addr"),"'","")
yb=replace(request("yb"),"'","")
username=replace(request("username"),"'","")
password=replace(request("password"),"'","")
if password="" then
password=username
end if
%>

<!-- #include file="inc/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
mm1=replace(request("mm1"),"'","")
if session("password")<>"" then mm1=mm
if mm<>mm1 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,question,answer,addr,yb)values('"&bj&"','"&xh&"','"&xm&"','"&mm&"','"&sex&"','"&question&"','"&answer&"','"&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_add.asp?kind=admin'"&" </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 = '"&session("return")&"'"&" </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)
for t=4 to len(bj)
if mid(bj,t,1)>="0" and mid(bj,t,1)<="9" then exit for
bjj=bjj&mid(bj,t,1)
next
mysql="select * from kcb where bj='"&bjj&"' and kc='"&kc&"' and xf='"&xf&"' 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,xf,xq,lx) values('"&bjj&"','"&kc&"','"&xf&"','"&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
%>